This is a vb code snippet by Dmitry Streblechenko (MVP).It worked fine for me.
Set objOutlook = CreateObject("Outlook.Application")
Set Ns = objOutlook.GetNamespace("MAPI")
Ns.Logon
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
Set objOutlookRecip = objOutlookMsg.Recipients.Add("test@dimastr.com")
objOutlookRecip.Type = olTo
objOutlookMsg.Subject = "test"
Set colAttach = objOutlookMsg.Attachments
Set l_Attach = colAttach.Add("z:\Temp\8\1.jpg ")
l_Attach.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x370E001F", "image/jpeg"
l_Attach.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x3712001F", "myident"
objOutlookMsg.PropertyAccessor.SetProperty "http://schemas.microsoft.com/mapi/id/{00062008-0000-0000-C000-000000000046}/8514000B", True
objOutlookMsg.BodyFormat = olFormatHTML
msgHTMLBody = "<html>" & _
"<head>" & _
"</head>" & _
"<body>" & _
" <img align="baseline" border="1" hspace="0" src="cid:myident" width="" 600="" hold=" /> "></img></body></html>"
objOutlookMsg.HTMLBody = msgHTMLBody
objOutlookMsg.Save
objOutlookMsg.Send
Dmitry Streblechenko (MVP)
http://www.dimastr.com/redemption
Redemption - what the Outlook
Object Model should have been