Mit Word erstellte PDF als Anhang an E-Mail anhängen
Zipo
Erstmal Hallo an Alle, das ist mein erster Beitrag.
Ich habe eine Excel-Datei für Kunden- und eine für Rechnungsdaten. Aus beiden generiere ich per VBA in Word eine Rechnung, die automatisch als PDF gespeichert wird. Als nächste Station kommt der Versand der Rechnung per E-Mail. Per VBA bekomme ich es hin, dass eine von mir erstellte Outlook-Vorlage geöffnet wird und mit den jeweiligen Daten aus Excel gefüttert wird.
Wie schaffe ich es, das die gerade erstellte PDF-Rechnung dort als Anhang angehängt wird?
Ich hatte gedacht, ich lasse einen Hyperlink der Datei in eine Zelle einfügen und nehme mir dann den Pfad aus der Zelle als Wert für .attachements. Ich bekomme das aber nicht hin. Sollte jemand etwas dazu schreiben, danke schonmal im Vorraus. Nach nunmehr 10 Stunden probieren und Tutorials schauen verzweifel ich so langsam. Wahrscheinlich ist es ganz einfach.
Folgend der Code für die E-Mail-Erstellung.
Sub EMailErstellen()
'Variablen festlegen
Dim oApp As Object
Dim oMail As Object
Dim Zeile As Long
Zeile = ActiveCell.Row
'Richtiges Tabellenblatt aktivieren
Sheets("Rechnungen").Activate
'Late Binding
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItemFromTemplate("Outlook-Vorlage.oft")
'Mail erstellen
With oMail
.Display
.to = Rechnungen2023.Cells(Zeile, 6).Value
End With
End Sub