Foros del Web » Programando para Internet » ASP Clásico »

CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE

 Estas en el tema de CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE en el foro de ASP Clásico en Foros del Web. HOLA: NECESITO ENVIAR, A LA VEZ, DISTINTOS CAMPOS DE UN FORMULARIO A DOS DIRECCIONES DE CORREO DIFERENTES. EL CODIGO SIGUIENTE SOLO LO ENVIA A LA ...
  #1 (permalink)  
Antiguo 28/04/2008, 05:54
 
Fecha de Ingreso: noviembre-2006
Ubicación: BARCELONA
Mensajes: 30
Antigüedad: 18 años, 5 meses
Puntos: 0
Mensaje CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
HOLA: NECESITO ENVIAR, A LA VEZ, DISTINTOS CAMPOS DE UN FORMULARIO A DOS DIRECCIONES DE CORREO DIFERENTES. EL CODIGO SIGUIENTE SOLO LO ENVIA A LA PRIMERA DIRECCION.
DONDE ESTA EL FALLO?????

CODIGO:

<%@ Language=VBScript %>
<%
Dim nombre, domicilio, email, empresa ,index

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = "de cliente"
Mailer.FromAddress = "postmaster@dominio"
Mailer.AddRecipient"correo@domino"
Mailer.Subject = "PEDIDO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""0""><TR><TD Align=""Center""></BODY></HTML>"
Mailer.BodyText = Cuerpo
Mailer.Bodytext = Cuerpo & "PEDIDO" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "Nombre " + " : " & Request.form("nom") & VbCrLf
Mailer.Bodytext = Cuerpo & "Domicilio " + " : " & Request.form("domicili") & VbCrLf
Mailer.Bodytext = Cuerpo & "email " + " : " & Request.form("email") & VbCrLf
Mailer.Bodytext = Cuerpo & "PRODUCTO " & VbCrLf
Mailer.Bodytext = Cuerpo & " ........................... " & vbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf

Mailer.sendmail


Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = "EMPRESA"
Mailer.FromAddress = "postmaster@dominio"
Mailer.AddRecipient"empresa","correo"
Mailer.Subject = "PEDIDO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""0""><TR><TD Align=""Center""></BODY></HTML>"
Mailer.BodyText = Cuerpo
Mailer.Bodytext = Cuerpo & "PEDIDO" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "ENCARGO " & VbCrLf
Mailer.Bodytext = Cuerpo & "ENTREGA " & VbCrLf
Mailer.Bodytext = Cuerpo & " .............................. " & vbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.Bodytext = Cuerpo & " ........................... " & vbCrLf
Mailer.sendmail
if Mailer.SendMail then

response.write ("OK")
else
response.write ("NO OK.")+ Mailer.Response
end if
%>
  #2 (permalink)  
Antiguo 28/04/2008, 07:57
Avatar de JuanRAPerez
Colaborador
  
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses
Puntos: 27
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
te da error en una linea???

Mailer.AddRecipient"correo@domino"

ahí creo es donde esta el error

suerte
__________________
JuanRa Pérez
San Salvador, El Salvador
  #3 (permalink)  
Antiguo 28/04/2008, 11:25
 
Fecha de Ingreso: noviembre-2006
Ubicación: BARCELONA
Mensajes: 30
Antigüedad: 18 años, 5 meses
Puntos: 0
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
Si te refieres a Mailer.AddRecipient"correo@dominio", por lo que he visto en otras paginas aspmail y por otras paginas que tengo igual y que funcionan, no me ha hecho falta poner un = tras Mailer.AddRecipient, simplemente poner la direccion de correo entre comillas funciona.
  #4 (permalink)  
Antiguo 28/04/2008, 11:41
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
Bueno, supongo por el nombre ".AddRecipient" que es un método, por lo que efectivamente no necesitaría igualarlo a nada.

Por lo que dices quieres mandar dos correos a dos direcciones, por lo que lo único que yo haría que veo no haz hecho, es que antes de volver a instanciar un nuevo objeto, lo destruiría completamente (set Mailer = nothing), deduzco que apenas se esta intentando mandar a la primer dirección cuando haces otro objeto con el mismo nombre, y esto causa algún conflicto y por ello ignora el segundo.

O bien, si no quiero destruirlo, esta bien, pero no lo volvería a instanciar

Es solo una suposición mía
  #5 (permalink)  
Antiguo 28/04/2008, 11:45
Avatar de JuanRAPerez
Colaborador
  
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses
Puntos: 27
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
oki - "Supongamos no lleva el igual"

te da error el código a la hora del envió?
prueba adicionando un espacio entre t" y no el igual y nos comentas si sirvió de algo

Mailer.AddRecipient"empresa","correo"

suerte

EDITO:
Revisa esto:
http://www.forosdelweb.com/f15/como-...riable-288105/
__________________
JuanRa Pérez
San Salvador, El Salvador
  #6 (permalink)  
Antiguo 28/04/2008, 12:28
 
Fecha de Ingreso: noviembre-2006
Ubicación: BARCELONA
Mensajes: 30
Antigüedad: 18 años, 5 meses
Puntos: 0
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
RESPONDO A LOS DOS:

probare lo del nothing, no no me da fallos
  #7 (permalink)  
Antiguo 29/04/2008, 04:22
 
Fecha de Ingreso: noviembre-2006
Ubicación: BARCELONA
Mensajes: 30
Antigüedad: 18 años, 5 meses
Puntos: 0
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
Lo Del Nothing No Responde
  #8 (permalink)  
Antiguo 29/04/2008, 07:09
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
¿Cómo y Dónde lo usaste?
  #9 (permalink)  
Antiguo 29/04/2008, 11:35
 
Fecha de Ingreso: noviembre-2006
Ubicación: BARCELONA
Mensajes: 30
Antigüedad: 18 años, 5 meses
Puntos: 0
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
hacia la mitad del codigo, en :

Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf

Mailer.sendmail = nothing

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  #10 (permalink)  
Antiguo 29/04/2008, 14:10
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE


Cita:
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.sendmail
set Mailer = nothing
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Prueba así

Se me hace raro que no te haya marcado error así como lo pusiste
  #11 (permalink)  
Antiguo 30/04/2008, 04:53
 
Fecha de Ingreso: noviembre-2006
Ubicación: BARCELONA
Mensajes: 30
Antigüedad: 18 años, 5 meses
Puntos: 0
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
Asi, da este error

Active Server Pages error 'ASP 0141'
Page Command Repeated
/pagina.asp, line 36
The @ command can only be used once within the Active Server Page.
  #12 (permalink)  
Antiguo 30/04/2008, 07:25
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
Algo tienes mal, como puedes observar no hay ninguna directiva de más en esas 4 lineas que te puse.
¿Cuál es la linea 36?
  #13 (permalink)  
Antiguo 30/04/2008, 08:53
 
Fecha de Ingreso: noviembre-2006
Ubicación: BARCELONA
Mensajes: 30
Antigüedad: 18 años, 5 meses
Puntos: 0
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
Mailer.sendmail
set Mailer = nothing
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "xxxxxxxxxxxxxxxxxxxx"
Mailer.FromAddress = "postmaster@dominio"
Mailer.AddRecipient"zzzzzz","correo"
Mailer.Subject = "aaaaaaaaaaaaa"
Mailer.ContentType = "text/html" esta es la 36 segun mi editor
Última edición por CARLOS.asp; 30/04/2008 a las 09:03
  #14 (permalink)  
Antiguo 30/04/2008, 09:04
 
Fecha de Ingreso: noviembre-2006
Ubicación: BARCELONA
Mensajes: 30
Antigüedad: 18 años, 5 meses
Puntos: 0
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
este es el codigo completo :

<%@ Language=VBScript %>
<%
Dim nombre, domicilio, email, empresa ,index
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "de cliente"
Mailer.FromAddress = "postmaster@dominio"
Mailer.AddRecipient"correo@domino"
Mailer.Subject = "PEDIDO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""0""><TR><TD Align=""Center""></BODY></HTML>"
Mailer.BodyText = Cuerpo
Mailer.Bodytext = Cuerpo & "PEDIDO" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "Nombre " + " : " & Request.form("nom") & VbCrLf
Mailer.Bodytext = Cuerpo & "Domicilio " + " : " & Request.form("domicili") & VbCrLf
Mailer.Bodytext = Cuerpo & "email " + " : " & Request.form("email") & VbCrLf
Mailer.Bodytext = Cuerpo & "PRODUCTO " & VbCrLf
Mailer.Bodytext = Cuerpo & " ........................... " & vbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.sendmail
set Mailer = nothing
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "EMPRESA"
Mailer.FromAddress = "postmaster@dominio"
Mailer.AddRecipient"empresa","correo"
Mailer.Subject = "PEDIDO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""0""><TR><TD Align=""Center""></BODY></HTML>"
Mailer.BodyText = Cuerpo
Mailer.Bodytext = Cuerpo & "PEDIDO" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "ENCARGO " & VbCrLf
Mailer.Bodytext = Cuerpo & "ENTREGA " & VbCrLf
Mailer.Bodytext = Cuerpo & " .............................. " & vbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.Bodytext = Cuerpo & " ........................... " & vbCrLf
Mailer.sendmail
if Mailer.SendMail then

response.write ("OK")
else
response.write ("NO OK.")+ Mailer.Response
end if
%>
  #15 (permalink)  
Antiguo 30/04/2008, 10:13
Avatar de JuanRAPerez
Colaborador
  
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses
Puntos: 27
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
Active Server Pages error 'ASP 0141'
Page Command Repeated


Cita:
Iniciado por CARLOS.asp Ver Mensaje
este es el codigo completo :

<%@ Language=VBScript %>
<%
Dim nombre, domicilio, email, empresa ,index
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "de cliente"
Mailer.FromAddress = "postmaster@dominio"
Mailer.AddRecipient"correo@domino"
Mailer.Subject = "PEDIDO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""0""><TR><TD Align=""Center""></BODY></HTML>"
Mailer.BodyText = Cuerpo
Mailer.Bodytext = Cuerpo & "PEDIDO" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "Nombre " + " : " & Request.form("nom") & VbCrLf
Mailer.Bodytext = Cuerpo & "Domicilio " + " : " & Request.form("domicili") & VbCrLf
Mailer.Bodytext = Cuerpo & "email " + " : " & Request.form("email") & VbCrLf
Mailer.Bodytext = Cuerpo & "PRODUCTO " & VbCrLf
Mailer.Bodytext = Cuerpo & " ........................... " & vbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.sendmail
set Mailer = nothing
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "EMPRESA"
Mailer.FromAddress = "postmaster@dominio"
Mailer.AddRecipient"empresa","correo"
Mailer.Subject = "PEDIDO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""0""><TR><TD Align=""Center""></BODY></HTML>"
Mailer.BodyText = Cuerpo
Mailer.Bodytext = Cuerpo & "PEDIDO" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "ENCARGO " & VbCrLf
Mailer.Bodytext = Cuerpo & "ENTREGA " & VbCrLf
Mailer.Bodytext = Cuerpo & " .............................. " & vbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.Bodytext = Cuerpo & " ........................... " & vbCrLf
Mailer.sendmail
if Mailer.SendMail then

response.write ("OK")
else
response.write ("NO OK.")+ Mailer.Response
end if
%>

suerte
__________________
JuanRa Pérez
San Salvador, El Salvador
  #16 (permalink)  
Antiguo 30/04/2008, 11:50
 
Fecha de Ingreso: noviembre-2006
Ubicación: BARCELONA
Mensajes: 30
Antigüedad: 18 años, 5 meses
Puntos: 0
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
Ha Cambiado Algo ???
  #17 (permalink)  
Antiguo 30/04/2008, 12:33
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
Re: CORREO SMTPsvg.Mailer A DOS DIRECCIONES SIMULTANEAMENTE
Cita:
Iniciado por CARLOS.asp Ver Mensaje
Asi, da este error

Active Server Pages error 'ASP 0141'
Page Command Repeated
/pagina.asp, line 36
The @ command can only be used once within the Active Server Page.
Ese error es causado por que se ha encontrado en el programa pagina.asp una segunta directiva de proceso <%@ Language=VBScript %>, en el programa que posteas solo hay una, o no es ese el programa, o tienes algo que no copiaste. En fin.

Referente a tu código, parece bien así como lo colocas, no puedo probar ya que ese componente no tiene una versión de evaluación, así que no hay mucho más que hacer. El error no corresponde a la linea que pusiste, así que ya solo resta depurar bien.

Si quieres, para que te sea más claro y fácil de depurar, implementa una función similar a esta.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 10:20.