Hi Guy's I am trying to add images to an email body, i am using the following code, the sigFile (Email Signature) does go onto email body, but trying to add images by similar method but doesn't embed to body ?
I haven't pasted the full code as there is lots to remove on here
SigFile, SigPath, mySubj, imgPath, imgFile, eDisc (Email Disclaimer) and eDisc2 (Email Disclaimer) are all strings
SigFile does go onto email body, just can't get the imgFile to !!!!!!!
Code:
MailTo = Me.txtEmailAddress
SigFile = "Email Signature.jpg"
SigPath = "//T:/"
mySubj = Me.txtMake & " Confirmation"
imgPath = "//T:/Enquiry Pics/"
If Left(Me.txtMake, 4) = "Stan" Then
If Left(Me.txtBrand, 4) = "Curv" Then
img1 = "Stan Curve1.jpg"
img2 = "Stan Curve2.jpg"
img3 = "Stan Curve3.jpg"
img4 = "Stan Curve4.jpg"
a = Me.txtReply
Set myItem = myApp.CreateItem(olMailItem)
Set OutAccount = myApp.Session.Accounts.Item(2)
With myItem
.To = MailTo
.Subject = mySubj
.HTMLBody = Replace(Replace(a, "|", "<br>"), "Make", Me.txtMake) & "<br>" & "<br>" & _
img1 & "<br>" & _
"<P><IMG border=0 hspace=0 alt='' src='file:" & imgPath & img1 & "' align=baseline></P>" & "<br>" & "<br>" & _
"<P><IMG border=0 hspace=0 alt='' src='file:" & SigPath & SigFile & "' align=baseline></P>" & "<br>" & "<br>" & _
"<FONT color=#0000CD>" & eDisc & "<br>" & "<FONT color =#0000CD>" & eDisc2
.SendUsingAccount = OutAccount
.Display
End With
End If
End If