Mandar mail

Trutxof · #1 (**permalink**) 26/11/2007, 09:18

Hola a todos.
Estoy utilizando la funcion ASPemail. Intento mandar en el mismo mail.asp, a dos direcciones distintas. El problema es que a la primera direccion que utilizo, le llegan los dos email. Creo que el problema me viene por utilizar el parametro "Mail.AddAddress " .

¿Hay alguna forma de eliminar la primera direccion insertada?

SAlu2

Shiryu_Libra · #2 (**permalink**) 26/11/2007, 11:36

lo estas realizando con algun while???

pon tu codigo para verificarlo

Trutxof · #3 (**permalink**) 26/11/2007, 12:21

Hola, gracias por responder. Ahi va el codigo.

Código HTML:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
<% 
'MANDAR POR MAIL 
producto=request.querystring("producto") 
Set Mail = Server.CreateObject("Persits.MailSender") 
mail.username="miusuario" 
mail.password="mipass" 
Mail.Host = "smtp.mihost" 
Mail.From = "emailcliente" 
Mail.AddAddress "miemail" 
Mail.Subject = "loquesea" 
cuerpo = "<html>"&chr(10)&_ 
"<head>"&chr(10)&_ 
"<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"&chr(10)&_ 
"<title>Titulo</title>"&chr(10)&_ 
"</head>" & _ 
"<body style='margin:0px;background-color:#FFFFFF; font-family:Arial, Helvetica, sans-serif; font-size:12px;color:#000000'>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div>Mensaje recibido de " & request.form("opcion") & " <b> " & Request.Form("nombre") & "</b>" & " interesandose por el siguiente producto: <b>" & producto & " </b>" & "<div>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div> <b> Su telefono: </b>" & Request.Form("telef") & "</div>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div> <b> Su email: </b>" & Request.Form("email") & "</div>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div> <b> Su opinión y/o dudas: </b>" & "</div>"&chr(10)&_ 
"<div>" & Request.Form("comentarios") & "</div>"&chr(10)&_ 
"<div style='height:2em; '></div>"&chr(10)&_ 
"</body>" & _ 
"</html>" 
 
Mail.Body = cuerpo 
Mail.IsHTML = True 
Mail.SendToQueue 
 
'mail para el cliente 
copia=request.form("opcion2") 
if copia = 1 then 
 
Mail.AddAddress Request.Form("email") 
Mail.Subject = "loquesea" 
cuerpo = "<html>"&chr(10)&_ 
"<head>"&chr(10)&_ 
"<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"&chr(10)&_ 
"<title>el titulo</title>"&chr(10)&_ 
"</head>" & _ 
"<body style='margin:0px;background-color:#FFFFFF; font-family:Arial, Helvetica, sans-serif; font-size:12px;color:#000000'>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div>Hemos recibido su mensaje interesandose por el siguiente producto: " & "<b>" & producto & "</b>" & "<div>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div> En breve nos pondremos en contacto con usted." & "</div>"&chr(10)&_ 
"<div style='height:1em; '></div>"&chr(10)&_ 
"<div> Gracias por elegir nuestros servicios" & "</div>"&chr(10)&_ 
"<div style='height:2em; '></div>"&chr(10)&_ 
"</body>" & _ 
"</html>" 
 
Mail.Body = cuerpo 
Mail.IsHTML = True' 
Mail.SendToQueue 
end if 
 
Response.Redirect("index.asp") 
 
%>

Todo va bien excepto que a la primera dirección de email (mi cliente), le llegan los dos. El suyo y el que va dirigido al cliente. Ala segunda (el cliente de mi cliente) va bien.

Salu2

Shiryu_Libra · #4 (**permalink**) 26/11/2007, 14:04

tienes al reves los destinatarios

Cita:

Mail.From = "emailcliente"
Mail.AddAddress "miemail"

esto deberia ser asi:

Cita:

Mail.From = "miemail" <---- TU CORREO
Mail.AddAddress "emailcliente" <--- A QUIEN LE ENVIARAS

Trutxof · #5 (**permalink**) 26/11/2007, 14:48

Ok gracias Shiryu_Libra.

Eso lo tengo asi de momento para hacer las pruebas; asi recibo los mail yo y no el cliente. Luego lo cambiaré.

Por el funcionamiento, y por lo que me ha parecido entender en la web de aspemail, Mail.AddAddress suma las direcciones. Pero no he visto ninguna forma de borrarlas.

Es un problema de forma más que de fondo, pero me gustaría resolverlo...

Salu2

Shiryu_Libra · #6 (**permalink**) 26/11/2007, 15:43

una pregunta, por que los envias al .SendToQueue, en ves de utilizar solo SEND
y ademas, no seria mejor tener una funcion parametrizada de envio de correos??

algo asi???

Funcion parametrizada

Cita:

<%
function SendMails(aquien, contenido)
'MANDAR POR MAIL
'Estructuracion del envio
Set Mail = Server.CreateObject("Persits.MailSender")
mail.username="miusuario"
mail.password="mipass"
Mail.Host = "smtp.mihost"
Mail.From = "emailcliente"
Mail.AddAddress aquien
Mail.Subject = "loquesea"
Mail.Body = cuerpo
Mail.IsHTML = True
if Err=0 then
Mail.Send
else
Mail.SendToQueue
end if
'importante, para que podamos realizar nuevamente el procedimiento
Set Mail=nothing
end function

el resto del codigo

Cita:

'Asignacion de Variables
cuerpo = "<html>"&chr(10)&_
"<head>"&chr(10)&_
"<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"&chr(10)&_
"<title>Titulo</title>"&chr(10)&_
"</head>" & _
"<body style='margin:0px;background-color:#FFFFFF; font-family:Arial, Helvetica, sans-serif; font-size:12px;color:#000000'>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div>Mensaje recibido de " & request.form("opcion") & " <b> " & Request.Form("nombre") & "</b>" & " interesandose por el siguiente producto: <b>" & producto & " </b>" & "<div>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div> <b> Su telefono: </b>" & Request.Form("telef") & "</div>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div> <b> Su email: </b>" & Request.Form("email") & "</div>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div> <b> Su opinión y/o dudas: </b>" & "</div>"&chr(10)&_
"<div>" & Request.Form("comentarios") & "</div>"&chr(10)&_
"<div style='height:2em; '></div>"&chr(10)&_
"</body>" & _
"</html>"

cuerpo2 = "<html>"&chr(10)&_
"<head>"&chr(10)&_
"<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"&chr(10)&_
"<title>el titulo</title>"&chr(10)&_
"</head>" & _
"<body style='margin:0px;background-color:#FFFFFF; font-family:Arial, Helvetica, sans-serif; font-size:12px;color:#000000'>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div>Hemos recibido su mensaje interesandose por el siguiente producto: " & "<b>" & producto & "</b>" & "<div>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div> En breve nos pondremos en contacto con usted." & "</div>"&chr(10)&_
"<div style='height:1em; '></div>"&chr(10)&_
"<div> Gracias por elegir los servicios de Euro-trailer" & "</div>"&chr(10)&_
"<div style='height:2em; '></div>"&chr(10)&_
"</body>" & _
"</html>"

'realizando el proceso para envios de correos
producto=request.querystring("producto")

SendMails("loquesea",cuerpo)
copia=request.form("opcion2")
if copia = 1 then
otroemail=Request.Form("email")
SendMails(otromail,cuerpo2)
end if
Response.Redirect("index.asp")
%>

mmm,

es solo una idea, haber si asi te da menos problemas, Saludos

Trutxof · #7 (**permalink**) 26/11/2007, 16:00

Cita:

una pregunta, por que los envias al .SendToQueue, en ves de utilizar solo SEND
y ademas, no seria mejor tener una funcion parametrizada de envio de correos??

Estoy aprendiendo, y como asi me funcionaba, asi lo dejé.

Mañana pruebo como me dices y te comento

Salu2

Trutxof · #8 (**permalink**) 27/11/2007, 07:20

Hola Shiryu_Libra

Al final y por falta de tiempo para darle vueltas, simplemente he hecho un Set Mail=nothing el final del primer envio y he vuelto a crear el objeto Mail para el segundo. Asi no me sumaba las direcciones.

Salu2 y gracias