Ragazzi sto creando un sistema per l'invio della mailing list utilizzando un smtp esterno ad aruba; cercando in giro ho trovato alcune informazioni e ho iniziato a fare i test.

A questo punto ho notato che settando questa riga con il valore 2 mi esce questo errore

Fields.Item(cdoSendUsingPort) = 2

error '80040211'
/swmail/inviamail.asp, line 66
che si riferisce all'oggetto objMail.Send()

mentre se setto la stessa riga con il valore 1

Fields.Item(cdoSendUsingPort) = 1
le mail partono senza problemi.

Facendo una ricerca in giro ho trovato queste due diciture
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

e se nn vado errato il significato dovrebbe essere che se setto 1 uso l'smtp del mio provider mentre se setto 2 uso quello esterno.....
Tutto ciò premesso avendo un hosting su aruba settando 2 mi da errore xke ?






<%
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields

' richiedo autenticazione
Fields.Item(cdoSendUsingPort) = 2
Fields.Item(cdoSMTPAuthenticate) = 1

' username e password
Fields.Item(cdoSendUserName) = "forservicemilano@gmail.com"
Fields.Item(cdoSendPassword) = "milano80"

' server
Fields.Item (cdosmtpserverport) = 465
Fields.Item(cdosmtpserver) = "smtp.gmail.com"
Fields.Item (cdosmtpusessl) = True
Fields.Update


Set objMail = CreateObject("CDO.Message")
Set objMail.Configuration = Config

objMail.From ="" & mittente &"<"& emailmit &">"
objMail.To = "" & email &""
objMail.Subject = "" & oggetto &""
objMail.HTMLBody = ""& testo &""


objMail.Send()
Set Fields = Nothing
Set Config = Nothing
Set objMail = Nothing

%>