Invio mail con Asp e gmail

[teszuo]

Salve a tutti.
Vorrei creare un modulo in cui l'utente invia dei dati e che contestualmente gli invii una mail di ricapitolazione e conferma dei dati inseriti. Uso un host gratuito (somee.com) che mette a disposizione CDOSYS per l'invio email. Purtroppo non ho capito se posso usare mia email (uso gmail) o devo per forza aprire una mail dallo stesso host per usare l'SMTP.
DI seguito il codice in Asp classic da loro fornito ma che io ho personalizzato ma il risultato è sempre

CDO.Message.1 error '80040213'
The transport failed to connect to the server.
/index.asp, line 174 (cioè ObjSendMail.Send )

Chi mi aiuta a risolvere ? grazie

      <%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message") 
     
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  587 '465 
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
     
' Google apps mail servers require outgoing authentication. Use a valid email address and password registered with Google Apps.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="teszuo@gmail.com" 'your Google apps mailbox address
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="*****" 'Google apps password for that mailbox
     
ObjSendMail.Configuration.Fields.Update
     
ObjSendMail.To = "antoninocorso1975@gmail.com"
ObjSendMail.Subject = "OGGETTO"
ObjSendMail.From = "teszuo@gmail.com"
     
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "CORPO DELLA EMAIL"
     
ObjSendMail.Send
     
Set ObjSendMail = Nothing 
%>
   %>

Tutto ok. risolto grazie. Gli admins posso cancellare il post (io non ci riesco)

[optime]

dicci come hai risolto, così aiuti qualche altro forumista che dovesse avere lo stesso problema

[teszuo]

Sono stato frettoloso. Non ho risolto.

[teszuo]

dicci come hai risolto, così aiuti qualche altro forumista che dovesse avere lo stesso problema

Ecco come ho risolto:

<%
  Dim ObjSendMail 
   Set ObjSendMail = CreateObject("CDO.Message") 
    
   'This section provides the configuration information for the remote SMTP server. 
    
   ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). 
   ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtps.aruba.it" 
   ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
   ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False) 
   ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
    
   ' Autenticazione server SMTP
   ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 
   ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="email mittente" 
   ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="********" 
    
    
   'End remote SMTP server configuration section== 
    
   'Notifica di lettura
   ObjSendMail.fields("urn:schemas:mailheader:disposition-notification-to") = "email mittente" 
   ObjSendMail.Fields("urn:schemas:mailheader:return-receipt-to") = "email mittente"  
   
   'Invio email 
   ObjSendMail.To = request.form("email destinatario")
   ObjSendMail.Subject = "OGGETTO"
   ObjSendMail.From = "email mittente" 
 ObjSendMail.Configuration.Fields.Update 
   ' we are sending a text email.. simply switch the comments around to send an html email instead 
   'ObjSendMail.HTMLBody = "this is the body"    
   'ObjSendMail.TextBody = 
   ObjSendMail.TextBody = "corpo del testo"
   
   'Invio allegato
   ObjSendMail.AddAttachment server.MapPath("../txt/proprio file")
   
   ObjSendMail.Send 
    
   Set ObjSendMail = Nothing
%>

[optime]

hai già chiesto al tuo hoster?

[Vincent.Zeno]

non ho controllato lo script ma vedo una chiusura di troppo dell'istanza asp.
è solo un errore di scrittura qui sul forum o lo hai veramente testato così?

[teszuo]

L'ho testato così in effetti (quindi con un errore) ...

[optime]

temo che non si possa usare un qualunque indirizzo email; serve il supporto dell'hoster.

[teszuo]

Già ma non risponde.
Questo però è lo script che fornisce l'host sul suo sito per i servizi Google.

[Vincent.Zeno]

come da guida:
https://somee.com/DOKA/DoHelpTopics....alse&thnid=102

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.yoursite.com"

dove "mail.yoursite.com" sta per (ad esempio) "smtp.tuodominio.tld"

prova e fai sapere