Habe meinen Kommentar am Ende selbst nicht mehr beachtet. Nochmal:
Sub PDF_und_Senden()
Dim Dateiname As String
Dim Outlook As Object, OutlookApp As Object, OutlookMailItem As Object
Dim myAttachments As Object
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") 'Tabellenname anpassen
'wenn du die codes in einem allgemeinen MOdul stehen hast, solltest du immer
'auf das gewuenschte Tabellenblatt verweisen, da sonst immer das aktive Tabellenblatt vom Code
'angesprochen wird
'um Schreibarbeit zu sparen, entweder With Anweisung oder das Tabellenblatt in eine Variable
'habe hier die Variable genommen
Dateiname = ws.Range("K3") & "\" & ws.Range("K2") & ".pdf" 'wenn beim Pfad kein abschliessendes \ angegeben ist, ansonsten wieder aendern
ws.Range("A1:G48").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.To = ws.Range("K16")
.Subject = ws.Range("K17")
.Body = ws.Range("K37")
myAttachments.Add Dateiname
.Display
End With
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
|