email aus Excel erstellen

03/08/2008 - 18:13 von FotoArt24 | Report spam
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
 

Lesen sie die antworten

#1 Wolfgang Kutsche
04/08/2008 - 10:18 | Warnen spam
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


"" wrote:

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

Ähnliche fragen