|
Hallo,
du kannst keine Aktionen, die du in anderen Applikationen ausfuehrst mit dem Makro Recorder aufzeichnen. Nur Excel Befehle oder Aktionen. Um, wie in diesem Fall, im Nachhinein die gespeicherte PDF als Email Anhang zu versenden, bedarf es einiger Vorbereitung und mehr Code, da sozusagen Outlook ferngesteuert werden muss.
1. muss eine Referenz in der Excel Datei zur Outlook Objekt Bibliothek gesetzt werden, damit Aktionen von Excel aus in Outlook per VBA stattfinden koennen. Das wird gemacht, indem man im VB Editor unter Werkzeuge-Referenzen den Eintrag "Microsoft Outlook 16.0 Object Library" sucht, diesen anhakt und mot OK bestaetigt.
2. braucht es etwas mehr Code. Ich erstelle dir mal das Makro. Aber bitte versuche auch, dieses zu verstehen. Ich versuche, so viel wie moeglich Kommentare einzufuegen, damit du nachkommst.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | Sub PDF_per_Mail()
Dim Pfad As String, Datei As String
Dim Nachricht As Object, OutApp As Object
Pfad = "C:\Users\feyerabenc\AppData\Local\Temp\"
Datei = "Vorlage Entladebericht 01.08.2019 - TEST.pdf"
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & Datei, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "irgendwer@provider"
.Subject = "Testmeldung"
.Attachments.Add Pfad & Datei
.Body = "Dein Text"
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
|
Viel Spass
Gruss Torsten
|