Guten Tag
Ich habe Makros erstellt die funktionieren. Leider mit einem Mangel. Ich möchte das PDF nicht mit dem Dateiblatt (Rechnung) benannt haben, sondern mit dem Zellinhalt E16 (RE-2024.04.03 Marktgebühr).pdf.
https://www.herber.de/bbs/user/169164.xlsm

Sub DruckUndMail()
'
' DruchUndMail Makro
' Das Datenblatt wird als Excel Datei gedruckt und als PDF im Outlook zum Versand bereitgestellt.
'
' Tastenkombination: Strg+r
'
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.Run "'HWM_Test.xlsm'!PDFundSenden"

End Sub

Sub PDFundSenden()
Dim strFilePDF As String
Dim Outlook As Object
Dim OutlookMailItem As Object

Set Outlook = CreateObject("outlook.application")
Set OutlookMailItem = Outlook.CreateItem(0)

strFilePDF = "C:\Users\info\OneDrive\Dokumente\Versuche\" & ActiveSheet.Name & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilePDF

With OutlookMailItem
.to = Range("G13")
.Subject = Range("E16")
.Body = "Guten Tag " & Range("B11") & vbLf & vbLf & "Die Rechnung ist als PDF angehängt." & vbLf & vbLf & "Mit freundlichen Grüssen" & vbLf & vbLf & "Zuger Handwerkermarkt" & vbLf & "Esther Enzler"
.Attachments.Add strFilePDF
'.send
.Display
End With

Set Outlook = Nothing
Set OutlookMailItem = Nothing
End Sub


Besten Dank für die Hilfe
HUSCH