Hi,
I need to add a picture to the body of an email using Send Mail. My code is as follows:
strto = Me.EmailAddress
strShipper = Me.txtShipperID
strWayBill = Me.txtWayBill
strWebSite = Me.txtWebSite
strName = Me.TxtEmployeeName
strSignature = Me.Signature.Picture
Set EmailApp = CreateObject("Outlook.Application")
Set NameSpace = EmailApp.getNameSpace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)
If IsNull(Me.EmailAddress) Then
Else
EmailSend.to = strto ' Put email address here
End If
EmailSend.Subject = "Blah Blah"
EmailSend.Body = strSignature
EmailSend.Attachments.Add "C:\Email Invoice.pdf" ' Change this to match your path
EmailSend.Display ' Remove this line if you don't want to see email
Set EmailApp = Nothing
Set NameSpace = Nothing
Set EmailSend = Nothing
When I send the email the picture doesn't show just the path to where the picture is shows.
Thanks for any advice
Geno
I need to add a picture to the body of an email using Send Mail. My code is as follows:
strto = Me.EmailAddress
strShipper = Me.txtShipperID
strWayBill = Me.txtWayBill
strWebSite = Me.txtWebSite
strName = Me.TxtEmployeeName
strSignature = Me.Signature.Picture
Set EmailApp = CreateObject("Outlook.Application")
Set NameSpace = EmailApp.getNameSpace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)
If IsNull(Me.EmailAddress) Then
Else
EmailSend.to = strto ' Put email address here
End If
EmailSend.Subject = "Blah Blah"
EmailSend.Body = strSignature
EmailSend.Attachments.Add "C:\Email Invoice.pdf" ' Change this to match your path
EmailSend.Display ' Remove this line if you don't want to see email
Set EmailApp = Nothing
Set NameSpace = Nothing
Set EmailSend = Nothing
When I send the email the picture doesn't show just the path to where the picture is shows.
Thanks for any advice
Geno