macros para pegar cuerpo del mensaje en un correo
Publicado por stiven (1 intervención) el 11/06/2015 18:54:36
hola tengo un problemas con una macros soy nuevo me podrían ayudar porfavor.
Esta macros envía automáticamente desde el Outlook 2007
3 archivos adjuntos de excel y 3 imágenes incrustadas en el cuerpo del mensaje .
hasta hay todo bien .
Mi Problemas es que cuando mando este correo a las cuentas de @hotmail o @ gmanil solo me muestran los archivos adjuntos PERO NO ME SALEN LAS IMÁGENES INCRUSTADAS EN EL CUERPO DEL MENSAJE. me sale en blanco
Me salen espacios en blanco de las imágenes y solo el contorno quisieras saber porque no me sale las imágenes como en mi Outlook.
Aquí le dejo la macros :
espero haberme expresado bien para el problema que tengo y pueda ayudarme por favor .
Esta macros envía automáticamente desde el Outlook 2007
3 archivos adjuntos de excel y 3 imágenes incrustadas en el cuerpo del mensaje .
hasta hay todo bien .
Mi Problemas es que cuando mando este correo a las cuentas de @hotmail o @ gmanil solo me muestran los archivos adjuntos PERO NO ME SALEN LAS IMÁGENES INCRUSTADAS EN EL CUERPO DEL MENSAJE. me sale en blanco
Me salen espacios en blanco de las imágenes y solo el contorno quisieras saber porque no me sale las imágenes como en mi Outlook.
Aquí le dejo la macros :
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
Sub OutlookMailExcel()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.logon
'Crea el correo
Set OutMail = OutApp.createitem(0)
'ActiveWorkbook.Save
On Error Resume Next
With OutMail
.SentOnBehalfOfName = "bay.reporting@bayental.com"
.To = "edwin.amado@bayental.com;stiven_25_17@hotmail.com;stivenamadoeduardo@gmail.com"
.Subject = " Avance Diario de Gestión - BAYENTAL"
'Archivo de imagen que contiene la firma
ruta = "C:\Documents and Settings\Desarrollo_Sist\Escritorio\Copia de SCOTI - COPY-2015\1.-BAYENTAL TARJETAS\"
.Attachments.Add ruta & "3.-S_Bayental_TEXTO.jpg"
.Attachments.Add ruta & "3.-S_Bayental.jpg"
.Attachments.Add ruta & "3.-S_Bayental_MVD.jpg"
.Attachments.Add ruta & "1.-A_Bayental.jpg"
.Attachments.Add "C:\Documents and Settings\Desarrollo_Sist\Escritorio\Copia de SCOTI - COPY-2015\1.-BAYENTAL TARJETAS\A_Bayental.xlsx"
.Attachments.Add "C:\Documents and Settings\Desarrollo_Sist\Escritorio\Copia de SCOTI - COPY-2015\1.-BAYENTAL TARJETAS\V_Bayental.xlsx"
.Attachments.Add "C:\Documents and Settings\Desarrollo_Sist\Escritorio\Copia de SCOTI - COPY-2015\1.-BAYENTAL TARJETAS\S_Bayental.xlsx"
.BodyFormat = 2 'olFormatHTML
.HTMLBody = "<html>" & _
"<body>" & _
"<p>Estimado Cliente no responder a este correo</p>" & _
"<img src=cid:3.-S_Bayental_TEXTO.jpg height=23 width=813>" & _
"<br>" & _
"<br>" & _
"<img src=cid:3.-S_Bayental.jpg height=238 width=811>" & _
"<br>" & _
"<br>" & _
"<img src=cid:3.-S_Bayental_MVD.jpg height=97 width=409>" & _
"<br>" & _
"<br>" & _
"<img src=cid:1.-A_Bayental.jpg height=723 width=828>" & _
"<br>" & _
"<br>" & _
"</body>" & _
"</html>"
.SendKeys "^v", True
.DoEvents
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
espero haberme expresado bien para el problema que tengo y pueda ayudarme por favor .
Valora esta pregunta
0