Enviar email

[Jamati]

Hola, a ver si me puede aconsejar algo.
Tengo el siguiente codigo:

Código HTML:

<% 
var CdoMail = Server.CreateObject("CDO.Message");
CdoMail.From = Request.Form("email");
CdoMail.To = [email protected];
CdoMail.Subject = "Prueba";
Mensaje = '<font face="Arial,Helvetica" size=2>Prueba</font><br>';
Mensaje += '<font face="Arial,Helvetica" size=2>' + Request.Form("texto") + '</font>';
CdoMail.HTMLBody = Mensaje;
CdoMail.Send();
CdoMail = null;
%> 

esto es un ejemplo de lo que tengo. El problema es que muchas veces, ante distintos servidores donde manda el email (acá puse una direccion de ejemplo como [email protected]) pero muchas veces me llegan rebotados coom diciendo que no se pudo enviar por diferentes motivos, como por ejemplo:

Diagnostic-Code: smtp;501 Domain must resolve

Diagnostic-Code: smtp;554 5.7.1 Relay access denied

Diagnostic-Code: smtp;533 demasiados usuarios de correo desconocidos (#5.3.3)

Action: failed Status: 5.4.0

Diagnostic-Code: smtp;500 Message rejected because it contains links to an IP address that is blacklisted

entonces mi pregunta es si tengo que poner algo mas en donde mando el mail ??, como ser autenticacion, o algun comando que desconozco donde sea mas seguro el envio y no me rebote tanto.

Bueno, perdón por lo largo y desde ya muchas gracias a quien pueda ayudarme.

[Shiryu_Libra]

... pero al parecer la ip, de donde mandas tus correos esta dentro de la lista negra de spam

Diagnostic-Code: smtp;500 Message rejected because it contains links to an IP address that is blacklisted

es un servidor propio o es de pago??

por que en ese sentido, tus correos o los de tus clientes, estarian condenados a llegar a medias, o incluso no llegar a ningun lado

[Jamati]

es un servidor pago y tengo contratado un plan no Linux (para paginas PHP), sino NT para poder hacer ASP.

Por eso iba mi consulta, porque me parece raro que lleguen de 100 cuentas diferentes donde manda el mail, la mitad me llega rebotado por esos diferentes errores que comenté antes.

Entonces mi pregunta se basaba en preguntar si hay alguna forma mas segura, algun comando que es importante poner y yo no lo hago, o un envio de emaik mediante ASP mejor preparado y que llegue mejor el envío; ya que esta forma me trae mucho dolor de cabeza.

Gracias por la respuesta.
Saludos.

[JuanRAPerez]

ummm pues creo que buscar un poco mas en google sobre cada error para ir evacuando

+Diagnostic-Code: smtp;501 Domain must resolve
+ Diagnostic-Code: smtp;554 5.7.1 Relay access denied
+ Diagnostic-Code: smtp;533 demasiados usuarios de correo desconocidos (#5.3.3)
+ Action: failed Status: 5.4.0
+ Diagnostic-Code: smtp;500 Message rejected because it contains links to an IP address that is blacklisted

Algunos de los errores se arreglan enviando el correo con una cuenta autenticada al servidor de envió, dado que así reconocen que fue enviado el correo con una cuenta valida de el servidor que dice estarla enviando

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@mycompa

lee mas información en:

http://www.motobit.com/tips/detpg_email-asp-external/


la otra es verificar que el envió lo haces de uno en uno con un ciclo

lee un poco:
http://soporte.soportefeliz.com/inde...barticleid=222

http://www.sitioshispanos.com/pregun...l/ver-pregunta

[Jamati]

Claro, eso precisamente es lo que quiero saber, como hacer para autenticar los correos que salen desde ASP, ya que solo lo hago asi por el momento:

Código HTML:

<% 
var CdoMail = Server.CreateObject("CDO.Message");
CdoMail.From = Request.Form("email");
CdoMail.To = [email protected];
CdoMail.Subject = "Prueba";
Mensaje = '<font face="Arial,Helvetica" size=2>Prueba</font><br>';
Mensaje += '<font face="Arial,Helvetica" size=2>' + Request.Form("texto") + '</font>';
CdoMail.HTMLBody = Mensaje;
CdoMail.Send();
CdoMail = null;
%> 

lo que no entendí bien es el tema de los links que enviaste, sigo sin saber como hacer para autenticar un email enviado por ASP, podrías hacer un ejemplo sobre ese codigo que puse ??

Muchas gracias igualmente y muy amable.

[Jamati]

Nadie sabe como hacer para enviar un formulario indicando nombre de usuario y la clave ?, como para autenticar el correo indicando la clave y el usuario.

Supongo que de esta forma dejará de llegar a algunos servidores como spam.

Desde ya muchas gracias igualmente.

[Jamati]

Me parece que mi consulta no tuvo exito.

Nadie sabe como hacer para enviar un formulario indicando nombre de usuario y la clave de mi cuenta pop3 de un hosting mio?, digo esto como para autenticar el correo indicando la clave y el usuario y supongo que de esta forma dejará de llegar a algunos servidores como spam, ya que viene autenticado.

Desde ya muchas gracias igualmente.

[JuanRAPerez]

leistes los enlaces que te deje?

[Jamati]

Si los leis, pero no entiendo nada. O están en inglés, o no dicen nada al respecto... entonces se me complica mucho poder seguir esos links.

Igualmente te estoy muy agradecido, pero de inglés no entiendo nada.

Gracias

[JuanRAPerez]

Iniciado por Jamati

Me parece que mi consulta no tuvo exito.

Nadie sabe como hacer para enviar un formulario indicando nombre de usuario y la clave de mi cuenta pop3 de un hosting mio?, digo esto como para autenticar el correo indicando la clave y el usuario y supongo que de esta forma dejará de llegar a algunos servidores como spam, ya que viene autenticado.

Desde ya muchas gracias igualmente.

primer enlace de mi post:
http://www.motobit.com/tips/detpg_email-asp-external/

You can also specify authentication properties for the smtp session using smtpauthenticate and sendusername + sendpassword:
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
:)

[Jamati]

Si, no los entiendo bien... hay mucha sintaxis y creo que me sería innecesario tanto... no entiendo muy bien de lo que esta hablando.

Perdón por la molestia, pero sinceramente te agradezco muchísimo que me sigas contestando. Tu no tienes un ejemplo muy sencillo armado como para mirarlo ?

[JuanRAPerez]

tomando como fuente este post [puesto por el maestro: Muzztein ]:
http://www.forosdelweb.com/f15/bibli...ml#post2647708


podríamos adaptar algo no?

[Jamati]

Gracias nuevamente por responder.
Estuve viendo el codigo del Sr. Muzztein, pero en el mismo no encuentro el lugar donde pone el usuario y clave de la cuenta pop3 como para que sea un email con autenticación.

Puede ser que no lo esté usando ?

[JuanRAPerez]

código

Código asp:

function enviaEmail(para,cc,desde,asunto,mensaje,servidor)
    on error resume next
 
    enviaEmail = false
    
    dim objCDO,objCDOConfig,objFields
    Set objCDO      = CreateObject("CDO.Message")
    Set objCDOConfig  = CreateObject("CDO.Configuration")
    Set objFields    = objCDOConfig.Fields
        
    With objFields
      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = servidor
      .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
      .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
      .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
      .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
      .Update
    End With
    
    With objCDO
      .Configuration  = objCDOConfig
      .To          = para
    
    if cc <> false then 
      .cc          = cc
    end if   
    
      .From        = desde
      .Subject     = asunto
      .TextBody    = mensaje
      .Send
    End With
    
    Set objFields = Nothing
    Set objCDO = Nothing
    Set objCDOConfig = Nothing 
    
    if err.number = 0 then
        enviaEmail = true
    else 
        enviaEmail = err.description
    end if
    on error goto 0
 
end function
 

bueno seria que hicieras tus pruebas de código, así saldría mas fácil ayudarte

[Jamati]

Gracias, pero no logro dar con la tecla.

Si yo tengo algo armado así:

Código HTML:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%@LANGUAGE="JAVASCRIPT"%>
<% var consulta = Request.QueryString("consulta"); %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<% if (consulta == "ok"){ %>
<% 
var CdoMail = Server.CreateObject("CDO.Message");
CdoMail.From = Request.Form("email");
CdoMail.To = [email protected];
CdoMail.Subject = "Asunto";
Mensaje = 'MENSAJE QUE LLEGA POR EMAILLLL';
CdoMail.HTMLBody = Mensaje;
CdoMail.Send();
CdoMail = null;
%>
<% } else { %>
<script language="JavaScript">function enviar(){Contacto.submit();}</script>
<form action="prueba.asp?consulta=ok" method="post" name="Contacto">
  <span>Nombre:</span><input name="nombre" type="text" maxlength="25">
  <span>Email:</span><input name="email" type="text" maxlength="250">
  <br>
  <br>
  <a href="javascript:enviar()" class="enviar">ENVIAR</a>
</form>
<% } %>
</body>
</html> 

Donde y como pongo el código que tu me has pasado ??

[Jamati]

Puedes ayudarme JuanRAPerez ??

[JuanRAPerez]

oki

reemplaza tu codigo
<%
var CdoMail = Server.CreateObject("CDO.Message");
CdoMail.From = Request.Form("email");
CdoMail.To = [email protected];
CdoMail.Subject = "Asunto";
Mensaje = 'MENSAJE QUE LLEGA POR EMAILLLL';
CdoMail.HTMLBody = Mensaje;
CdoMail.Send();
CdoMail = null;
%>

coloca la función en esa parte de el código

luego la llamas asi

enviaEmail([email protected],tucuetna@domini o.com,[email protected],"prueba de correo","Este es una prueba de correo","mail.tudominio.com")

suerte

[Jamati]

Lo pruebo y te cuento, muchísimas gracias.

Pero para probarlo bien, si yo tengo el botón de enviar así:
<a href="javascript:enviar()" class="enviar">ENVIAR</a>

como hago para qeu al pulsar ese link llame a la funcion ?. perdona si pregunto tonterías, pero no domino bien el ASP.

Muchas gracias en serio.

[Adler]

Hola

Saca todo el código de la función e insertalo donde te dijo JuanRa

Suerte

[Jamati]

Estuve haciendo pruebas:

Tengo este codigo por ahora, que ni siquiera me carga y me tira errores:

Código HTML:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
function enviaEmail(para,cc,desde,asunto,mensaje,servidor)
 on error resume next

 enviaEmail = false
 
 dim objCDO,objCDOConfig,objFields
 Set objCDO = CreateObject("CDO.Message")
 Set objCDOConfig *= CreateObject("CDO.Configuration")
 Set objFields * *= objCDOConfig.Fields
 
 With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = servidor
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mi mail"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "la clave"
 .Update
End With
 
 With objCDO
 .Configuration *= objCDOConfig
 .To = para

 if cc <> false then 
 .cc = cc
 end if 
 
 .From = desde
 .Subject = asunto
 .TextBody = mensaje
 .Send
 End With
 
 Set objFields = Nothing
 Set objCDO = Nothing
 Set objCDOConfig = Nothing 
 
 if err.number = 0 then
 enviaEmail = true
 else 
 enviaEmail = err.description
 end if
 on error goto 0

end function
%>

<script language="JavaScript">function enviar(){Contacto.submit();}</script>
<form action="email.asp" method="post" name="Contacto">
  <span>Nombre:</span><input name="nombre" type="text" maxlength="25">
  <span>Email:</span><input name="email" type="text" maxlength="250">
  <br>
  <br>
  <a href="enviaEmail([email protected],[email protected],[email protected],"gran asunto","Este es una prueba de correo","mail.midominio.com")">ENVIAR</a>
</form>
</body>
</html> 

Como lo puedo ir arreglando ?
Es bastante complicado esto de mandar un email desde un formulario autenticicado... ajajaj igualmente gracias a los que puedan ayudarme.

Saludos

[JuanRAPerez]

ummmmm
es una funciona asp tienes que ejecutarla como asp

Código asp:

<%
enviaEmail("[email protected]","[email protected],[email protected]","gran asunto","Este es una prueba de correo","mail.midominio.com")
%>
 

suerte

[Jamati]

Gracias por la respuesta. Me sale este error:
---------------------------
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0408)
Carácter no válido
/estasenargentina/email.asp, línea 9
on error resume next
---------------------------

El código me quedó así:

Código HTML:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
function enviaEmail(para,cc,desde,asunto,mensaje,servidor)
 on error resume next

 enviaEmail = false
 
 dim objCDO,objCDOConfig,objFields
 Set objCDO = CreateObject("CDO.Message")
 Set objCDOConfig = CreateObject("CDO.Configuration")
 Set objFields = objCDOConfig.Fields

 With objFields
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = servidor
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mi mail"
 .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "la clave"
 .Update
 End With
 
 With objCDO
 .Configuration *= objCDOConfig
 .To = para

 if cc <> false then 
 .cc = cc
 end if * 
 
 .From = desde
 .Subject  = asunto
 .TextBody = mensaje
 .Send
 End With

 Set objFields = Nothing
 Set objCDO = Nothing
 Set objCDOConfig = Nothing 

 if err.number = 0 then
 enviaEmail = true
 else 
 enviaEmail = err.description
 end if
 on error goto 0

end function
%>

<script language="JavaScript">function enviar(){Contacto.submit();}</script>
<form action="email.asp" method="post" name="Contacto">
  <span>Nombre:</span><input name="nombre" type="text" maxlength="25">
  <span>Email:</span><input name="email" type="text" maxlength="250">
  <br>
  <br>
  <a href="<%enviaEmail([email protected],[email protected],[email protected],"gran asunto","Este es una prueba de correo","mail.midominio.com")%>">ENVIAR</a>
</form>
</body>
</html> 

Por favor, si sabes como solucionarlo, puedes modificar directamente el código??... porque n oentiendo mucho tus correcciones y vamos a estar una eternidad para ponernos de acuerdo jaajaj

Te cuento que en el botón ENVIAR, en el link le puse <% %> como para que sea ASP, al menos eso es lo que te entendí.

Saludos y muchísimas gracias.