Hallo liebe VBA Cracks

ich möchte gerne aus einem Excel-Register ein PDF erzeugen (Druckbereich ist eingerichtet) und per Outlook als Mailanhang versenden. Leider läuft mir das Macro beim PDF erzeugen auf Fehler und ich finde es nicht raus (den ganzen Sonntag verdonkt) . Herzlichen Dank für Eure Unterstützung:

Sub sendMail()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\testPDF.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
mePDFD = ThisWorkbook.Path & "\testPDF.pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Sheets("Tabelle1").Range("G1")
.Subject = Sheets("Tabelle1").Range("G3")
.body = ""
.Attachments.Add mePDFD
.Display
'.Send
Kill mePDFD
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub