E
E.Zenker
Hallo
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
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