Send picture in body of Email

geno

Registered User.
Local time
Today, 15:40
Joined
Jun 19, 2000
Messages
243
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
 

Users who are viewing this thread

Back
Top Bottom