Invio mail con Asp e gmail

[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
%>

[Roby140569]

In "email mittente" metti una casella Gmail?

Avevo fatto dei test e mi arrivava sulla Gmail questa email: "Tentativo di accesso bloccato. Qualcuno ha appena utilizzato la tua password per tentare di accedere al tuo account. Google ha bloccato il tentativo di accesso, ma dovresti controllare cos'è successo."
Sicuramente questo avviso è legato alle impostazioni di sicurezza della mia Gmail. Non sono stato a cambiare niente.

[teszuo]

In "email mittente" metti una casella Gmail?

Avevo fatto dei test e mi arrivava sulla Gmail questa email: "Tentativo di accesso bloccato. Qualcuno ha appena utilizzato la tua password per tentare di accedere al tuo account. Google ha bloccato il tentativo di accesso, ma dovresti controllare cos'è successo."
Sicuramente questo avviso è legato alle impostazioni di sicurezza della mia Gmail. Non sono stato a cambiare niente.

Esatto avevo provato con GMAIL ma non riuscivo (identica cosa anche a me). Poi ho messo una email aruba con server smtps di Aruba e va ok.
Piuttosto non capisco perché mi invia la email di conferma della prenotazione anche se c'è un campo doppio che in caso di ripetizione avvisa di fallimento (ed in effetti la registrazione non avviene ma la email va lo stesso).