Invio email con CDOSYS

[antosto]

Ciao a tutti,
non favete ingannare dall'oggetto di questa discussione, il problema che vado a sottoporvi credo che sia alquanto singolare (secondo la mia esperienza).

Dim objMail, objConfig 
Set objMail = Server.createObject("CDO.Message") 
Set objConfig = Server.createObject("CDO.Configuration") 

With objConfig 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With 

Set objMail.Configuration = objConfig 
objMail.From = "Pinco Pallino <pincopallino@tiscali.it>" 
objMail.To = "pincopallino@hotmail.com; [email]pincopallino@gmail.com[/email]" 
objMail.Subject = "Invio mail" 
objMail.HTMLBody = "testo di prova"
objMail.Send() 
Set objMail = Nothing 

Mi sapete spiegare perchè utilizzando questo codice soltanto l'account di Gmail riceve il messaggio di posta???

A me sembra veramente assurdo; intanto è un giorno che impazzisco dietro a questo codice; ho fatto centinaia di prove: ho inviato questo messaggio a praticamente tutti i provider da me conosciuti e soltanto gmail riceve il messaggio.

Tutto questo è accaduto dopo aver cambiato provider. Le e-mail non partivano perchè non usavo il "sendusing". Poi sono arrivato a questo punto.

Per favore aiutatemi...

[Roby_72]

Hai provato con questi?

' Cc e Bcc (opzionale)
objMail.Cc = "altroindirizzo@dominio.com; ancora@dominio.com"
objMail.Bcc = "altroindirizzo@dominio.com; ancora@dominio.com"


Roby

[antosto]

Si Roby

ho provato anche ad usare Cc e Bcc ma non è cambiato nulla, arriva soltanto su Gmail.

No so più che prove fare.