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

  • Thread starter Thread starter E.Zenker
  • Start date Start date
E

E.Zenker

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

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
 
Back
Top