Como no mencionas como es q envias los correos te muestro esta
y si bien las imagenes son incluidas como adjuntas se muestran dentro del contenido
en la posicion q desees
===================================================================
Private Sub Command1_Click()
Dim iMsg As CDO.Message
Set iMsg = CreateObject("CDO.Message")
Dim sHTML As String
sHTML = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
sHTML = sHTML & "<HTML>"
sHTML = sHTML & " <HEAD>"
sHTML = sHTML & " <TITLE>Ejemplo de imagen incrustada</TITLE>"
sHTML = sHTML & " </HEAD>"
sHTML = sHTML & " <BODY><P>"
sHTML = sHTML & " <IMG src=""cid:imagen.jpg""></p><p>Aqui esta la imagen</P>"
sHTML = sHTML & " </BODY>"
sHTML = sHTML & "</HTML>"
'// configuracion del servidor SMTP.
With iMsg.Configuration.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.correo.yahoo.es"
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPServerPort) = 587
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "jbdr"
.Item(cdoSendPassword) = "Tupassw"
.Item(cdoSMTPUseSSL) = False
iMsg.MDNRequested = True
.Update
End With
'// Propiedades del mensaje
With iMsg
.To = "
[email protected]"
.From = "
[email protected]"
.Subject = "Asunto Contenido HTML"
.HTMLBody = sHTML
.AddRelatedBodyPart "C:\MisImagenes\imagen.jpg", "imagen.jpg", cdoRefTypeId
End With
'//enviamos el mensaje.
iMsg.Send
Set iMsg = Nothing
End Sub
===================================================================
