si...
codice:
Dim iMsg As New CDO.Message
' ... .MimeFormatted defaults to True on the new message ...
Dim strHTML As String ' string in which to build up HTML body
' ...
Set iMsg = New CDO.Message
strHTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & NL
strHTML = strHTML & "<HTML>"
strHTML = strHTML & "  <HEAD>"
strHTML = strHTML & "    <TITLE>Sample GIF</TITLE>"
strHTML = strHTML & "  </HEAD>"
strHTML = strHTML & "  <BODY>

"
strHTML = strHTML & "   [img][/img]</p>

Inline graphics</p>"
strHTML = strHTML & "  </BODY>"
strHTML = strHTML & "</HTML>"
 
iMsg.HTMLBody = strHTML

iMsg.AddRelatedBodyPart "D:\wwwroot\XYZ.gif", "XYZ.gif", cdoRefTypeId

iMsg.Send
ma questo sembra cdonts non cdosys...

e in ogni caso dovrei usare un server.mapPath