email aus Excel erstellen

[Foto...@googlemail.com]

Hi,

ich habe ein Sheet als Anhang aus Excel herraus versendet.
Soweit ist mein Prog ok.
Jetzt meine Frage: Kann ich auch den "boby" also den Inhalt bei der
"SendMail Methode" festlegen ???
Ich würde gern auf der VBA eben den Text festlegen oder halt ggf aus
einer Zelle lesen lassen.
Habe da nur Vorgaben für den Empfänger und den Betreff gefunden.

Danke euch schon mal im vorraus

[Wolfgang Kutsche]

Hallo Unbekannte(r),

hier ein Codeschnipsel, mit dem ich Mails aus Excel versende:

Die Variablen Betreff, Text, MailText, i, Spalte sowie die Zellbezüge musst
Du noch Deinen Gegebenheiten anpassen.

Mit '.Body = ' wird der Textinhalt der Mail gesetzt.

Set oItem = objOutlook.CreateItem(olMailItem)
With oItem
'** Betreff eintragen
.Subject = Betreff
'** Anrede eintragen
Sheets("Mail").Cells(9, 2) = Sheets("Adressen").Cells(i, Spalte)
'** Adresse übernehmen
.To = Sheets("Adressen").Cells(i, 8)
'** Anhänge übernehmen
For j = 5 To 24
If Sheets("Anhänge").Cells(j, 2) <> "" Then
.Attachments.Add Trim(Sheets("Anhänge").Cells(j, 2)),
olByValue, 1
End If
Next
'** Anrede hinzufügen und Text der Mail übernehmen
Text = Sheets("Mail").Cells(9, 2) & vbCrLf & MailText
.Body = Text
'** Mail an Outlook senden
.Send
End With
Set oItem = Nothing

--
Gruß Wolfgang
WinXP Home SP2, Office 2003 SP3 & 2007 SP1
http://www.wk-bau-edv.de