Auf einmal Laufzeitfehler - Mailanhang

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Auf einmal Laufzeitfehler - Mailanhang
von: Andreas
Geschrieben am: 05.05.2015 09:28:19

Hallo,
ich habe mir mit diversen Foren einen VBA Code gebaut, der mir eine PDF erstellt und diese an eine Email anhängt.
Es hat bei den ersten beiden Testläufen wunderbar funktioniert und ich war tierisch begeistert. Seit heute Morgen bekomm ich allerdings immer einen Laufzeitfehler -2147024894 (80070002) und der Debugger zeigt mir folgende Zeile an:
.Attachments.Add DatNam
Unten ist der komplette Code, der wie gesagt auch schon zwei mal wunderbar gelaufen ist und mir die Mail mit Anhang geöffnet hat.
Kann hier jemand helfen und mir sagen, wo der Fehler liegt?


Private Sub Commandbutton1_Click()
    Dim strPfad As String
    Dim DatNam As String
    DatNam = "COB_" & Sheets("COB1").Range("D8").Text & "_" & Sheets("COB1").Range("D3").Text &  _
".pdf"
    strPfad = Environ("UserProfile") & "\Desktop\"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPfad & DatNam, _
        Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    
    Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
              .TO = "ich@ich.de"
              .CC = ""
              .Subject = "Confirmation on board_" & Sheets("COB1").Range("D8").Text & "_" &  _
Sheets("COB1").Range("D3").Text
              .Attachments.Add DatNam
              .Display
    End With
End Sub

Bild

Betrifft: AW: Auf einmal Laufzeitfehler - Mailanhang
von: mumpel
Geschrieben am: 05.05.2015 09:47:57
Hallo!
Beim Anhang fehlt der Pfad, nur der Dateiname reicht nicht.
Gruß, René

Bild

Betrifft: AW: Auf einmal Laufzeitfehler - Mailanhang
von: Andreas
Geschrieben am: 05.05.2015 10:31:20
Hallo René,
hatte ich sogar schon versucht.
Wie genau muss ich den angeben?
Danke und Gruß
Andreas

Bild

Betrifft: AW: Auf einmal Laufzeitfehler - Mailanhang
von: mumpel
Geschrieben am: 05.05.2015 12:08:09
So wie beim Exportieren: .Attachments.Add strPfad & DatNam

Bild

Betrifft: AW: Auf einmal Laufzeitfehler - Mailanhang
von: Andreas
Geschrieben am: 05.05.2015 12:21:27
So einfach kann es manchmal sein...
Vielen Dank, läuft!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Auf einmal Laufzeitfehler - Mailanhang"