Worksheet als Anhang verschicken funkioniert nicht
20.09.2004 14:06:13
Zico
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