mit nachfolgendem Code hänge ich mehrere Dateien an eine Email an. Das klappt auch wunderbar, solange ich mich auf ein Format zb PDF beschränke.
Wenn ich allerdings alle Formate (*.*) innerhalb eines VZ global anhängen möchte, also dass er zb jpg pdf berücksicht,
dann bekomme ich einen Laufzeitfehler. Kann mir vl. jemand hier unter die Arme greifen?
Lieben Dank.
Private Sub Uebergabe_an_Outlook()
Dim olapp As Object
Dim olOldbody As String
Dim myAttachment As String
Dim Betreff As String
sPfadAVS = Worksheets("Setup").Range("F20").Value
sPfadAktenscan = "C:\Anhang\"
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.GetInspector.Display
olOldbody = .htmlBody
.To = LCase(EmailToAdresse)
.cc = LCase(EmailCCAdresse)
.bcc = ""
myAttachment = Dir$(sPfadAktenscan & "*.pdf") ' ""
If Not IsEmpty(myAttachment) Then .Attachments.Add sPfadAktenscan & myAttachment
myAttachment = Dir$()
Loop
End With
End Sub