Visual Basic para Aplicaciones - imagen en HTMLbody de mail cdo

'Hola

'Quisiera ser capaz de montar un código con todo lo que voy aprendiendo y encuentro en la red. Aquí adjunto código que considero se acerca más al éxito 

'Preciso montar un mini programa que entre otras cosas consta de enviar un mail vía cdo con imagen incorporada al cuerpo del mensaje

'estoy utilizando visual basic para aplicaciones

' con las siguientes herramientas

'visual basic for applications

'Microsoft office 16.0 object librery

'ole automation

'Microsoft Excel 16.0 object librery

'Microsoft forms 2.0 object library

'Microsoft cdo for Windows 2000 library

Sub send_mail_embeded_image()

Const cdoreferenceTypeName = 1

Set objcdosysmail = createobject("cdo.message")

Set objcdosyscon = createobject("cdo.configuration")

objcdosyscon.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.gmail.com"

objcdosyscon.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

objcdosyscon.fields("http://schemas.microsoft.com/cdo/configuration/sendusername")="**************@gmail.com)

objcdosyscon.fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")="********"

objcdosyscon.fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=465

objcdosyscon.fields("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

objcdosyscon.fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=30

objcdosyscon.fields("urn://schemas:mailheader:content-ID")="<test.jpg>"

objcdosyscon.fields.Update

Set objcdosysmail.configuration = objcdosyscon

objcdosysmail.mimeformatted = true

objcdosysmail.from = "************@gmail.com"

objcdosysmail.to = "************@gmail.com"

objcdosysmail.subject = "test"

objcdosysmail.HTMLBody = "<p><img src='cid:test.jpg10'></p>"

objcdosysmail.fields.update

'aquí se para. No tengo manera de superar esta prueba. He revisado muchos foros y no encuentro solución ni código que al aplicarlo funcione. PROBLEMA!!!!

Set objcdosyscon = objcdosysmail.addrelatedbodypart("C:\imagenes\test.jpg", "test.jpg", cdorefTypeId)

'el código que sigue, en código de envío de mail sin insertar imagen me ha funcionado, entiendo que aquí también lo hará, pero quizás no, es la magia para los que estamos aprendiendo y no acabamos de entender 100% la dinámica

On error resume next

objcdosysmail.send

if err.number=0 then

msgbox "mail enviado exitosamente"

else

msgbox "se produjo el siguiente error: "& Err.number & " " & err.description

end if

set objcdosysmail = nothing

set objcdosyscon = nothing

end sub

'Gracias de antemano a todos los interesados en intentar darle solución

'Un saludo,

'Luis