Ver Mensaje Individual
  #1 (permalink)  
Antiguo 27/05/2010, 13:07
Alon
 
Fecha de Ingreso: noviembre-2008
Mensajes: 20
Antigüedad: 15 años, 5 meses
Puntos: 0
mandar una hoja excel con logos por mail

Hola,
Tengo que mandar una hoja de calculo por mail de manera que el que recibe el mail vea la hoja en el cuerpo del mismo.
Lo tengo resuelto salvo porque los logos que tengo insertados en la hoja (jpg, gif, bmp..ya intenté varios) no salen el el mail. todo lo demás si. el cuerpo del mail queda exactamente igual que la hoja pero sin las figuras.
Alguien me puede decir como hago para que las figuras también vayan en el mail.
Desde ya muchas gracias.

Este es el script de la parte que manda el mail..

Dim Ws As Worksheet
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Application.ScreenUpdating = False
Set Ws = Worksheets("Reporte")
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = Dirmail
.CC = ""
.BCC = ""
.Subject = "Penca Sudafrica 2010"
.HTMLBody = SheetToHTML(Ws)
.Send 'or use .Display
End With
Application.ScreenUpdating = True
Set OutMail = Nothing
Set OutApp = Nothing