Problema al enviar email

irula · #1 (**permalink**) 08/06/2009, 03:42

Buenos días,
Estoy intentando enviar un formulario por email con asp pero no lo consigo. He probado muchos códigos pero ninguno me va y no se porque puede ser, no se si el servidor tiene q tener algo activado para poder enviarlo. Si alguien me pudiera ayudar se lo agradecería.
Un saludo

Adler · #2 (**permalink**) 08/06/2009, 04:14

Hola

¿Estás usando algún componente? ¿Qué error tienes? ¿Solamente no se envían o no se reciben?

De esta manera no necesitas componentes

Suerte

irula · #3 (**permalink**) 09/06/2009, 04:26

Buenos días,
He probado el código que me has dicho Adler, pero no me envía el email, o por lo menos no lo recibo, no me da ningún error el código, así que no se que pasa.

He utilizado el código así:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html;charset=utf-8" />
<title>Título</title>
<link href="../css/estilo.css" rel="stylesheet" type="text/css" media="all" />
</head>
<%
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/SendUsing") = 2
.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

nombre="Pepe"
empresa= "dddd"
cargo= "uno"
telefono= "33333333"
email= "[email protected]"
asunto= "asuntooooooo"

%>
<body onload="enviaEmail(<% response.Write email %>, <% response.Write email %>, [email protected], <% response.Write asunto %>, <% response.Write asunto %>, www.ddd.es)">
<table><tr><td><% response.Write email %></td></tr></table>

</body>
</html>

Yo creo que lo utilizo bien, pero si no es así me podrías decir como usarlo?
Muchas gracias.
Un saludo

Adler · #4 (**permalink**) 09/06/2009, 05:09

Hola

La función no puede asociarla a ningún evento.
Response.Write sirve para imprimir en pantalla el valor de un variable, en tu caso como quieres usar esas variables para pasarla como parámetros, sería

<%
enviaEmail(email , email, ...)
%>

Suerte

irula · #5 (**permalink**) 09/06/2009, 10:19

Ahora me saca un error.
He cambiado el contenido del body por:

<body>
<% enviaEmail(email, email, email2, asunto, asunto, servidor) %>
<table><tr><td><% response.Write email %></td></tr></table>
</body>

Y ahora me sale este error:

Microsoft VBScript compilation error '800a0414'

Cannot use parentheses when calling a Sub

/correo.asp, line 64

enviaEmail(email, email, email2, asunto, asunto, servidor)
------------------------------------------------------------------------^

Puffffff me está volviendo loca esto, jeje.
Muchas gracias

Adler · #6 (**permalink**) 09/06/2009, 13:27

Hola

Culpa mía

Cita:

<%=enviaEmail(email , email, ...)%>

Suerte

irula · #7 (**permalink**) 10/06/2009, 01:19

Buenos días,
Perdona que te vuelva a molestar, pero esq me sigue saliendo un error y no consigo solucionarlo.
El error es este:
The server rejected one or more recipient addresses. The server response was: 550 5.7.1 Unable to relay for [email protected]

Es el email que le paso para el cc.
Si el email des desde no pertenece al mismo servidor puede que me este dando problemas por eso? esque como estoy probandolo no quiero que le llegue a nadie nada excepto a mi, entonces pongo una direccion de otro servidor.

Muchas gracias

Adler · #8 (**permalink**) 10/06/2009, 05:45

Hola

Primero de nada, no he trabajado con esto nunca. Así que espero no decir ninguna barbaridad

+ Asegurate de que el la dirección de correo, .CC, existe, no parece que sea el caso
+ Como son pruebas, puedes ponle a .CC el misma dirección que a .To

En cuanto a que la dirección de DESDE no pertenezca al servidor, no creo que sea el problema

Suerte

irula · #9 (**permalink**) 10/06/2009, 05:59

En verdad esa no es la dirección, era simplemente para que no todo el mundo pudiera acceder a mi dirección.
He probado con varias direcciones diferentes y con todas me da el mismo error, y todas ellas existen.

JuanRAPerez · #10 (**permalink**) 10/06/2009, 08:38

el problema de relay es porque no estas enviando el correo con una cuenta valida

prueba autentican-dote en el servidor antes de hacer el envio
suerte

irula · #11 (**permalink**) 16/06/2009, 04:23

Buenas!

Ya he conseguido solucionarlo, mi problema era que en servidor ponia www.xxx.es y lo que tengo que poner es localhost, jeje.

Muchísimas gracias a todos.