Office: Code Erweiterung

Hallo zusammen, bin neu hier und hoff auf Eure Hilfe.
Unter Windows xp home nutze ich Office 2003
Wie kann ich unteren VBA Code ergänzen, so dass
ich in Zelle A5 meiner Exeldatei eingebe "Tabelle 7"
und diese dann in Outlook angehängt wird ?

Bitte Ergänzungen im Code farblich markieren. Danke.
Gruß
Manfred1

Hier der Code:

Sub Email()
Dim ol, Mail As Object
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Muster " & Now

Mail.To = "Mustermann@freenet.de"
Mail.cc = ""
Mail.bcc = ""

Mail.body = Chr(13) & "Hallo," & Chr(13) & _
"ich möchte Sie informieren über....." & Chr(13) & Chr(13) & Chr(13) & _
"Gruß" & Chr(13) & "Mustermann" & Chr(13) & Chr(13) & _
"Dieses Mail wurde automatisch versandt."

Mail.Display
End Sub

 

Hallo!

Ich kann zwar nichts testen, da ich nicht mit Outlook arbeite, aber einen Anhang fügst du z.B. so ein:

Sub Email()
Dim ol, Mail As Object
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Mail.Subject = " Muster " & Now
Mail.To = "Mustermann@freenet.de"
Mail.cc = ""
Mail.bcc = ""
Mail.Attachments.Add "C:\Pfad\Name.xls"
Mail.body = Chr(13) & "Hallo," & Chr(13) & _
"ich möchte Sie informieren über....." & Chr(13) & Chr(13) & Chr(13) & _
"Gruß" & Chr(13) & "Mustermann" & Chr(13) & Chr(13) & _
"Dieses Mail wurde automatisch versandt."
Mail.Display
End Sub

Wenn der Dateiname aus A5 kommt, dann musst du ihn dir zusammenbauen:

"C:\Pfad\" & Range("A5") & ".xls"