Bilder als Anhang
25.02.2019 10:15:11
Oisse
ich möchte gerne alle Bilder eines Ordners als Anhang in einer Email einfügen und habe dabei folgenden Codeschnipsel:
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .HTMLBody
.To = Email
.subject = "Dankeschön"
.HTMLBody = Text & "
" & olOldBody
'Bilderbereich
For Each pic In Pfad.Files
Debug.Print pic.Name
.Attachments.Add pic
Next
End With
Wenn ich die Bilder per Debug.Print ausgeben lasse kommen sie einwandfrei. D.h. es wird jedes Bild gefunden. Aber bei der Zeile: .Attachments.Add pic kommt die Fehlermeldung:
Objekt unterstütz diese Eigenschaft oder Methode nicht.
Wie bitte muss ich das ändern?
Gruß Oisse
Anzeige