none
Mandar un Mensaje desde la Página Web a correo electrónico en ASP RRS feed

  • Pregunta

  • Buenas tardes mi duda es acerca de como enviar un correo desde la página Web a un correo electrónico (ya sea Gmail, Hotmail, Outlook, etc.) en ASP (No ASP.NET). Esto debido a que tengo mi página web subida a jabry.com y en este servidor no me permiten usar ASP.NET solo ASP. Esto ultimo es lo que me menciona la página del servidor ya mencionado:

    Can I run ColdFusion, php, or .NET scripts? 
    At this point, we support ASP scripts. We do not support ColdFusion, .NET, nor php scripts.)

    He hecho un script, pero lamentablemente me pide el password de la cuenta de correo a la que envia la información, y esto provoca que mi proveedor de correo electrónico me indique que un usuario desconocido quiere accesar a mi cuenta y que por lo tanto tengo que cambiar la contraseña. Por ello pido de su ayuda, para hacer una página en ASP para mandar correos electrónicos sin la necesidad de tener que escribir mi contraseña para que no me indique mi proovedor de email que tengo que cambiar en cada instante la contraseña. Por su atención gracias.
    viernes, 12 de abril de 2013 0:33

Respuestas

  • <!-- 
       METADATA
       TYPE="typelib"
       UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"  
       NAME="CDO for Windows 2000 Library"
    -->  
    <%  
       Set cdoConfig = CreateObject("CDO.Configuration")  

       With cdoConfig.Fields  
           .Item(cdoSendUsingMethod) = 2  
           .Item(cdoSMTPServer) = "smtp.gmail.com"  
           .Item(cdoSMTPServerPort) = 465
           .Item(cdoSMTPAuthenticate) = 1  
           .Item(cdoSendUsername) = "YOUR_USERNAME"  
           .Item(cdoSendPassword) = "YOUR_PASSWORD"  
           .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
           .Update  
       End With

       Set cdoMessage = CreateObject("CDO.Message")  
       With cdoMessage
           Set .Configuration = cdoConfig
           .From = "YOUR_EMAIL"
           .To = "RECIPIENT_EMAIL"
           .Subject = "YOUR_SUBJECT"
           .TextBody = "YOUR_MESSAGE"
           .Send
       End With

       Set cdoMessage = Nothing  
       Set cdoConfig = Nothing  
    %>

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    sábado, 13 de abril de 2013 6:43

Todas las respuestas

  • <!-- 
       METADATA
       TYPE="typelib"
       UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"  
       NAME="CDO for Windows 2000 Library"
    -->  
    <%  
       Set cdoConfig = CreateObject("CDO.Configuration")  

       With cdoConfig.Fields  
           .Item(cdoSendUsingMethod) = 2  
           .Item(cdoSMTPServer) = "smtp.gmail.com"  
           .Item(cdoSMTPServerPort) = 465
           .Item(cdoSMTPAuthenticate) = 1  
           .Item(cdoSendUsername) = "YOUR_USERNAME"  
           .Item(cdoSendPassword) = "YOUR_PASSWORD"  
           .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
           .Update  
       End With

       Set cdoMessage = CreateObject("CDO.Message")  
       With cdoMessage
           Set .Configuration = cdoConfig
           .From = "YOUR_EMAIL"
           .To = "RECIPIENT_EMAIL"
           .Subject = "YOUR_SUBJECT"
           .TextBody = "YOUR_MESSAGE"
           .Send
       End With

       Set cdoMessage = Nothing  
       Set cdoConfig = Nothing  
    %>

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    sábado, 13 de abril de 2013 6:43
  • Hola Sergio Parra:

    El código que me envías es exactamente el que uso y el que me genera el problema con las contraseñas debido a esta sección

    .Item(cdoSendPassword) = "YOUR_PASSWORD"  

    ¿Hay alguna manera de usar este código sin tener que escribir la contraseña de mi cuenta de correo?
    miércoles, 17 de abril de 2013 23:22
  • Pero como vas a identificarte si no usas usuario y contraseña?? yo cada vez que me conecti a mi cuenta de Hotmail necesito meter un password...

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    jueves, 18 de abril de 2013 4:50
  • Yo solo he logrado envir correo con cdo usando cuenta de gmail como remitente, lo autentico y llega a la bandeja de entrada a pesar de que no estés en la lista de contactos del destinatario.

    Por cuestiones de seguridad, entonces crea otra cuenta de gmail solo de envío.

    Para poder autenticar, debes enviar la contraseña.

    viernes, 19 de abril de 2013 16:21
  • Te lo dije... Un saludo

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    viernes, 19 de abril de 2013 16:49