Buongiorno,
Uso questo codice per inviare una mail in formato testo:
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = "info@sesso-amatoriale-gratis.it"
.From = mail
.Sender = nomeutente
.Subject = "Nuovo utente registrato su S-A-G.it"
.TextBody = vbCrLf & "Modulo compilato il: ecc. ecc."
.Send
End With
La mia domanda è:
quali modifiche devo apportare per inviare in formato HTML?
Grazie
Luca Vizzi
Rispondi quotando
