E-Mail mit Anhang
08.06.2006 15:16:23
Torge
wer kann mir sagen, an welcher Stelle hier im Code eine Datei als Anhang mit versendet werden kann?
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = "Rechnungen"
.Body = "Sehr geehrte Damen und Herren " & Chr(13) & _
"Bitte prüfen Sie die angehängten Rechnungen" & Chr(13) & _
"Viele Grüße " & Chr(13) & _
Application.UserName
.To = "Rewe@Maci.de"
.CC = "Fibu@Maci.de"
.BCC = "info@test.de.de"
End With
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
Vielen Dank an der Stelle.
Gruß Torge