accessing mail through vba

I'm trying to mail something to a list of addresses in my
spreadsheet. As best as I can tell, everything works fine EXCEPT, the
mail never seems to go out. I don't believe there are any errors
being returned as I step through it and it seems to execute each
statement just fine. Any ideas? Here's the function. I have Office
2000 installed on WinXP.


Sub mailMessage()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim strBody As String



Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

Call getBody(strBody)

On Error GoTo cleanup
For Each cell In
Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
2).Value) = "yes" Then
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Enter Subject Here"
.Body = strBody
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
End If
Next cell

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub

Doug
Tue Aug 12 17:21:02 PDT 2008

You probably need to make use of the Express ClickYes utility that is
mentioned in the Preparations section of the article "Mail Merge to E-mail
with Attachments" at:

http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Dudely" <ab3331@gmail.com> wrote in message
news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegroups.com...
> I'm trying to mail something to a list of addresses in my
> spreadsheet. As best as I can tell, everything works fine EXCEPT, the
> mail never seems to go out. I don't believe there are any errors
> being returned as I step through it and it seems to execute each
> statement just fine. Any ideas? Here's the function. I have Office
> 2000 installed on WinXP.
>
>
> Sub mailMessage()
> Dim OutApp As Object
> Dim OutMail As Object
> Dim cell As Range
> Dim strBody As String
>
>
>
> Application.ScreenUpdating = False
> Set OutApp = CreateObject("Outlook.Application")
> OutApp.Session.Logon
>
> Call getBody(strBody)
>
> On Error GoTo cleanup
> For Each cell In
> Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeConstants)
> If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
> 2).Value) = "yes" Then
> Set OutMail = OutApp.CreateItem(0)
>
> On Error Resume Next
> With OutMail
> .To = cell.Value
> .Subject = "Enter Subject Here"
> .Body = strBody
> .Send
> End With
> On Error GoTo 0
>
> Set OutMail = Nothing
> End If
> Next cell
>
> cleanup:
> Set OutApp = Nothing
> Application.ScreenUpdating = True
> End Sub

Dudely
Tue Aug 12 19:27:46 PDT 2008

I suppose it's possible I might need to make use of that utitlity,
however at the moment that answer does not address the problem I'm
actually having as best as I can tell.

Anybody else know what's going on here? Is there a more appropriate
group to ask this question? The outlook people didn't seem all that
knowledgable in general and I don't think this is the kind of question
they would know much about since it's about programming and not the
application itself necessarily.

Thank you


On Aug 12, 5:21=A0pm, "Doug Robbins - Word MVP"
<d...@REMOVECAPSmvps.org> wrote:
> You probably need to make use of the Express ClickYes utility that is
> mentioned in the Preparations section of the article "Mail Merge to E-mai=
l
> with Attachments" at:
>
> http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
>
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
>
> "Dudely" <ab3...@gmail.com> wrote in message
>
> news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegroups.com...
>
>
>
> > I'm trying to mail something to a list of addresses in my
> > spreadsheet. =A0As best as I can tell, everything works fine EXCEPT, th=
e
> > mail never seems to go out. =A0I don't believe there are any errors
> > being returned as I step through it and it seems to execute each
> > statement just fine. =A0Any ideas? =A0Here's the function. =A0I have Of=
fice
> > 2000 installed on WinXP.
>
> > Sub mailMessage()
> > Dim OutApp As Object
> > Dim OutMail As Object
> > Dim cell As Range
> > Dim strBody As String
>
> > =A0 =A0Application.ScreenUpdating =3D False
> > =A0 =A0Set OutApp =3D CreateObject("Outlook.Application")
> > =A0 =A0OutApp.Session.Logon
>
> > =A0 =A0Call getBody(strBody)
>
> > =A0 =A0On Error GoTo cleanup
> > =A0 =A0For Each cell In
> > Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeConstants)
> > =A0 =A0 =A0 =A0If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
> > 2).Value) =3D "yes" Then
> > =A0 =A0 =A0 =A0 =A0 =A0Set OutMail =3D OutApp.CreateItem(0)
>
> > =A0 =A0 =A0 =A0 =A0 =A0On Error Resume Next
> > =A0 =A0 =A0 =A0 =A0 =A0With OutMail
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0.To =3D cell.Value
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0.Subject =3D "Enter Subject Here"
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0.Body =3D strBody
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0.Send
> > =A0 =A0 =A0 =A0 =A0 =A0End With
> > =A0 =A0 =A0 =A0 =A0 =A0On Error GoTo 0
>
> > =A0 =A0 =A0 =A0 =A0 =A0Set OutMail =3D Nothing
> > =A0 =A0 =A0 =A0End If
> > =A0 =A0Next cell
>
> > cleanup:
> > =A0 =A0Set OutApp =3D Nothing
> > =A0 =A0Application.ScreenUpdating =3D True
> > End Sub- Hide quoted text -
>
> - Show quoted text -

Doug
Tue Aug 12 23:30:04 PDT 2008

Your code appears to be essentially the same as that in the article to which
I referred you. Are you able to send a document via email by using the
File>Send facility in Word? If not, see the following page of fellow MVP
Peter Jamieson's website:

http://tips.pjmsn.me.uk/t0002.htm

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Dudely" <ab3331@gmail.com> wrote in message
news:0928f9c4-824a-4207-b152-ca6cd86be3cd@v26g2000prm.googlegroups.com...
I suppose it's possible I might need to make use of that utitlity,
however at the moment that answer does not address the problem I'm
actually having as best as I can tell.

Anybody else know what's going on here? Is there a more appropriate
group to ask this question? The outlook people didn't seem all that
knowledgable in general and I don't think this is the kind of question
they would know much about since it's about programming and not the
application itself necessarily.

Thank you


On Aug 12, 5:21 pm, "Doug Robbins - Word MVP"
<d...@REMOVECAPSmvps.org> wrote:
> You probably need to make use of the Express ClickYes utility that is
> mentioned in the Preparations section of the article "Mail Merge to E-mail
> with Attachments" at:
>
> http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
>
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
>
> "Dudely" <ab3...@gmail.com> wrote in message
>
> news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegroups.com...
>
>
>
> > I'm trying to mail something to a list of addresses in my
> > spreadsheet. As best as I can tell, everything works fine EXCEPT, the
> > mail never seems to go out. I don't believe there are any errors
> > being returned as I step through it and it seems to execute each
> > statement just fine. Any ideas? Here's the function. I have Office
> > 2000 installed on WinXP.
>
> > Sub mailMessage()
> > Dim OutApp As Object
> > Dim OutMail As Object
> > Dim cell As Range
> > Dim strBody As String
>
> > Application.ScreenUpdating = False
> > Set OutApp = CreateObject("Outlook.Application")
> > OutApp.Session.Logon
>
> > Call getBody(strBody)
>
> > On Error GoTo cleanup
> > For Each cell In
> > Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeConstants)
> > If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
> > 2).Value) = "yes" Then
> > Set OutMail = OutApp.CreateItem(0)
>
> > On Error Resume Next
> > With OutMail
> > .To = cell.Value
> > .Subject = "Enter Subject Here"
> > .Body = strBody
> > .Send
> > End With
> > On Error GoTo 0
>
> > Set OutMail = Nothing
> > End If
> > Next cell
>
> > cleanup:
> > Set OutApp = Nothing
> > Application.ScreenUpdating = True
> > End Sub- Hide quoted text -
>
> - Show quoted text -

Dudely
Wed Aug 13 08:49:47 PDT 2008

Actually the code comes from here: http://www.rondebruin.nl/mail/folder3/me=
ssage.htm

I made some fairly minor modifications.

And yes, I can email from Word using File>Send.

So, the problem still remains. Is there perhaps a temp directory I
can check to see if the mail is just sitting there for some reason?

Thank you


On Aug 12, 11:30=A0pm, "Doug Robbins - Word MVP"
<d...@REMOVECAPSmvps.org> wrote:
> Your code appears to be essentially the same as that in the article to wh=
ich
> I referred you. =A0Are you able to send a document via email by using the
> File>Send facility in Word? =A0If not, see the following page of fellow M=
VP
> Peter Jamieson's website:
>
> http://tips.pjmsn.me.uk/t0002.htm
>
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
>
> "Dudely" <ab3...@gmail.com> wrote in message
>
> news:0928f9c4-824a-4207-b152-ca6cd86be3cd@v26g2000prm.googlegroups.com...
> I suppose it's possible I might need to make use of that utitlity,
> however at the moment that answer does not address the problem I'm
> actually having as best as I can tell.
>
> Anybody else know what's going on here? =A0Is there a more appropriate
> group to ask this question? =A0The outlook people didn't seem all that
> knowledgable in general and I don't think this is the kind of question
> they would know much about since it's about programming and not the
> application itself necessarily.
>
> Thank you
>
> On Aug 12, 5:21 pm, "Doug Robbins - Word MVP"
>
>
>
> <d...@REMOVECAPSmvps.org> wrote:
> > You probably need to make use of the Express ClickYes utility that is
> > mentioned in the Preparations section of the article "Mail Merge to E-m=
ail
> > with Attachments" at:
>
> >http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
>
> > --
> > Hope this helps.
>
> > Please reply to the newsgroup unless you wish to avail yourself of my
> > services on a paid consulting basis.
>
> > Doug Robbins - Word MVP
>
> > "Dudely" <ab3...@gmail.com> wrote in message
>
> >news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegroups.com..=
.
>
> > > I'm trying to mail something to a list of addresses in my
> > > spreadsheet. As best as I can tell, everything works fine EXCEPT, the
> > > mail never seems to go out. I don't believe there are any errors
> > > being returned as I step through it and it seems to execute each
> > > statement just fine. Any ideas? Here's the function. I have Office
> > > 2000 installed on WinXP.
>
> > > Sub mailMessage()
> > > Dim OutApp As Object
> > > Dim OutMail As Object
> > > Dim cell As Range
> > > Dim strBody As String
>
> > > Application.ScreenUpdating =3D False
> > > Set OutApp =3D CreateObject("Outlook.Application")
> > > OutApp.Session.Logon
>
> > > Call getBody(strBody)
>
> > > On Error GoTo cleanup
> > > For Each cell In
> > > Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeConstants)
> > > If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
> > > 2).Value) =3D "yes" Then
> > > Set OutMail =3D OutApp.CreateItem(0)
>
> > > On Error Resume Next
> > > With OutMail
> > > .To =3D cell.Value
> > > .Subject =3D "Enter Subject Here"
> > > .Body =3D strBody
> > > .Send
> > > End With
> > > On Error GoTo 0
>
> > > Set OutMail =3D Nothing
> > > End If
> > > Next cell
>
> > > cleanup:
> > > Set OutApp =3D Nothing
> > > Application.ScreenUpdating =3D True
> > > End Sub- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -

Doug
Wed Aug 13 12:41:35 PDT 2008

Have you looked in the Outbox

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Dudely" <ab3331@gmail.com> wrote in message
news:2f038efd-c068-4a26-87b7-210f24957b34@v16g2000prc.googlegroups.com...
Actually the code comes from here:
http://www.rondebruin.nl/mail/folder3/message.htm

I made some fairly minor modifications.

And yes, I can email from Word using File>Send.

So, the problem still remains. Is there perhaps a temp directory I
can check to see if the mail is just sitting there for some reason?

Thank you


On Aug 12, 11:30 pm, "Doug Robbins - Word MVP"
<d...@REMOVECAPSmvps.org> wrote:
> Your code appears to be essentially the same as that in the article to
> which
> I referred you. Are you able to send a document via email by using the
> File>Send facility in Word? If not, see the following page of fellow MVP
> Peter Jamieson's website:
>
> http://tips.pjmsn.me.uk/t0002.htm
>
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
>
> "Dudely" <ab3...@gmail.com> wrote in message
>
> news:0928f9c4-824a-4207-b152-ca6cd86be3cd@v26g2000prm.googlegroups.com...
> I suppose it's possible I might need to make use of that utitlity,
> however at the moment that answer does not address the problem I'm
> actually having as best as I can tell.
>
> Anybody else know what's going on here? Is there a more appropriate
> group to ask this question? The outlook people didn't seem all that
> knowledgable in general and I don't think this is the kind of question
> they would know much about since it's about programming and not the
> application itself necessarily.
>
> Thank you
>
> On Aug 12, 5:21 pm, "Doug Robbins - Word MVP"
>
>
>
> <d...@REMOVECAPSmvps.org> wrote:
> > You probably need to make use of the Express ClickYes utility that is
> > mentioned in the Preparations section of the article "Mail Merge to
> > E-mail
> > with Attachments" at:
>
> >http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
>
> > --
> > Hope this helps.
>
> > Please reply to the newsgroup unless you wish to avail yourself of my
> > services on a paid consulting basis.
>
> > Doug Robbins - Word MVP
>
> > "Dudely" <ab3...@gmail.com> wrote in message
>
> >news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegroups.com...
>
> > > I'm trying to mail something to a list of addresses in my
> > > spreadsheet. As best as I can tell, everything works fine EXCEPT, the
> > > mail never seems to go out. I don't believe there are any errors
> > > being returned as I step through it and it seems to execute each
> > > statement just fine. Any ideas? Here's the function. I have Office
> > > 2000 installed on WinXP.
>
> > > Sub mailMessage()
> > > Dim OutApp As Object
> > > Dim OutMail As Object
> > > Dim cell As Range
> > > Dim strBody As String
>
> > > Application.ScreenUpdating = False
> > > Set OutApp = CreateObject("Outlook.Application")
> > > OutApp.Session.Logon
>
> > > Call getBody(strBody)
>
> > > On Error GoTo cleanup
> > > For Each cell In
> > > Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeConstants)
> > > If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
> > > 2).Value) = "yes" Then
> > > Set OutMail = OutApp.CreateItem(0)
>
> > > On Error Resume Next
> > > With OutMail
> > > .To = cell.Value
> > > .Subject = "Enter Subject Here"
> > > .Body = strBody
> > > .Send
> > > End With
> > > On Error GoTo 0
>
> > > Set OutMail = Nothing
> > > End If
> > > Next cell
>
> > > cleanup:
> > > Set OutApp = Nothing
> > > Application.ScreenUpdating = True
> > > End Sub- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -

Dudely
Wed Aug 13 13:00:14 PDT 2008

There is nothing in the outbox. And, just so you know I'm only
attempting to send out one message - to myself - so that I know
whether or not it's sent & received.


On Aug 13, 12:41=A0pm, "Doug Robbins - Word MVP"
<d...@REMOVECAPSmvps.org> wrote:
> Have you looked in the Outbox
>
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
>
> "Dudely" <ab3...@gmail.com> wrote in message
>
> news:2f038efd-c068-4a26-87b7-210f24957b34@v16g2000prc.googlegroups.com...
> Actually the code comes from here:http://www.rondebruin.nl/mail/folder3/m=
essage.htm
>
> I made some fairly minor modifications.
>
> And yes, I can email from Word using File>Send.
>
> So, the problem still remains. =A0Is there perhaps a temp directory I
> can check to see if the mail is just sitting there for some reason?
>
> Thank you
>
> On Aug 12, 11:30 pm, "Doug Robbins - Word MVP"
>
>
>
> <d...@REMOVECAPSmvps.org> wrote:
> > Your code appears to be essentially the same as that in the article to
> > which
> > I referred you. Are you able to send a document via email by using the
> > File>Send facility in Word? If not, see the following page of fellow MV=
P
> > Peter Jamieson's website:
>
> >http://tips.pjmsn.me.uk/t0002.htm
>
> > --
> > Hope this helps.
>
> > Please reply to the newsgroup unless you wish to avail yourself of my
> > services on a paid consulting basis.
>
> > Doug Robbins - Word MVP
>
> > "Dudely" <ab3...@gmail.com> wrote in message
>
> >news:0928f9c4-824a-4207-b152-ca6cd86be3cd@v26g2000prm.googlegroups.com..=
.
> > I suppose it's possible I might need to make use of that utitlity,
> > however at the moment that answer does not address the problem I'm
> > actually having as best as I can tell.
>
> > Anybody else know what's going on here? Is there a more appropriate
> > group to ask this question? The outlook people didn't seem all that
> > knowledgable in general and I don't think this is the kind of question
> > they would know much about since it's about programming and not the
> > application itself necessarily.
>
> > Thank you
>
> > On Aug 12, 5:21 pm, "Doug Robbins - Word MVP"
>
> > <d...@REMOVECAPSmvps.org> wrote:
> > > You probably need to make use of the Express ClickYes utility that is
> > > mentioned in the Preparations section of the article "Mail Merge to
> > > E-mail
> > > with Attachments" at:
>
> > >http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
>
> > > --
> > > Hope this helps.
>
> > > Please reply to the newsgroup unless you wish to avail yourself of my
> > > services on a paid consulting basis.
>
> > > Doug Robbins - Word MVP
>
> > > "Dudely" <ab3...@gmail.com> wrote in message
>
> > >news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegroups.com=
...
>
> > > > I'm trying to mail something to a list of addresses in my
> > > > spreadsheet. As best as I can tell, everything works fine EXCEPT, t=
he
> > > > mail never seems to go out. I don't believe there are any errors
> > > > being returned as I step through it and it seems to execute each
> > > > statement just fine. Any ideas? Here's the function. I have Office
> > > > 2000 installed on WinXP.
>
> > > > Sub mailMessage()
> > > > Dim OutApp As Object
> > > > Dim OutMail As Object
> > > > Dim cell As Range
> > > > Dim strBody As String
>
> > > > Application.ScreenUpdating =3D False
> > > > Set OutApp =3D CreateObject("Outlook.Application")
> > > > OutApp.Session.Logon
>
> > > > Call getBody(strBody)
>
> > > > On Error GoTo cleanup
> > > > For Each cell In
> > > > Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeConstant=
s)
> > > > If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
> > > > 2).Value) =3D "yes" Then
> > > > Set OutMail =3D OutApp.CreateItem(0)
>
> > > > On Error Resume Next
> > > > With OutMail
> > > > .To =3D cell.Value
> > > > .Subject =3D "Enter Subject Here"
> > > > .Body =3D strBody
> > > > .Send
> > > > End With
> > > > On Error GoTo 0
>
> > > > Set OutMail =3D Nothing
> > > > End If
> > > > Next cell
>
> > > > cleanup:
> > > > Set OutApp =3D Nothing
> > > > Application.ScreenUpdating =3D True
> > > > End Sub- Hide quoted text -
>
> > > - Show quoted text -- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -

Ron
Wed Aug 13 14:00:13 PDT 2008

Hi Dudely

Change

.Send

To

.Display

Do you see the mails ?

Are the mail addresses manual entered in Column A?

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Dudely" <ab3331@gmail.com> wrote in message news:222cc827-5408-450c-abc1-2f508170ed88@r15g2000prh.googlegroups.com...
There is nothing in the outbox. And, just so you know I'm only
attempting to send out one message - to myself - so that I know
whether or not it's sent & received.


On Aug 13, 12:41 pm, "Doug Robbins - Word MVP"
<d...@REMOVECAPSmvps.org> wrote:
> Have you looked in the Outbox
>
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
>
> "Dudely" <ab3...@gmail.com> wrote in message
>
> news:2f038efd-c068-4a26-87b7-210f24957b34@v16g2000prc.googlegroups.com...
> Actually the code comes from here:http://www.rondebruin.nl/mail/folder3/message.htm
>
> I made some fairly minor modifications.
>
> And yes, I can email from Word using File>Send.
>
> So, the problem still remains. Is there perhaps a temp directory I
> can check to see if the mail is just sitting there for some reason?
>
> Thank you
>
> On Aug 12, 11:30 pm, "Doug Robbins - Word MVP"
>
>
>
> <d...@REMOVECAPSmvps.org> wrote:
> > Your code appears to be essentially the same as that in the article to
> > which
> > I referred you. Are you able to send a document via email by using the
> > File>Send facility in Word? If not, see the following page of fellow MVP
> > Peter Jamieson's website:
>
> >http://tips.pjmsn.me.uk/t0002.htm
>
> > --
> > Hope this helps.
>
> > Please reply to the newsgroup unless you wish to avail yourself of my
> > services on a paid consulting basis.
>
> > Doug Robbins - Word MVP
>
> > "Dudely" <ab3...@gmail.com> wrote in message
>
> >news:0928f9c4-824a-4207-b152-ca6cd86be3cd@v26g2000prm.googlegroups.com...
> > I suppose it's possible I might need to make use of that utitlity,
> > however at the moment that answer does not address the problem I'm
> > actually having as best as I can tell.
>
> > Anybody else know what's going on here? Is there a more appropriate
> > group to ask this question? The outlook people didn't seem all that
> > knowledgable in general and I don't think this is the kind of question
> > they would know much about since it's about programming and not the
> > application itself necessarily.
>
> > Thank you
>
> > On Aug 12, 5:21 pm, "Doug Robbins - Word MVP"
>
> > <d...@REMOVECAPSmvps.org> wrote:
> > > You probably need to make use of the Express ClickYes utility that is
> > > mentioned in the Preparations section of the article "Mail Merge to
> > > E-mail
> > > with Attachments" at:
>
> > >http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
>
> > > --
> > > Hope this helps.
>
> > > Please reply to the newsgroup unless you wish to avail yourself of my
> > > services on a paid consulting basis.
>
> > > Doug Robbins - Word MVP
>
> > > "Dudely" <ab3...@gmail.com> wrote in message
>
> > >news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegroups.com...
>
> > > > I'm trying to mail something to a list of addresses in my
> > > > spreadsheet. As best as I can tell, everything works fine EXCEPT, the
> > > > mail never seems to go out. I don't believe there are any errors
> > > > being returned as I step through it and it seems to execute each
> > > > statement just fine. Any ideas? Here's the function. I have Office
> > > > 2000 installed on WinXP.
>
> > > > Sub mailMessage()
> > > > Dim OutApp As Object
> > > > Dim OutMail As Object
> > > > Dim cell As Range
> > > > Dim strBody As String
>
> > > > Application.ScreenUpdating = False
> > > > Set OutApp = CreateObject("Outlook.Application")
> > > > OutApp.Session.Logon
>
> > > > Call getBody(strBody)
>
> > > > On Error GoTo cleanup
> > > > For Each cell In
> > > > Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeConstants)
> > > > If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
> > > > 2).Value) = "yes" Then
> > > > Set OutMail = OutApp.CreateItem(0)
>
> > > > On Error Resume Next
> > > > With OutMail
> > > > .To = cell.Value
> > > > .Subject = "Enter Subject Here"
> > > > .Body = strBody
> > > > .Send
> > > > End With
> > > > On Error GoTo 0
>
> > > > Set OutMail = Nothing
> > > > End If
> > > > Next cell
>
> > > > cleanup:
> > > > Set OutApp = Nothing
> > > > Application.ScreenUpdating = True
> > > > End Sub- Hide quoted text -
>
> > > - Show quoted text -- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -

Dudely
Wed Aug 13 15:21:06 PDT 2008

Hi Ron!

Changing to .Display brings up an Outlook mail pre-addressed to myself
with the correct subject. Interestingly, there is no body.

One thing I did was change the body to include rows through 30. I
also notice that the body var (strBody) contains all non-printables
for some reason.

In any event, I now SEND the mail by clicking the send button manually
and it seems to send in that I don't get any errors of any kind...
but, I never get the email back; i.e. it's not delivered to me. So I
assume it's not going out.

Sending an email to myself through Outlook the normal way generates a
return email exactly as expected.

(And yes, email is in column A and the "yes" is in column C)


On Aug 13, 2:00=A0pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
> Hi Dudely
>
> Change
>
> .Send
>
> To
>
> .Display
>
> Do you see the mails ?
>
> Are the mail addresses manual entered in Column A?
>
> --
>
> Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm
>
> "Dudely" <ab3...@gmail.com> wrote in messagenews:222cc827-5408-450c-abc1-=
2f508170ed88@r15g2000prh.googlegroups.com...
>
> There is nothing in the outbox. =A0And, just so you know I'm only
> attempting to send out one message - to myself - so that I know
> whether or not it's sent & received.
>
> On Aug 13, 12:41 pm, "Doug Robbins - Word MVP"
>
>
>
> <d...@REMOVECAPSmvps.org> wrote:
> > Have you looked in the Outbox
>
> > --
> > Hope this helps.
>
> > Please reply to the newsgroup unless you wish to avail yourself of my
> > services on a paid consulting basis.
>
> > Doug Robbins - Word MVP
>
> > "Dudely" <ab3...@gmail.com> wrote in message
>
> >news:2f038efd-c068-4a26-87b7-210f24957b34@v16g2000prc.googlegroups.com..=
.
> > Actually the code comes from here:http://www.rondebruin.nl/mail/folder3=
/message.htm
>
> > I made some fairly minor modifications.
>
> > And yes, I can email from Word using File>Send.
>
> > So, the problem still remains. Is there perhaps a temp directory I
> > can check to see if the mail is just sitting there for some reason?
>
> > Thank you
>
> > On Aug 12, 11:30 pm, "Doug Robbins - Word MVP"
>
> > <d...@REMOVECAPSmvps.org> wrote:
> > > Your code appears to be essentially the same as that in the article t=
o
> > > which
> > > I referred you. Are you able to send a document via email by using th=
e
> > > File>Send facility in Word? If not, see the following page of fellow =
MVP
> > > Peter Jamieson's website:
>
> > >http://tips.pjmsn.me.uk/t0002.htm
>
> > > --
> > > Hope this helps.
>
> > > Please reply to the newsgroup unless you wish to avail yourself of my
> > > services on a paid consulting basis.
>
> > > Doug Robbins - Word MVP
>
> > > "Dudely" <ab3...@gmail.com> wrote in message
>
> > >news:0928f9c4-824a-4207-b152-ca6cd86be3cd@v26g2000prm.googlegroups.com=
...
> > > I suppose it's possible I might need to make use of that utitlity,
> > > however at the moment that answer does not address the problem I'm
> > > actually having as best as I can tell.
>
> > > Anybody else know what's going on here? Is there a more appropriate
> > > group to ask this question? The outlook people didn't seem all that
> > > knowledgable in general and I don't think this is the kind of questio=
n
> > > they would know much about since it's about programming and not the
> > > application itself necessarily.
>
> > > Thank you
>
> > > On Aug 12, 5:21 pm, "Doug Robbins - Word MVP"
>
> > > <d...@REMOVECAPSmvps.org> wrote:
> > > > You probably need to make use of the Express ClickYes utility that =
is
> > > > mentioned in the Preparations section of the article "Mail Merge to
> > > > E-mail
> > > > with Attachments" at:
>
> > > >http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
>
> > > > --
> > > > Hope this helps.
>
> > > > Please reply to the newsgroup unless you wish to avail yourself of =
my
> > > > services on a paid consulting basis.
>
> > > > Doug Robbins - Word MVP
>
> > > > "Dudely" <ab3...@gmail.com> wrote in message
>
> > > >news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegroups.c=
om...
>
> > > > > I'm trying to mail something to a list of addresses in my
> > > > > spreadsheet. As best as I can tell, everything works fine EXCEPT,=
the
> > > > > mail never seems to go out. I don't believe there are any errors
> > > > > being returned as I step through it and it seems to execute each
> > > > > statement just fine. Any ideas? Here's the function. I have Offic=
e
> > > > > 2000 installed on WinXP.
>
> > > > > Sub mailMessage()
> > > > > Dim OutApp As Object
> > > > > Dim OutMail As Object
> > > > > Dim cell As Range
> > > > > Dim strBody As String
>
> > > > > Application.ScreenUpdating =3D False
> > > > > Set OutApp =3D CreateObject("Outlook.Application")
> > > > > OutApp.Session.Logon
>
> > > > > Call getBody(strBody)
>
> > > > > On Error GoTo cleanup
> > > > > For Each cell In
> > > > > Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeConsta=
nts)
> > > > > If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
> > > > > 2).Value) =3D "yes" Then
> > > > > Set OutMail =3D OutApp.CreateItem(0)
>
> > > > > On Error Resume Next
> > > > > With OutMail
> > > > > .To =3D cell.Value
> > > > > .Subject =3D "Enter Subject Here"
> > > > > .Body =3D strBody
> > > > > .Send
> > > > > End With
> > > > > On Error GoTo 0
>
> > > > > Set OutMail =3D Nothing
> > > > > End If
> > > > > Next cell
>
> > > > > cleanup:
> > > > > Set OutApp =3D Nothing
> > > > > Application.ScreenUpdating =3D True
> > > > > End Sub- Hide quoted text -
>
> > > > - Show quoted text -- Hide quoted text -
>
> > > - Show quoted text -- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -

Dudely
Wed Aug 13 15:30:56 PDT 2008

I fixed the body problem. I was still looking in column E, whereas
the message was in column A. Silly me. The unprintable chars turned
out to be the newlines being added. So, that's not an issue any
more. Just the original stated problem remains. Can't send email.

Thank you

On Aug 13, 3:21=A0pm, Dudely <ab3...@gmail.com> wrote:
> Hi Ron!
>
> Changing to .Display brings up an Outlook mail pre-addressed to myself
> with the correct subject. =A0Interestingly, there is no body.
>
> One thing I did was change the body to include rows through 30. =A0I
> also notice that the body var (strBody) contains all non-printables
> for some reason.
>
> In any event, I now SEND the mail by clicking the send button manually
> and it seems to send in that I don't get any errors of any kind...
> but, I never get the email back; i.e. it's not delivered to me. =A0So I
> assume it's not going out.
>
> Sending an email to myself through Outlook the normal way generates a
> return email exactly as expected.
>
> (And yes, email is in column A and the "yes" is in column C)
>
> On Aug 13, 2:00=A0pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
>
>
>
> > Hi Dudely
>
> > Change
>
> > .Send
>
> > To
>
> > .Display
>
> > Do you see the mails ?
>
> > Are the mail addresses manual entered in Column A?
>
> > --
>
> > Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm
>
> > "Dudely" <ab3...@gmail.com> wrote in messagenews:222cc827-5408-450c-abc=
1-2f508170ed88@r15g2000prh.googlegroups.com...
>
> > There is nothing in the outbox. =A0And, just so you know I'm only
> > attempting to send out one message - to myself - so that I know
> > whether or not it's sent & received.
>
> > On Aug 13, 12:41 pm, "Doug Robbins - Word MVP"
>
> > <d...@REMOVECAPSmvps.org> wrote:
> > > Have you looked in the Outbox
>
> > > --
> > > Hope this helps.
>
> > > Please reply to the newsgroup unless you wish to avail yourself of my
> > > services on a paid consulting basis.
>
> > > Doug Robbins - Word MVP
>
> > > "Dudely" <ab3...@gmail.com> wrote in message
>
> > >news:2f038efd-c068-4a26-87b7-210f24957b34@v16g2000prc.googlegroups.com=
...
> > > Actually the code comes from here:http://www.rondebruin.nl/mail/folde=
r3/message.htm
>
> > > I made some fairly minor modifications.
>
> > > And yes, I can email from Word using File>Send.
>
> > > So, the problem still remains. Is there perhaps a temp directory I
> > > can check to see if the mail is just sitting there for some reason?
>
> > > Thank you
>
> > > On Aug 12, 11:30 pm, "Doug Robbins - Word MVP"
>
> > > <d...@REMOVECAPSmvps.org> wrote:
> > > > Your code appears to be essentially the same as that in the article=
to
> > > > which
> > > > I referred you. Are you able to send a document via email by using =
the
> > > > File>Send facility in Word? If not, see the following page of fello=
w MVP
> > > > Peter Jamieson's website:
>
> > > >http://tips.pjmsn.me.uk/t0002.htm
>
> > > > --
> > > > Hope this helps.
>
> > > > Please reply to the newsgroup unless you wish to avail yourself of =
my
> > > > services on a paid consulting basis.
>
> > > > Doug Robbins - Word MVP
>
> > > > "Dudely" <ab3...@gmail.com> wrote in message
>
> > > >news:0928f9c4-824a-4207-b152-ca6cd86be3cd@v26g2000prm.googlegroups.c=
om...
> > > > I suppose it's possible I might need to make use of that utitlity,
> > > > however at the moment that answer does not address the problem I'm
> > > > actually having as best as I can tell.
>
> > > > Anybody else know what's going on here? Is there a more appropriate
> > > > group to ask this question? The outlook people didn't seem all that
> > > > knowledgable in general and I don't think this is the kind of quest=
ion
> > > > they would know much about since it's about programming and not the
> > > > application itself necessarily.
>
> > > > Thank you
>
> > > > On Aug 12, 5:21 pm, "Doug Robbins - Word MVP"
>
> > > > <d...@REMOVECAPSmvps.org> wrote:
> > > > > You probably need to make use of the Express ClickYes utility tha=
t is
> > > > > mentioned in the Preparations section of the article "Mail Merge =
to
> > > > > E-mail
> > > > > with Attachments" at:
>
> > > > >http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
>
> > > > > --
> > > > > Hope this helps.
>
> > > > > Please reply to the newsgroup unless you wish to avail yourself o=
f my
> > > > > services on a paid consulting basis.
>
> > > > > Doug Robbins - Word MVP
>
> > > > > "Dudely" <ab3...@gmail.com> wrote in message
>
> > > > >news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegroups=
.com...
>
> > > > > > I'm trying to mail something to a list of addresses in my
> > > > > > spreadsheet. As best as I can tell, everything works fine EXCEP=
T, the
> > > > > > mail never seems to go out. I don't believe there are any error=
s
> > > > > > being returned as I step through it and it seems to execute eac=
h
> > > > > > statement just fine. Any ideas? Here's the function. I have Off=
ice
> > > > > > 2000 installed on WinXP.
>
> > > > > > Sub mailMessage()
> > > > > > Dim OutApp As Object
> > > > > > Dim OutMail As Object
> > > > > > Dim cell As Range
> > > > > > Dim strBody As String
>
> > > > > > Application.ScreenUpdating =3D False
> > > > > > Set OutApp =3D CreateObject("Outlook.Application")
> > > > > > OutApp.Session.Logon
>
> > > > > > Call getBody(strBody)
>
> > > > > > On Error GoTo cleanup
> > > > > > For Each cell In
> > > > > > Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeCons=
tants)
> > > > > > If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
> > > > > > 2).Value) =3D "yes" Then
> > > > > > Set OutMail =3D OutApp.CreateItem(0)
>
> > > > > > On Error Resume Next
> > > > > > With OutMail
> > > > > > .To =3D cell.Value
> > > > > > .Subject =3D "Enter Subject Here"
> > > > > > .Body =3D strBody
> > > > > > .Send
> > > > > > End With
> > > > > > On Error GoTo 0
>
> > > > > > Set OutMail =3D Nothing
> > > > > > End If
> > > > > > Next cell
>
> > > > > > cleanup:
> > > > > > Set OutApp =3D Nothing
> > > > > > Application.ScreenUpdating =3D True
> > > > > > End Sub- Hide quoted text -
>
> > > > > - Show quoted text -- Hide quoted text -
>
> > > > - Show quoted text -- Hide quoted text -
>
> > > - Show quoted text -- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -

Dudely
Wed Aug 13 15:45:47 PDT 2008

I seem to have found the problem. I was filtering the incoming email
and deleting it automatically before I ever got a chance to see it. I
figured it out by changing my email address and sending it to gmail
instead of back to myself with Outlook. So the problem never actually
existed, but without being able to see the email in the first place
using .Display, it would of taken me much longer to figure out what I
was doing wrong. So thanks very much for your assistance Ron, and of
course thank you for the original code as well! Thanks also to Doug
for your kind efforts.

On Aug 13, 3:30=A0pm, Dudely <ab3...@gmail.com> wrote:
> I fixed the body problem. =A0I was still looking in column E, whereas
> the message was in column A. =A0Silly me. =A0The unprintable chars turned
> out to be the newlines being added. =A0So, that's not an issue any
> more. =A0Just the original stated problem remains. =A0Can't send email.
>
> Thank you
>
> On Aug 13, 3:21=A0pm, Dudely <ab3...@gmail.com> wrote:
>
>
>
> > Hi Ron!
>
> > Changing to .Display brings up an Outlook mail pre-addressed to myself
> > with the correct subject. =A0Interestingly, there is no body.
>
> > One thing I did was change the body to include rows through 30. =A0I
> > also notice that the body var (strBody) contains all non-printables
> > for some reason.
>
> > In any event, I now SEND the mail by clicking the send button manually
> > and it seems to send in that I don't get any errors of any kind...
> > but, I never get the email back; i.e. it's not delivered to me. =A0So I
> > assume it's not going out.
>
> > Sending an email to myself through Outlook the normal way generates a
> > return email exactly as expected.
>
> > (And yes, email is in column A and the "yes" is in column C)
>
> > On Aug 13, 2:00=A0pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
>
> > > Hi Dudely
>
> > > Change
>
> > > .Send
>
> > > To
>
> > > .Display
>
> > > Do you see the mails ?
>
> > > Are the mail addresses manual entered in Column A?
>
> > > --
>
> > > Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm
>
> > > "Dudely" <ab3...@gmail.com> wrote in messagenews:222cc827-5408-450c-a=
bc1-2f508170ed88@r15g2000prh.googlegroups.com...
>
> > > There is nothing in the outbox. =A0And, just so you know I'm only
> > > attempting to send out one message - to myself - so that I know
> > > whether or not it's sent & received.
>
> > > On Aug 13, 12:41 pm, "Doug Robbins - Word MVP"
>
> > > <d...@REMOVECAPSmvps.org> wrote:
> > > > Have you looked in the Outbox
>
> > > > --
> > > > Hope this helps.
>
> > > > Please reply to the newsgroup unless you wish to avail yourself of =
my
> > > > services on a paid consulting basis.
>
> > > > Doug Robbins - Word MVP
>
> > > > "Dudely" <ab3...@gmail.com> wrote in message
>
> > > >news:2f038efd-c068-4a26-87b7-210f24957b34@v16g2000prc.googlegroups.c=
om...
> > > > Actually the code comes from here:http://www.rondebruin.nl/mail/fol=
der3/message.htm
>
> > > > I made some fairly minor modifications.
>
> > > > And yes, I can email from Word using File>Send.
>
> > > > So, the problem still remains. Is there perhaps a temp directory I
> > > > can check to see if the mail is just sitting there for some reason?
>
> > > > Thank you
>
> > > > On Aug 12, 11:30 pm, "Doug Robbins - Word MVP"
>
> > > > <d...@REMOVECAPSmvps.org> wrote:
> > > > > Your code appears to be essentially the same as that in the artic=
le to
> > > > > which
> > > > > I referred you. Are you able to send a document via email by usin=
g the
> > > > > File>Send facility in Word? If not, see the following page of fel=
low MVP
> > > > > Peter Jamieson's website:
>
> > > > >http://tips.pjmsn.me.uk/t0002.htm
>
> > > > > --
> > > > > Hope this helps.
>
> > > > > Please reply to the newsgroup unless you wish to avail yourself o=
f my
> > > > > services on a paid consulting basis.
>
> > > > > Doug Robbins - Word MVP
>
> > > > > "Dudely" <ab3...@gmail.com> wrote in message
>
> > > > >news:0928f9c4-824a-4207-b152-ca6cd86be3cd@v26g2000prm.googlegroups=
.com...
> > > > > I suppose it's possible I might need to make use of that utitlity=
,
> > > > > however at the moment that answer does not address the problem I'=
m
> > > > > actually having as best as I can tell.
>
> > > > > Anybody else know what's going on here? Is there a more appropria=
te
> > > > > group to ask this question? The outlook people didn't seem all th=
at
> > > > > knowledgable in general and I don't think this is the kind of que=
stion
> > > > > they would know much about since it's about programming and not t=
he
> > > > > application itself necessarily.
>
> > > > > Thank you
>
> > > > > On Aug 12, 5:21 pm, "Doug Robbins - Word MVP"
>
> > > > > <d...@REMOVECAPSmvps.org> wrote:
> > > > > > You probably need to make use of the Express ClickYes utility t=
hat is
> > > > > > mentioned in the Preparations section of the article "Mail Merg=
e to
> > > > > > E-mail
> > > > > > with Attachments" at:
>
> > > > > >http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
>
> > > > > > --
> > > > > > Hope this helps.
>
> > > > > > Please reply to the newsgroup unless you wish to avail yourself=
of my
> > > > > > services on a paid consulting basis.
>
> > > > > > Doug Robbins - Word MVP
>
> > > > > > "Dudely" <ab3...@gmail.com> wrote in message
>
> > > > > >news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegrou=
ps.com...
>
> > > > > > > I'm trying to mail something to a list of addresses in my
> > > > > > > spreadsheet. As best as I can tell, everything works fine EXC=
EPT, the
> > > > > > > mail never seems to go out. I don't believe there are any err=
ors
> > > > > > > being returned as I step through it and it seems to execute e=
ach
> > > > > > > statement just fine. Any ideas? Here's the function. I have O=
ffice
> > > > > > > 2000 installed on WinXP.
>
> > > > > > > Sub mailMessage()
> > > > > > > Dim OutApp As Object
> > > > > > > Dim OutMail As Object
> > > > > > > Dim cell As Range
> > > > > > > Dim strBody As String
>
> > > > > > > Application.ScreenUpdating =3D False
> > > > > > > Set OutApp =3D CreateObject("Outlook.Application")
> > > > > > > OutApp.Session.Logon
>
> > > > > > > Call getBody(strBody)
>
> > > > > > > On Error GoTo cleanup
> > > > > > > For Each cell In
> > > > > > > Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeCo=
nstants)
> > > > > > > If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
> > > > > > > 2).Value) =3D "yes" Then
> > > > > > > Set OutMail =3D OutApp.CreateItem(0)
>
> > > > > > > On Error Resume Next
> > > > > > > With OutMail
> > > > > > > .To =3D cell.Value
> > > > > > > .Subject =3D "Enter Subject Here"
> > > > > > > .Body =3D strBody
> > > > > > > .Send
> > > > > > > End With
> > > > > > > On Error GoTo 0
>
> > > > > > > Set OutMail =3D Nothing
> > > > > > > End If
> > > > > > > Next cell
>
> > > > > > > cleanup:
> > > > > > > Set OutApp =3D Nothing
> > > > > > > Application.ScreenUpdating =3D True
> > > > > > > End Sub- Hide quoted text -
>
> > > > > > - Show quoted text -- Hide quoted text -
>
> > > > > - Show quoted text -- Hide quoted text -
>
> > > > - Show quoted text -- Hide quoted text -
>
> > > - Show quoted text -- Hide quoted text -
>
> > - Show quoted text -- Hide quoted text -
>
> - Show quoted text -

Graham
Wed Aug 13 22:35:29 PDT 2008

It might help to set Outlook not to send mail immediately - then you don't
get any embarrassing faux pas when testing with your live data. The mail
then goes to your outbox where it remains until you send it.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>



Dudely wrote:
> I seem to have found the problem. I was filtering the incoming email
> and deleting it automatically before I ever got a chance to see it. I
> figured it out by changing my email address and sending it to gmail
> instead of back to myself with Outlook. So the problem never actually
> existed, but without being able to see the email in the first place
> using .Display, it would of taken me much longer to figure out what I
> was doing wrong. So thanks very much for your assistance Ron, and of
> course thank you for the original code as well! Thanks also to Doug
> for your kind efforts.
>
> On Aug 13, 3:30 pm, Dudely <ab3...@gmail.com> wrote:
>> I fixed the body problem. I was still looking in column E, whereas
>> the message was in column A. Silly me. The unprintable chars turned
>> out to be the newlines being added. So, that's not an issue any
>> more. Just the original stated problem remains. Can't send email.
>>
>> Thank you
>>
>> On Aug 13, 3:21 pm, Dudely <ab3...@gmail.com> wrote:
>>
>>
>>
>>> Hi Ron!
>>
>>> Changing to .Display brings up an Outlook mail pre-addressed to
>>> myself with the correct subject. Interestingly, there is no body.
>>
>>> One thing I did was change the body to include rows through 30. I
>>> also notice that the body var (strBody) contains all non-printables
>>> for some reason.
>>
>>> In any event, I now SEND the mail by clicking the send button
>>> manually and it seems to send in that I don't get any errors of any
>>> kind... but, I never get the email back; i.e. it's not delivered to
>>> me. So I assume it's not going out.
>>
>>> Sending an email to myself through Outlook the normal way generates
>>> a return email exactly as expected.
>>
>>> (And yes, email is in column A and the "yes" is in column C)
>>
>>> On Aug 13, 2:00 pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
>>
>>>> Hi Dudely
>>
>>>> Change
>>
>>>> .Send
>>
>>>> To
>>
>>>> .Display
>>
>>>> Do you see the mails ?
>>
>>>> Are the mail addresses manual entered in Column A?
>>
>>>> --
>>
>>>> Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm
>>
>>>> "Dudely" <ab3...@gmail.com> wrote in
>>>> messagenews:222cc827-5408-450c-abc1-2f508170ed88@r15g2000prh.googlegroups.com...
>>
>>>> There is nothing in the outbox. And, just so you know I'm only
>>>> attempting to send out one message - to myself - so that I know
>>>> whether or not it's sent & received.
>>
>>>> On Aug 13, 12:41 pm, "Doug Robbins - Word MVP"
>>
>>>> <d...@REMOVECAPSmvps.org> wrote:
>>>>> Have you looked in the Outbox
>>
>>>>> --
>>>>> Hope this helps.
>>
>>>>> Please reply to the newsgroup unless you wish to avail yourself
>>>>> of my
>>>>> services on a paid consulting basis.
>>
>>>>> Doug Robbins - Word MVP
>>
>>>>> "Dudely" <ab3...@gmail.com> wrote in message
>>
>>>>> news:2f038efd-c068-4a26-87b7-210f24957b34@v16g2000prc.googlegroups.com...
>>>>> Actually the code comes from
>>>>> here:http://www.rondebruin.nl/mail/folder3/message.htm
>>
>>>>> I made some fairly minor modifications.
>>
>>>>> And yes, I can email from Word using File>Send.
>>
>>>>> So, the problem still remains. Is there perhaps a temp directory I
>>>>> can check to see if the mail is just sitting there for some
>>>>> reason?
>>
>>>>> Thank you
>>
>>>>> On Aug 12, 11:30 pm, "Doug Robbins - Word MVP"
>>
>>>>> <d...@REMOVECAPSmvps.org> wrote:
>>>>>> Your code appears to be essentially the same as that in the
>>>>>> article to which
>>>>>> I referred you. Are you able to send a document via email by
>>>>>> using the File>Send facility in Word? If not, see the following
>>>>>> page of fellow MVP Peter Jamieson's website:
>>
>>>>>> http://tips.pjmsn.me.uk/t0002.htm
>>
>>>>>> --
>>>>>> Hope this helps.
>>
>>>>>> Please reply to the newsgroup unless you wish to avail yourself
>>>>>> of my services on a paid consulting basis.
>>
>>>>>> Doug Robbins - Word MVP
>>
>>>>>> "Dudely" <ab3...@gmail.com> wrote in message
>>
>>>>>> news:0928f9c4-824a-4207-b152-ca6cd86be3cd@v26g2000prm.googlegroups.com...
>>>>>> I suppose it's possible I might need to make use of that
>>>>>> utitlity, however at the moment that answer does not address the
>>>>>> problem I'm actually having as best as I can tell.
>>
>>>>>> Anybody else know what's going on here? Is there a more
>>>>>> appropriate group to ask this question? The outlook people
>>>>>> didn't seem all that knowledgable in general and I don't think
>>>>>> this is the kind of question they would know much about since
>>>>>> it's about programming and not the application itself
>>>>>> necessarily.
>>
>>>>>> Thank you
>>
>>>>>> On Aug 12, 5:21 pm, "Doug Robbins - Word MVP"
>>
>>>>>> <d...@REMOVECAPSmvps.org> wrote:
>>>>>>> You probably need to make use of the Express ClickYes utility
>>>>>>> that is mentioned in the Preparations section of the article
>>>>>>> "Mail Merge to E-mail
>>>>>>> with Attachments" at:
>>
>>>>>>> http://word.mvps.org/FAQs/MailMerge/MergeWithAttachments.htm
>>
>>>>>>> --
>>>>>>> Hope this helps.
>>
>>>>>>> Please reply to the newsgroup unless you wish to avail yourself
>>>>>>> of my services on a paid consulting basis.
>>
>>>>>>> Doug Robbins - Word MVP
>>
>>>>>>> "Dudely" <ab3...@gmail.com> wrote in message
>>
>>>>>>> news:bc57ddfc-cc22-406b-aef3-fb473d061983@v16g2000prc.googlegroups.com...
>>
>>>>>>>> I'm trying to mail something to a list of addresses in my
>>>>>>>> spreadsheet. As best as I can tell, everything works fine
>>>>>>>> EXCEPT, the mail never seems to go out. I don't believe there
>>>>>>>> are any errors being returned as I step through it and it
>>>>>>>> seems to execute each statement just fine. Any ideas? Here's
>>>>>>>> the function. I have Office 2000 installed on WinXP.
>>
>>>>>>>> Sub mailMessage()
>>>>>>>> Dim OutApp As Object
>>>>>>>> Dim OutMail As Object
>>>>>>>> Dim cell As Range
>>>>>>>> Dim strBody As String
>>
>>>>>>>> Application.ScreenUpdating = False
>>>>>>>> Set OutApp = CreateObject("Outlook.Application")
>>>>>>>> OutApp.Session.Logon
>>
>>>>>>>> Call getBody(strBody)
>>
>>>>>>>> On Error GoTo cleanup
>>>>>>>> For Each cell In
>>>>>>>> Sheets("Sheet1").Columns("A").Cells.SpecialCells(xlCellTypeConstants)
>>>>>>>> If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0,
>>>>>>>> 2).Value) = "yes" Then
>>>>>>>> Set OutMail = OutApp.CreateItem(0)
>>
>>>>>>>> On Error Resume Next
>>>>>>>> With OutMail
>>>>>>>> .To = cell.Value
>>>>>>>> .Subject = "Enter Subject Here"
>>>>>>>> .Body = strBody
>>>>>>>> .Send
>>>>>>>> End With
>>>>>>>> On Error GoTo 0
>>
>>>>>>>> Set OutMail = Nothing
>>>>>>>> End If
>>>>>>>> Next cell
>>
>>>>>>>> cleanup:
>>>>>>>> Set OutApp = Nothing
>>>>>>>> Application.ScreenUpdating = True
>>>>>>>> End Sub- Hide quoted text -
>>
>>>>>>> - Show quoted text -- Hide quoted text -
>>
>>>>>> - Show quoted text -- Hide quoted text -
>>
>>>>> - Show quoted text -- Hide quoted text -
>>
>>>> - Show quoted text -- Hide quoted text -
>>
>>> - Show quoted text -- Hide quoted text -
>>
>> - Show quoted text -