Office: Excel Tabelle beim ausdrucken automatisch als Anlage in Outlook einfügen

Servus zusammen,

ich möchte eine Excel Tabelle beim ausdrucken automatisch in Outlook als Anlage einfügen.

Ich habe aus einem Forum diesen Code für Office2007 bekommen:

Sub EMailVersendenOutlook()
Dim obNachricht As Object
Dim obMail As Object
ActiveSheet.Copy
ActiveWorkbook.SaveAs Environ$("temp") & "/" & "Anhang.xls"
Set obMail = CreateObject("Outlook.Application")
Set obNachricht = obMail.CreateItem(0)
With obNachricht
.To = "Deine@Mailadresse.de"
.Subject = "Erinnerung"
.Body = "Sehr geehrte Damen und Herren," & vbLf & vbLf & _
"Im Anhang die gewünschte Datei"
.ReadReceiptRequested = False
.attachments.Add Environ$("temp") & "/" & "Anhang.xls"
.send
End With
Set obNachricht = Nothing
Set obMail = Nothing
ActiveWorkbook.Close savechanges:=False
Kill Environ$("temp") & "/" & "Anhang.xls"
End Sub

Ich verwend jedoch auf einem Laptop auch Office2003. Man konnte mir in diesem Forum jedoch für 2003 nicht helfen.

Hat hier jemand eine Abhilfe für mich?

Vielen Dank




Gruß Robert

 

Hallo,

schau mal ob dir die Beispiele 3 oder 4 auf dieser Seite weiterhelfen:

http://www.office.gmxhome.de/_excel_outlook.htm