Microsoft Excel

Herbers Excel/VBA-Archiv

Worksheet als Anhang verschicken funkioniert nicht

Betrifft: Worksheet als Anhang verschicken funkioniert nicht von: Zico
Geschrieben am: 20.09.2004 14:06:13

Hallo zusammen,

ich möchte aus Excel heraus eine eMail erstellen, die wiederum das aktuelle Excel-Worksheet als Anlage enthält:

Private Sub MailAblehnung()
    Dim olMailNOK As Object
    
    Set objOutlook = CreateObject("Outlook.Application")
    'Aktive Arbeitsmappe wird als Mail gesendet
    Set olMailNOK = objOutlook.CreateItem(0)
    With olMailNOK
        .To = "Chef"
        .Subject = "Abgelehnt: Spesenabrechnung"
        .Attachments.Add ActiveWorkbook.FullName
        .Body = "Blablabla"
        .Display
    End With
End Sub


Leider bleibt es immer in der Zeile ".Attachments.Add ActiveWorkbook.FullName" hängen und VB bringt folgende Fehlermeldung:

Laufzeitfehler '-2147024894(80070002)': Outlook kann diese Datei nicht finden. Bitte überprüfen Sie, ob Pfad und Dateiname korrekt angegeben wurden.

Anscheinend denkt das Programm, ich wollte eine Datei als Anhang verschicken, aber wieso? Kann mir jemand weiterhelfen?

Danke vorab & Gruß, Zico
  


Betrifft: AW: Worksheet als Anhang verschicken funkioniert nicht von: Zico
Geschrieben am: 21.09.2004 08:15:24

Hat mir niemand einen Rat?