Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: YAcosta en Abril 01, 2015, 04:08:39 pm
-
Buenas.
Hace buenos años que uso este (http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/zip/modulo-microsoft-cdo-para-enviar-email.zip) codigo tomado de aqui (http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/337-enviar-correo-en-vb-con-microsoft-cdo.htm#2) para enviar emails desde mi aplicativo, de esa forma mis clientes me escriben desde el mismo app sin tener que ir a su gestor de emails. Ahora voy a hacer una variacion y enviarlo pa otro lado, entonces, este es el codigo:
Private Sub btnEnviar_Click()
Set oMail = New clsCDOmail
With oMail
'datos para enviar
.servidor = "smtp.gmail.com"
.puerto = 465
.UseAuntentificacion = True
.ssl = True
.Usuario = "miEmail@gmail.com"
.PassWord = "mipassword"
.Asunto = "Ejemplo"
.Adjunto = "c:\UnaFoto.jpg"
.de = "miEmail@gmail.com"
.para = "otroCorreo@outlook.com"
.Mensaje = "Mensaje de prueba "
.Enviar_Backup ' manda el mail
End With
Set oMail = Nothing
End Sub
Asi como esta envia el correo perfectamente y la foto va como un adjunto.
¿Como podria hacer para que la foto aparezca en el cuerpo del correo y no como un adjunto? Para que cuando abra el mensaje llegue asi:
(http://i.snag.gy/4Mzzv.jpg)
O si este metodo o codigo no es el adecuado ¿cual me recomiendan?
Saludos
-
En mi humilde opinión (nunca lo he hecho) pero parece ser que la Clase CDO puedes hacer referencia a CDO.Message y despues en sus propiedades incluir la imagen en el Cuerpo HTML
Dim objMailMsg As New CDO.Message
objMailMsg.AddAttachment.AddBodyPart "C:\LaImagen.jpg"
objMailMsg.CreateMHTMLBody = "<html><p>This is a picture.</p>" & _
"<img src='cid:LaImagen.jpg' height=480 width=360>"
El Codigo es erratico, lo escribi al vuelo, Repito, se me ocurrio, es solo una idea.
-
Ah interesante, gracias, voy a probarlo cuando llegue a casa.