VBA - Laufzeitfehler 91 "Objektvariable od. With-Blockvariable nicht festgelegt"

[SteBen]

Hallo zusammen,

ich habe folgenden Code, der mein WorkSheets als PDF speichert & per Mail verschicken soll.

Code:

Dim Save As String

ChDir "P:\00000_X\Adhoc\Quote archive\"
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, Filename:= _
        "P:\00000_X\Adhoc\Quote archive\" & Worksheets("Quote").Range("F11"), 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 outlookitem = Outlookapp.CreateItem(0)
Set myattachments = OutlookMailItem.Attachments

With OutlookMailItem
.To = Sheets("Quote").Range("L6")
.Subject = Sheets("Quote").Range("F11") & " " & Sheets("Quote").Range("D19") & "-" & Sheets("Quote").Range("H19") & " / " & Sheets("Quote").Range("D17") & " pieces - " & Sheets("Quote").Range("H17") & "kg"
.Body = "Please find attached quotation."
myattachments.Add Save
.Display
'.Send
End With

Set Outlookapp = Nothing
Set OutlookMailItem = Nothing


End Sub

Leider bekomme ich jedoch immer dem im Betreff genannten Laufzeitfehler mit Verweis auf diese Stelle des Codes:

Set myattachments = OutlookMailItem.Attachments

Was mache ich falsch?

Danke Euch

VG
SteBen

[AlterDresdner]

Hallo Steßen,
Empfehlung: am Anfang des Codes Option Explicit schreiben, erzwingt Deklaration von Variablen.
Damit gehören Flüchtigkeitfehler wie OutlooApp und OutlokMailItem der Vergangenheit an...

[SteBen]

Danke für den Hinweis :)