Hey guys, again me and my mail troubles 
I get the image but as attachment, how can I get it as a part of the HTMLBody just like I get it when sending over Outlook?
Code:
Dim FileName As String
Dim emailText As Stringt
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Dim varReturn As Variant
Dim objImage As Object
Dim myPic As String
If Not MyRs.EOF Then
MyRs.MoveFirst
While Not MyRs.EOF
Set iMsg = CreateObject("CDO.Message")
FileName = Format(MyRs!IdCustomer, "000000") & "_" & Left(MyRs!Date, 2) & "_" & Right(MyRs!Date, 2)
FilePath = "D:\PDF\" & Right(MyRs!Date, 4) & "year\" & FileName & ".pdf"
emailText = emailText & _
"<p style= 'margin:0;'>Dear,</p>" & _
"<br>" & _
"some text "
With iMsg
Set .Configuration = iConf
.To = MyRs!FirstOfEmail
.CC = ""
.BCC = ""
.From = """MyName or sth"" <email@gmail.com>"
.Subject = "Subject text"
.HTMLBody = emailText & GetTextFileContents("D:\mylocatin\signature.html") & "<html>Check this out: <img src=""cid:myimg.png""></html>"
Set objImage = iMsg.AddRelatedBodyPart("D:\mylocation\myimg.png", "myimg.png", cdoRefTypeId)
objImage.Fields.Item("urn:schemas:mailheader:Content-ID") = "<myimg.png>"
objImage.Fields.Update
.HTMLBodyPart.Charset = "utf-8"
.AddRelatedBodyPart "D:\mylocation\myimg.png", "myimg.png", cdoRefTypeId
.AddAttachment FilePath
.Send
End With
Set iMsg = Nothing
emailText = ""
MyRs.MoveNext
Wend
DoCmd.Hourglass False
varReturn = SysCmd(acSysCmdSetStatus, " ")
MsgBox "E-mails sent.", vbInformation
End IfI get the image but as attachment, how can I get it as a part of the HTMLBody just like I get it when sending over Outlook?