Dim sDateiname As String
Dim sPfad As String
sPfad = "c:\Temp\"
sDateiname = "Test.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sPfad & sDateiname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
With CreateObject("Outlook.Application")
With .CreateItem(0)
.To = ""
.CC = ""
.Subject = sDateiname
.BodyFormat = 2
.Attachments.Add sPfad & sDateiname
.Display
End With
End With