Excel Sheet als PDF versenden
30.03.2021 07:52:53
Niklas
da ich recht wenig Erfahrung habe, frage ich hier im Forum nach und wäre über jede Hilfe sehr dankbar.
Ich würde gerne eine mittels eines Codes eine Excel-Datei temporär als PDF-Dokument abspeichern und diese dann als Anhang in eine Mail packen.
Mein bisheriger Code sieht so aus:
Sub Excel_als_Mail()
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
strPfad = "Beispieldateipfad"
strBlatt = ActiveSheet.Name
Sheets(strBlatt).Copy
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name
strDatei = ActiveWorkbook.FullName
strBodyText = "Hallo, dies ist ein Test!"
With Mail
'.To = ""
'.CC = ""
.Subject = ""
.BodyFormat = 2
.Attachments.Add strDatei
.Body = strBodyText
End With
Workbooks(Dir(strDatei)).Close
Kill (strDatei)
Mail.Display
End Sub
Ich wäre über jede Hilfe dankbar!
Mit freundlichen Grüßen
Niklas
Anzeige