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
Das Ganze funktioniert auch ohne Probleme, jedoch weiß ich nicht, wie ich die Datei als PDF temporär speichere und nicht als Excel-Datei.Ich wäre über jede Hilfe dankbar!
Mit freundlichen Grüßen
Niklas