Datei automatisch als PDF benennen
30.09.2017 19:20:29
HUSCH
Ich möchte aus einer Datei einzelne Datenblätter als PDF generieren und per Outlook versenden. Der Dateiname sollte automatisch den Datenblattnamen übernehmen.
Ebenfalls möchte ich den Mailtext brechen. So wie es jetzt programmiert ist kommt nur die Zeile
Mit freundlichen Grüssen.
Bis jetzt habe ich folgendes programmiert:
Sub PDFundSenden()
ChDir "C:\Users\Husch\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Husch\Desktop\Lohnabrechnung.pdf", OpenAfterPublish:=True
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachements As Object
Set OutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.to = Range("B27")
.Subject = Range("B28")
.Body = "Die Excel Datei ist als PDF angehängt."
.Body = "Mit freundlichen Grüssen"
myAttachments.Add "C:\Users\Husch\Desktop\Lohnabrechnung.pdf"
'.send
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
Wer kann mir weiter helfen. Ich bin neu auf der Seite.
Mit freundlichen Grüssen
Anzeige