ciao,
il codice è il seguente
codice:
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
mittente = "mittente@miodominio.xx"
destinatario = toemail
oggetto = "Prova email"
messaggio = "Testo msg in HTML"
With iMsg
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
.HTMLBody = messaggio
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
ho sentito che mettendo la riga
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
si può omettere il server smtp ma non funziona lo stesso...
ciao