Sue (and others)-

I've tried to adapt the code provided below, and have been very impressed
once I figured out how to get it integrated with my code that cycles through
to create the individual emails. I now have two challenges that I think are
both easy for someone who knows Outlook (e.g. not me);

- using the following code doesn't set a recipient, but I think I can do
that with some variation of:
l_Msg.to = SendToName

I'll often have more than one attachment (see the loop below) and only the
first one gets translated into an in-line image instead of an attachment.
I'd also like to insert a carriage return (or two) between each image, so it
is easy for the recipient to reply and have space to type between the images
in their response. I've marked the relevant parts of code with ** below  :)

I'd also like to set a recipient, but I think I can do that with some
variation of:
l_Msg.to = SendToName

Many thanks,
Keith

My slightly adapted code, based on the referenced web page:

Function EmbeddedHTMLGraphicDemo(SendToName As String, SendFileCount As
Integer)
 ' adapted from http://www.outlookcode.com/d/code/htmlimg.htm
 ' Outlook objects
 Dim objApp As Outlook.Application
 Dim l_Msg As MailItem
 Dim colAttach As Outlook.Attachments
 Dim l_Attach As Outlook.Attachment
 Dim oSession As MAPI.Session
 ' CDO objects
 Dim oMsg As MAPI.Message
 Dim oAttachs As MAPI.Attachments
 Dim oAttach As MAPI.Attachment
 Dim colFields As MAPI.Fields
 Dim oField As MAPI.Field

 Dim strEntryID As String

 ' create new Outlook MailItem
 Set objApp = CreateObject("Outlook.Application")
 Set l_Msg = objApp.CreateItem(olMailItem)
 ' add graphic as attachment to Outlook message
 ' change path to graphic as needed
 Set colAttach = l_Msg.Attachments

   FName = "c:\" & SendToName
   FExt = ".gif"

 'loop to add each graphical file
 For n = 1 To SendFileCount
 Set l_Attach = colAttach.Add(FName & CStr(n) & FExt)
 '**  how can I add (inline) a few hard returns here? **
 Next

 l_Msg.Close olSave
 strEntryID = l_Msg.EntryID
 Set l_Msg = Nothing
 '  POSITION CRITICAL  you must dereference the
 ' attachment objects before changing their properties
 ' via CDO
 Set colAttach = Nothing
 Set l_Attach = Nothing

 ' initialize CDO session
 On Error Resume Next
 Set oSession = CreateObject("MAPI.Session")
 oSession.Logon "", "", False, False

 ' get the message created earlier
 Set oMsg = oSession.GetMessage(strEntryID)
 ' set properties of the attached graphic that make
 ' it embedded and give it an ID for use in an <IMG> tag
 Set oAttachs = oMsg.Attachments

 ' ** to make all images inline- should I just loop and assume they are all
1 to SendFileCount? **
 ' ** I don't understand what this block does  :-/  **
'e.g.
'For q = 1 to SendFileCount
'Set oAttach = oAttachs.Item(q)
'Set colFields = oAttach.Fields
'Set oField = colFields.Add(CdoPR_ATTACH_MIME_TAG, "image/jpeg")
'Set oField = colFields.Add(&H3712001E, "myident")
'oMsg.Fields.Add "{0820060000000000C000000000000046}0x8514", 11, True
'next q

'existing code that only changes the first attachment
 Set oAttach = oAttachs.Item(1)
 Set colFields = oAttach.Fields
 Set oField = colFields.Add(CdoPR_ATTACH_MIME_TAG, "image/jpeg")
 Set oField = colFields.Add(&H3712001E, "myident")
 oMsg.Fields.Add "{0820060000000000C000000000000046}0x8514", 11, True
 oMsg.Update

 ' get the Outlook MailItem again
 Set l_Msg = objApp.GetNamespace("MAPI").GetItemFromID(strEntryID)
 ' add HTML content -- the <IMG> tag
 l_Msg.HTMLBody = "<IMG align=baseline border=0 hspace=0 src=cid:myident>"
 l_Msg.Close (olSave)
 l_Msg.Display

 ' clean up objects
 Set oField = Nothing
 Set colFields = Nothing
 Set oMsg = Nothing
 oSession.Logoff
 Set oSession = Nothing
 Set objApp = Nothing
 Set l_Msg = Nothing
End Function