I am able to automate a mailing to a list, but I cannot get the message to copy properly from the sample I set up. The text itself comes through OK but the inlline image gets lost and the text font gets lost (reverts to my default standard of Arial instead of using the font in the sample email). I have a single email (my sample) in the "sample" folder of the inbox, and this code picks up the text of that message as the content of the new message, but as I said, the inline image gets thrown out and the font is not what is used in the sample.

Dim oApp As Outlook.Application
Dim oNameSpace As NameSpace
Dim oFolder As MAPIFolder
Dim oMailItem As MailItem, oMailitem2 As MailItem

Set oApp = New Outlook.Application
Set oNameSpace = oApp.GetNamespace("MAPI")
Set oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)
Set oFolder = oFolder.Folders("sample")
Set oMailItem = oFolder.Items.GetFirst

Set oMailitem2 = oApp.CreateItem(olMailItem)
oMailitem2.To = "phinds@phinds.com"
oMailitem2.BodyFormat = olFormatHTML
oMailitem2.Body = oMailItem.Body
oMailitem2.Subject = "sample email item 5"

Set oMailItem = Nothing
Set oFolder = Nothing
Set oNameSpace = Nothing

any ideas ???


Paul Hinds