• Miércoles 20 de Noviembre de 2024, 16:17

Autor Tema:  Envio De Correos  (Leído 2447 veces)

giomar

  • Miembro MUY activo
  • ***
  • Mensajes: 270
    • Ver Perfil
Envio De Correos
« en: Viernes 8 de Octubre de 2004, 00:51 »
0
Hola a todos amigos programadores de ASP, miren tengo un problema y me gustaria que me den una mano, estoy haciendo una pagina en la que envio correos a usuarios y para ello uso el componente ASPEMAIL, claro el de prueba, por ahora, lo que pasa es que puedo enviar los mensajes pero cuando llegan a mi correo estos figuran como correo no deseado y no entiendo por que, la cuenta que uso como remitente la cree para ese caso en particular, y a traves de ella envio los mensajes, estoy usando como servidor de correos el de hotmail, sin embargo cuando uso el correo de un amigo no tengo problemas figura en la bandeja de entrada, por ejemplo en mi pantalla recomendar pagina, pero no entiendo porque cuando uso el otro lo recibo como no deseado.

Si pueden ayudarme, se los agradeceria mucho ya que es para mi trabajo.

De antemano muchas gracias por su tiempo.

<<__GIOMAR__>>
Giomar B.
Desarrollador Web Profesional


LeGatoRojo

  • Miembro HIPER activo
  • ****
  • Mensajes: 552
  • Nacionalidad: mx
    • Ver Perfil
    • LeGatoRojo
Re: Envio De Correos
« Respuesta #1 en: Viernes 8 de Octubre de 2004, 10:12 »
0
bueno espero que te sirva este ejemplo todo chafa

<%

'Asignamos los valores recibidos del formulario a las variables
Origen = Request.Form("Origen")
Destino = Request.Form("Destino")
Asunto = Request.Form("Asunto")
Mensaje = Request.Form("Mensaje")
'

'Hasta aqui los datos fundamentales, si ademas necesitamos enviar ficheros
'  copias usaremos el resto de las propiedades

Copiaa = "smaug@metropoli2000.com;pepe@uscom.com"
'copias a otros usuarios separados por ;

Anexo = "c:\documentos\archivo.txt"
'ficheros anexados


'Creamos una instancia del objeto CDO
Set ObjetoCDO = Server.CreateObject("CDONTS.NewMail")

'Asignamos las propiedades al objeto
ObjetoCDO.From = Origen
ObjetoCDO.To = Destino
ObjetoCDO.Subject = Asunto
ObjetoCDO.Body = Mensaje
ObjetoCDO.Cc = Copiaa
ObjetoCDO.AttachFile  Anexo

'Enviamos el e-mail
ObjetoCDO.Send

'Destruimos el objeto
Set ObjetoCDO = Nothing

%>
Un día desperte y en lugar de dientes tenía colmillos, en lugar de manos, tenía garras; pero lo más impactante fue el color escarlata de mi pelaje.

giomar

  • Miembro MUY activo
  • ***
  • Mensajes: 270
    • Ver Perfil
Re: Envio De Correos
« Respuesta #2 en: Sábado 9 de Octubre de 2004, 00:40 »
0
Muchas gracias Darktigerhell, pero estaba trabajando con win98, y para poner en practica lo que me indicas tengo que tener el Win2000, si o no, pero lo que voy hacer es eso por que tengo algunos problemillas con las sesiones tambien.

Bueno gracias un saludo
Giomar B.
Desarrollador Web Profesional


ROBER.29

  • Miembro MUY activo
  • ***
  • Mensajes: 421
    • Ver Perfil
    • http://www.contrapixel.com
Re: Envio De Correos
« Respuesta #3 en: Lunes 11 de Octubre de 2004, 13:44 »
0
Hola,

El código que te ha puesto Darktigerhell no es que sólo funcione para Windows 2000 sino que tienes que tener en la máquina donde montes tu página web un servidor de correo configurado sino por mucho que tengas la librería CDONTS.dll en tu ordenador no funcionaria.

En windows 98 no puedes instalar el IIS y estarás utilizando el PWS(Personal Web Server) y esté da problemas con las variables de sesión, por lo tanto te aconsejo que te instales el windows 2000 o 2003 en tu ordenador para tener el IIS y poder configurar el servicio SMTP para que te funcione el envio de correos.

Un saludo.
Roberto García
Moderador de Visual Basic.
Gerente
[contra]PixeL S.L.
Valladolid

giomar

  • Miembro MUY activo
  • ***
  • Mensajes: 270
    • Ver Perfil
Re: Envio De Correos
« Respuesta #4 en: Sábado 23 de Octubre de 2004, 19:40 »
0
Gracias por su ayuda voy a  poner en practica lo que me indicaron, luego les cuento como me fue.

Un saludo.......
Giomar B.
Desarrollador Web Profesional