Geacht forum,
Wie kan mij helpen? Bij een poging om een bestand aan te passen heb ik fouten gemaakt,
Tabbladen van niet meer bestaande verenigingen heb ik verwijderd en probeer nu als test een Nota te verzenden maar krijg de foutmelding Fout 2147220975
Ik hoop dat iemand mij kan helpen alles weer werkend te krijgen.
Wie kan mij helpen? Bij een poging om een bestand aan te passen heb ik fouten gemaakt,
Tabbladen van niet meer bestaande verenigingen heb ik verwijderd en probeer nu als test een Nota te verzenden maar krijg de foutmelding Fout 2147220975
Ik hoop dat iemand mij kan helpen alles weer werkend te krijgen.
Code:
With iMsg
.AutoGenerateTextBody = False
Set .Configuration = iConf
.To = HW.Sheets(Blad).Range("E13")
.CC = ""
.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
Bijlagen
Laatst bewerkt door een moderator: