Serienmail in HTML mit Grafik im Body und Anhang mailmerge to email With Attachme

[E.Zenker]

Hallo

Habe in der newsgroup folgenden link erhalten DANKE!
http://word.mvps.org/faqs/mailmerge/MergeWithAttachments.htm

Funktioniert wunderbar.

Allerdings werden die im Word Dokument enthaltenen Grafiken und Hyperlinks
nicht in den MailBody übernommen.

Ich habe versucht Body durch HTMLBody zu ersetzen. Leider ohne Erfolg.

Kann mir bitte jemand sagen woran es liegt, und wie man das korrigiert.

Nachstehend Auszug aus dem Code von der oben genannten Seite.

Danke.
E. Zenker

With oItem

.Subject = mysubject
'original war .Body die mail enthält keine formatierungen und keine Grafik
'in der variante steht der text ohne formatierung in einem! Was muss ich da
hinschreiben, dass das Dokument mit Grafiken und Formatierung in den
mailbody 'geschrieben wird??
.HTMLBody = ActiveDocument.Content

Set Datarange = Maillist.Tables(1).Cell(Counter, 1).Range

Datarange.End = Datarange.End - 1

.To = Datarange

For i = 2 To Maillist.Tables(1).Columns.Count

Set Datarange = Maillist.Tables(1).Cell(Counter, i).Range

Datarange.End = Datarange.End - 1

.Attachments.Add Trim(Datarange.Text), olByValue, 1

Next i

.Send

[Peter Jamieson]

Answer attempted to one of your other messages.

Peter Jamieson

Post by E.Zenker
Hallo

Habe in der newsgroup folgenden link erhalten DANKE!
http://word.mvps.org/faqs/mailmerge/MergeWithAttachments.htm

Funktioniert wunderbar.
Allerdings werden die im Word Dokument enthaltenen Grafiken und Hyperlinks
nicht in den MailBody übernommen.
Ich habe versucht Body durch HTMLBody zu ersetzen. Leider ohne Erfolg.
Kann mir bitte jemand sagen woran es liegt, und wie man das korrigiert.
Nachstehend Auszug aus dem Code von der oben genannten Seite.
Danke.
E. Zenker
With oItem
.Subject = mysubject
'original war .Body die mail enthält keine formatierungen und keine Grafik
'in der variante steht der text ohne formatierung in einem! Was muss ich
da hinschreiben, dass das Dokument mit Grafiken und Formatierung in den
mailbody 'geschrieben wird??
.HTMLBody = ActiveDocument.Content
Set Datarange = Maillist.Tables(1).Cell(Counter, 1).Range
Datarange.End = Datarange.End - 1
.To = Datarange
For i = 2 To Maillist.Tables(1).Columns.Count
Set Datarange = Maillist.Tables(1).Cell(Counter, i).Range
Datarange.End = Datarange.End - 1
.Attachments.Add Trim(Datarange.Text), olByValue, 1
Next i
.Send