email text file - error

[Josh_123456]

Could someone please help me with the following error...

I am trying to send a text file and the 1st text message goes without any problems...

When it tries to send the 2nd message I get a debug that stops on the

.To

the error states that the address can not be found....I am using the same email address on both of these, if that is what is triggering the error.


Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)


If Range("F5").Value = "Yes" Then
With OutMail
.To = "myemail@mydomain.com"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = GetBoiler("locationoffile\borrow.txt")
.Send 'or use .Display
End With
End If

If Range("G5").Value = "Yes" Then
With OutMail
.To = "myemail@mydomain.com"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = GetBoiler("locationoffile\cob.txt")
.Send 'or use .Display
End With
End If


Set OutMail = Nothing
Set OutApp = Nothing

End Sub


thanks for any help

[Josh_123456]

Can anyone point me in the right direction???


thank you

Josh

[Charles]

Josh_123456,

Looking at you code it does not have a loop to check for another "Yes". However I modified your code.
See if this helps.

Please Login or Register  to view this content.

[Josh_123456]

What if I want to send an email to both parties....Based on yes in certain fields...


Josh

[Charles]

Josh,

Here's a site that may help.

http://www.rondebruin.nl/sendmail.htm

If you still need help let me know.

[dororke]

Hi,

I think you need to create a 2nd OutMail item as the first item has been sent.

Try putting a second Set OutMail = OutApp.CreateItem(olMailItem) before the 2nd With Outmail commands.

i.e.
Set OutMail = OutApp.CreateItem(olMailItem)
If Range("F5").Value = "Yes" Then
With OutMail
.To = "myemail@mydomain.com"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = GetBoiler("locationoffile\borrow.txt")
.Display 'Send 'or use .Display
End With
End If

Set OutMail = OutApp.CreateItem(olMailItem)
If Range("G5").Value = "Yes" Then
With OutMail
.To = "myemail@mydomain.com"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = GetBoiler("locationoffile\cob.txt")
.Send 'or use .Display
End With
End If


Hope this helps.
Dan