Ho creato da qualche mese un cms personalizzato per un cliente...ad ogni inserimento di news da parte dell'amministratore del cms parte un email a tutti gli iscritti (sono una quarantina al momento).
Il problema è che ad alcuni le email arrivano come spam mentre ad altri no...a me ad esempio (che sono tra gli iscritti) arrivano normalmente.
Il codice che ho utilizzato è il seguente:
codice:
' Dichiara l'oggetto email e la configurazione
Dim objMail, objConfig
' Dimensiona l'oggetto email
Set objMail = Server.createObject("CDO.Message")
' ====================================
'Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
' Mittente dell'email (indirizzo)
objMail.From = "info@miosoto.com"
' Destinatario dell'email (indirizzo)
objMail.To = "info@miosoto.com"
objMail.Bcc = TutteEmail
' Oggetto dell'email
objMail.Subject = "News dal sito xxx"
' Valore di priorità
objMail.Fields("urn:schemas:httpmail:importance").Value = 2
objMail.Fields.update()
objMail.CreateMHTMLBody "http://www.miosoto.net/indexmail.asp?random=numerorandom"
' Invia l'email
objMail.Send()