Hallo zusammen,
aktuell versuch ich 2 Dateien als Anlage zu mailen.
Der übliche Weg ist ja kein Problem
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = ""
.Subject = strBetreff
.Body = strBody
.attachments.Add strAtt
.Display
End With
Als Anlagen habe ich folgende Daten
strATT1 = "C:\DATEN\DE\10 (EINGANG)\DE_20210218 (VK) #18.02.2021# testmail4.xlsx"
strATT2 = "d:\Archiv\110 (EINGANG\erledigt\testmail3.xlsx"
Die exakten Pfade / Dateinamen ermittele ich per Code.
Ich habe jetzt die unterschiedlichsten Möglichkeiten versucht, die 2 Anlagen in Outlook zu übergeben.
Z.B. so: strATT = Chr(34) & strAtt1 & Chr(34) & " , " & Chr(34) & strAtt2 & Chr(34)
Als Fehlermeldung bekomme ich Datei - oder Ordnername ist ungültig.
Einzeln bekomme ich die Daten angehängt, beide aber nicht.
Jemand eine Idee, was ich falsch mache?
Da ich andere Codes gefunden habe, die mehrere Dateien über Schleifen als Anlage eingebunden haben muss es ja irgendwie funktionieren.
Danke für eure Hile
Gruß Markus
Wo ich immer wieder auf Fehler st