Geacht forum,
Ik heb een storing met het verzenden van de facturen welke ik niet opgelost krijg.
Graag de oplossing wat er fout is gegaan.
Bij voorbaat dank voor de snelle reactie.
With iMsg
.AutoGenerateTextBody = False
Set .Configuration = iConf
.To = HW.Sheets(Blad).Range("E13")
.CC = "SMTPusername"
.BCC = ""
.From = SMTPusername
.Subject = msgOnderwerp
.HTMLBody = "<html><img src=""cid:LogoDistrict.gif""></html>" & msgTekst
Set objImage = iMsg.AddRelatedBodyPart(ThisWorkbook.Path & "\LogoDistrict.gif", "LogoDistrict.gif", 1)
objImage.Fields.Item("urn:schemas:mailheader:Content-ID") = "<LogoDistrict.gif>"
objImage.Fields.Update
.AddRelatedBodyPart ThisWorkbook.Path & "\LogoDistrict.gif", "LogoDistrict.gif", 1
.AddAttachment PDF
.Send
End With
Ik heb een storing met het verzenden van de facturen welke ik niet opgelost krijg.
Graag de oplossing wat er fout is gegaan.
Bij voorbaat dank voor de snelle reactie.
With iMsg
.AutoGenerateTextBody = False
Set .Configuration = iConf
.To = HW.Sheets(Blad).Range("E13")
.CC = "SMTPusername"
.BCC = ""
.From = SMTPusername
.Subject = msgOnderwerp
.HTMLBody = "<html><img src=""cid:LogoDistrict.gif""></html>" & msgTekst
Set objImage = iMsg.AddRelatedBodyPart(ThisWorkbook.Path & "\LogoDistrict.gif", "LogoDistrict.gif", 1)
objImage.Fields.Item("urn:schemas:mailheader:Content-ID") = "<LogoDistrict.gif>"
objImage.Fields.Update
.AddRelatedBodyPart ThisWorkbook.Path & "\LogoDistrict.gif", "LogoDistrict.gif", 1
.AddAttachment PDF
.Send
End With