E-Mail Anhänge
26.11.2021 15:20:54
linux
ich bin auf der Suche nach einer Möglichkeit eine oder mehrere Dateien an eine E-Mail anzuhängen, welche per VBA erstellt wird. Im Moment läuft es so ab, dass eine zuvor erstellte PDF gespeichert wird und diese dann als Anhang angehängt wird. Das funktioniert auch einwandfrei.
Nun hätte ich es aber gerne so, dass beim Sub zum erstellen der E-Mail sich der Windows Explorer öffnet und ich selbst entscheiden kann welche Dateien angehängt werden. Welche Änderungen müsste ich dafür an dem klassischen E-Mail Code vornehmen? Den Name der PDF zieht sich das Programm aus einem vorherigen Sub.
Set outlook = CreateObject("Outlook.application")
Set mail = outlook.createitem(0)
empfänger = Application.InputBox("E-Mailadresse eingeben", vbOK)
With mail
.to = empfänger
.Subject = "Test"
.body = name
.attachments.Add "C:\Ordner1\Unterornder1\PDF\" _
& name & ".pdf"
.display
End With