Newsletter inviata diventa spam

[luca1317]

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 (asp) che ho utilizzato è il seguente:

' 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 miosito net/indexmail.asp?random=numerorandom" 

' Invia l'email
objMail.Send()