si esiste..
devi effettuare un embedded con cdo usando il metodo MHTML
codice:
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "localhost"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.MimeFormatted = True
.From = "newsletter@tuosito.it"
.Bcc = lista
.Subject = oggetto
.CreateMHTMLBody "http://www.tuosito.it/email_base.asp"
.Fields("urn:schemas:httpmail:importance").Value = 1
.Fields.Update()
.Send()
End With
Dove email_base.asp crea la pagina html da inviare.