Visual Basic para Aplicaciones - imagen en HTMLbody de mail cdo

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 21 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

imagen en HTMLbody de mail cdo

Publicado por Luis (1 intervención) el 22/02/2018 10:23:51
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
'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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder