Enviar correo con aspEmail

kire94 · #1 (**permalink**) 06/01/2007, 16:13

Saludos foro.

De que manera se puede mandar una imagen por correo pero no como attachment si no que al destinatario le aparezca la imagen en primer plano, lo intente resolver por medio de contenido HTML dentro del cuerpo del mensaje, pero no me la muestra; abajo pongo mi codigo para quede mejor entendido.

Código:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Has recibido una Postal de fotosenergizer.com"
myMail.From="[email protected]"
myMail.To=Request("env_conts")
myMail.HTMLBody = "<HTML><BODY><p>" & sel_usu("NOMBRE") & " " & sel_usu("APELLIDO") & " te ha mandado una postal que quiere compartir contigo.</p><p align='center'><img src='images/postal.jpg' /></p></BODY></HTML>"
myMail.Send
set myMail=nothing

Gracias de antemano

camilodeveloper · #2 (**permalink**) 08/01/2007, 09:31

Hola,

Coloca la direccion del servidor porque ahi estarías colocando la del pc del usuario, intenta esto:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Has recibido una Postal de fotosenergizer.com"
myMail.From="[email protected]"
myMail.To=Request("env_conts")
myMail.HTMLBody = "<HTML><BODY>" & sel_usu("NOMBRE") & " " & sel_usu("APELLIDO") & " te ha mandado una postal que quiere compartir contigo.<img src='tudominio/images/postal.jpg' /></BODY></HTML>"
myMail.Send
set myMail=nothing

Un saludo

allhen · #3 (**permalink**) 11/01/2007, 20:21

<%
varF = request.form("quienloenvia")

Dim objEmail
Set objEmail = Server.CreateObject("Persits.MailSender")
objEmail.Username = "[email protected]"
objEmail.Password = "el password va aqui"
objEmail.Host = "smtpORmail.tudominio.com"
objEmail.From = request.form("quienloenvia")
objEmail.FromName = request.form("nombreDeQuienLoEnvia")
objEmail.AddAddress request.form("destinatario")
objEmail.Subject = ""&varSn&" aqui el subject ...al inicio recoge una variable"
ObjEmail.IsHTML = True
objEmail.Body = "Mensaje: "&varMMS&" <img src=""http://tudominio.com/fotocualquiera.jpg"" border=""0"">"
objEmail.Send
Set objEmail = Nothing
response.write = "Mail enviado a : """&varF&""" Puedes seguir enviando...."
%>

solo asegurate q dentro del body... si usas comilla doble...agreagale una mas por c/u excepto al inicio y al final...

si tiene dudas.. please contact me [email protected]

allhen · #4 (**permalink**) 11/01/2007, 20:43

http://www.forosdelweb.com/f15/codigo-para-envio-mails-gratis-completo-455920/

camilodeveloper · #5 (**permalink**) 12/01/2007, 10:09

Cita:

Iniciado por camilodeveloper

Hola,

Coloca la direccion del servidor porque ahi estarías colocando la del pc del usuario, intenta esto:

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Has recibido una Postal de fotosenergizer.com"
myMail.From="[email protected]"
myMail.To=Request("env_conts")
myMail.HTMLBody = "<HTML><BODY>" & sel_usu("NOMBRE") & " " & sel_usu("APELLIDO") & " te ha mandado una postal que quiere compartir contigo.<img src='tudominio/images/postal.jpg' /></BODY></HTML>"
myMail.Send
set myMail=nothing

Un saludo

Camilo Ospina Molano
Bogotá - Colombia