cdosys CreateMHTMLBody non funziona

[DarioMarco]

Salve a tutti, non riesco a mandare una pagina html contenente un'immagine tramite l'oggetto cdosys, questo il codice:

//Raccogliamo i campi
destinatari = Request.Form("destinatari")
oggetto = Request.Form("oggetto")

//Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
//Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
//Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True


With iMsg

//Assegnazione delle configurazioni
Set .Configuration = iConf

.From = "staff@miosito.est"
.To = destinatari
.Subject = oggetto

.CreateMHTMLBody "http://www.mioSito.est/modelli/auguri/natale1.htm"

.Send() 

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>

invece facendo in questo modo funziona alla perfezione

//Raccogliamo i campi
destinatari = Request.Form("destinatari")
oggetto = Request.Form("oggetto")

//Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
//Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
//Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

With iMsg

//Assegnazione delle configurazioni
Set .Configuration = iConf

.From = "staff@miosito.est"
.To = destinatari
.Subject = oggetto

.HTMLBody = "<table width='100%' border='0' cellpadding='50'><tr><td align='center' valign='middle'><map name='Map' id='Map'><area shape='rect' coords='18,18,253,114' href='http://www.miosito.est' /></map>    </td></tr></table>"


.Send() 

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>

come posso fare per mandare questa immagine tramite pagina html???
Grazie e auguri.