Anhang an Email
01.07.2007 13:09:00
Herrmann
ich nutze den unten stehenden Code um eine Mail zu erzeugen. Die einzelnen Bestandteile der Mail werden aus der Tabelle22 ausgelesen. Eigentlich ist der Code fertig. Ich möchte allerdings, dass die aktive Mappe Anhang zu dieser Mail wird.
Kann mir da jemand helfen?
Vielen Dank im Voraus!
Gruß
Herrmann
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Tabelle22.Range("B43") And Tabelle22.Range("B44")
.Subject = Tabelle22.Range("B45")
.body = Tabelle22.Range("B46") & Chr(13) & Tabelle22.Range("B47") & Chr(13) & Tabelle22.Range("B48") & Chr(13) & Tabelle22.Range("B49") & Chr(13) & Tabelle22.Range("B50")
.Display
'.Send 'Hier wird die Mail gesendet
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing