Attachments.Add findet Datei nicht

Bild

Betrifft: Attachments.Add findet Datei nicht
von: Christoph
Geschrieben am: 18.11.2015 09:11:10

Hallo,
Wenn ich die Email versenden möchte, sagt er mit die ganze zeit, das er die Dateí nicht finden. Wisst ihr wieso?

Private Sub cmdMail_Click()
    Dim Mailadresse As String, Betreff As String
    Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
    Mailadresse = "MAIL"
'    CC = "CC"
    Betreff = "" & " - " & Tabelle9.Cells(4, 6) & " - " & Tabelle9.Cells(15, 7)
    Textinhalt = ""
    
     Tabelle9.Range("A1:J55").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\c\Desktop\" & "S" & " - " & Tabelle9.Cells(4, 6) & " - " & Tabelle9.Cells(15,  _
7), Quality _
        :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _
        , OpenAfterPublish:=False
    With olApp.CreateItem(0)
        .to = Mailadresse
'        .CC = CC
        .Subject = Betreff
        .Attachments.Add ("C:\Users\c\Desktop\" & "S" & " - " & Tabelle9.Cells(4, 6) & " - " &  _
Tabelle9.Cells(15, 7))
        .Body = Textinhalt
        .Display
    End With
    Set olApp = Nothing
End Sub
Vielen Dank schonmal!

Bild

Betrifft: fehlt die Erweiterung .pdf ? o.T.
von: Sepp
Geschrieben am: 18.11.2015 09:14:11

Gruß Sepp


Bild

Betrifft: AW: Attachments.Add findet Datei nicht
von: Christoph
Geschrieben am: 18.11.2015 09:22:44
Vielen Dank! Das war der Fehler

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Attachments.Add findet Datei nicht"