Prova con questo:
codice:
set iMsg=server.createobject("CDO.Message")
set iconf=server.createobject("CDO.Configuration")
Set Flds = iconf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.1"
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 'Anonimous
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "mittente@tuodominio.xx"
destinatario = "destinatario@email.it"
oggetto = "Prova email"
messaggio = "Invio con CDOSYS"
With iMsg
'Assegnazione delle configurazioni
Set .Configuration = iconf
.From = mittente
.To = destinatario
.Subject = oggetto
'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio
'Invio di una pagina web
.CreateMHTMLBody "http://www.novacomitalia.com/home/"
'Invio con allegato
'.AddAttachment server.mappath("/public/test.txt")
'Invia l'email
.Send
End With
Set Flds = Nothing
Set iconf = Nothing
Set iMsg = Nothing
Ovviamente devi cambiare l'smtp server e gli indirizzi di posta