Esta macros no les permite ver las imágenes incrustadas en el cuerpo de mensaje que les envío al hotm o gmail (Els a M atilde)
Señorita Elsa Matilde este es mi problema
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 como podrá ver en esta foto:
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.
Aquí le dejo la foto del HOTMAIL como me llega a mi bandeja :
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 :
Sub OutlookMailExcel()Dim OutApp As ObjectDim OutMail As ObjectSet OutApp = CreateObject("Outlook.Application")OutApp.Session.logon 'Crea el correo Set OutMail = OutApp.createitem(0) 'ActiveWorkbook.Save On Error Resume Next With OutMail .SentOnBehalfOfName = "[email protected]" .To = "[email protected];[email protected];[email protected]" .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>" .Display .SEND End WithOn Error GoTo 0Set OutMail = NothingSet OutApp = NothingEnd Sub
espero haberme expresado bien para el problema que tengo y pueda ayudarme
2 Respuestas
Respuesta
1
Respuesta de Elsa Matilde
1