Potrà essere utile per qualcun altro.. io ho risolto così:
codice:
<%
Const CdoReferenceTypeName = 1
Dim objCDO, objBP
Set objCDO = Server.CreateObject("CDO.Message")
objCDO.MimeFormatted = True
objCDO.From = "info@miosito.it"
objCDO.Subject = "E-MAIL DA miosito"
html = html & "<html>"
html = html & "<div align=""center"">"
html = html & "[img][/img]"
html = html & "</div></html>"
objCDO.HTMLBody = html
Set objBP = objCDO.AddRelatedBodyPart(Server.MapPath("foto.jpg"), "foto.jpg", CdoReferenceTypeName)
objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "<foto.jpg>"
objBP.Fields.Update
objCDO.To = "lucafarigu@miosito.it"
objCDO.Send
%>