Mail Merge to E-mail including formated text and Pictures with Attachments

[E.Zenker]

Hi

with the macro from:
http://word.mvps.org/faqs/mailmerge/MergeWithAttachments.htm

it is not possible to get formated text and pictures in the mail body !!

i tried to use HTMLBody in the macro but no result:

Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.Subject = mysubject
.HTMLBody = ActiveDocument.Content ' is the reason
ActiveDocument.Content
' i
dont know how to get the
'
formated text and pictures out of the
'
word document into the
'
mail body of outlook 2002

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
..................etc
Please help
E.Zenker

 

[Peter Jamieson]

Answer attempted to one of your other messages.

Peter Jamieson

 

[aek]

Hi

with the macro from:
http://word.mvps.org/faqs/mailmerge/MergeWithAttachments.htm

it is not possible to get formated text and pictures in the mail body !!

i tried to use HTMLBody in the macro but no result:

Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.Subject = mysubject
.HTMLBody = ActiveDocument.Content ' is the reason
ActiveDocument.Content
'
i dont know how to get the
'
formated text and pictures out of the
'
word document into the
'
mail body of outlook 2002

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
.................etc
Please help
E.Zenker