Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

PDF erstellen und per E-Mail versenden

PDF erstellen und per E-Mail versenden
16.10.2019 09:40:40
Mateusz
Hallo an alle,
ich möchte gerne ein Excel Formular mit einem makro erstellen. Soweit habe ich alles hinbekommen nur hätte ich gerne den PDF Namen Dynamisch, so das er sich aus 4 Zellen erstellt und die auf dem Desktop Speichert und im Outlook eine E-Mail öffnet und im Anhang die PDF ist.
mein Code sieht wie Folgt aus.
Sub PDFundSenden()
ChDir Environ("homepath") & "\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlsmTypePDF, Filename:= _
Environ("homepath") & "\Desktop\Urlaubsantrag.pdf", OpenAfterPublish:=True
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Set OutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.to = Range("AL1")
.Subject = Range("D1") & " " & Range("A1") & Range("D3") & " " & Range("AA1")
.Body = "Hiermit beantrage ich Urlaub. Mein Urlaubsantrag ist angehängt."
myAttachments.Add Environ("homepath") & "\Desktop\Urlaubsantrag.pdf"
'.send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF erstellen und per E-Mail versenden
16.10.2019 14:51:26
Mateusz
Hab die Lösung doch noch selber herausgefunden ;)
Sub PDFundSenden()
Dim Datei As String
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Datei = Range("D1") & " " & Range("A1") & " " & Range("D3") & " " & Range("AA1") & ".pdf"
ChDir Environ("homepath") & "\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlsmTypePDF, Filename:=Datei, OpenAfterPublish:=True
Set OutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.to = Range("AL1")
.Subject = Range("D1") & " " & Range("A1") & Range("D3") & " " & Range("AA1")
.Body = "Hiermit beantrage ich Urlaub. Mein Urlaubsantrag ist angehängt."
myAttachments.Add Environ("homepath") & "\Desktop\" & Datei
'.send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub

Anzeige

348 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige