Erstelltes PDF via VBA in Outlook einfügen

[Primo Centurio]

Hallo miteinander

Ich hoffe ihr hattet alle schöne Pfingsten.

Ich habe folgendes Problem und ich konnte bis jetzt keine Lösung finden.

Folgender Befehl speicher mir das Blatt in ein PDF mit einem bestimmten Namen. Jedes Mal wenn er mir das gleiche PDF im Outlook einfügen soll, bekomme ich den Laufzeitfehler 440.

Kann mir jemand sagen, ob ich ihm code einen Fehler habe?

Code:

Private Sub CommandButton1_Click()
   Const DateiPfad = "R:\01 Rezeption\03_Verträge\2018 HS\"
   Dim DateiName As String
   
   DateiName = DateiPfad & Range("E13") & "_" & Range("L4") & ".pdf"  ' Name und Erstelldatum

   Range("A1:L114").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       DateiName, Quality:=xlQualityStandard, _
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
       False
       
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments

With OutlookMailItem
.To = Range("J4")
.Subject = "Offer"
Body = ""
myAttachments.Add = DateiName
.Display
End With

Set OutlookApp = Nothing
Set OutlookMailItem = Nothing

End Sub

Herzlichen Dank und freundliche Grüsse

Primo Centurio

[MisterBurns]

Hallo,

nimm bei

Code:

myAttachments.Add = DateiName

das "=" raus, dann sollte es hinhauen.

Außerdem fehlt for "Body" der Punkt

[Primo Centurio]

Ausgezeichnet Mister Burns  :19:

Herzlichen Dank dir, und für den Hinweis betreffen dem . vor dem body.

Wünsche dir noch einen schönen Tag.

Freundliche Grüsse

Primo Centurio