mandar una hoja excel con logos por mail

[Alon]

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

[Monimo]

Creo q mas bien tenemos q ver el modulo este: SheetToHTML(Ws)

[Alon]

Iniciado por Monimo

Creo q mas bien tenemos q ver el modulo este: SheetToHTML(Ws)

Gracias Monimo.
Aca va el módulo sheettohtml. La verdad que lo uso pero no lo hice yo. No se como modificarlo de forma que mande también un Jpg o cualquier otro formato que esté insertado en la página.

Public Function SheetToHTML(sh As Worksheet)

Dim TempFile As String
Dim Nwb As Workbook
Dim myshape As Shape
Dim fso As Object
Dim ts As Object
sh.Copy
Set Nwb = ActiveWorkbook
For Each myshape In Nwb.Sheets(1).Shapes
myshape.Delete
Next
TempFile = Environ$("temp") & "/" & _
Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
Nwb.SaveAs TempFile, xlHtml
Nwb.Close False
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
SheetToHTML = ts.ReadAll
ts.Close
Set ts = Nothing
Set fso = Nothing
Set Nwb = Nothing
Kill TempFile
End Function

[Monimo]

Mira segun yo el problema son estas dos líneas en las que borra cualquier imagen q este en la hoja:


For Each myshape In Nwb.Sheets(1).Shapes
myshape.Delete
Next

prueba comentandolas a ver si así te las adjunta.
así:
'For Each myshape In Nwb.Sheets(1).Shapes
' myshape.Delete
' Next
con la comila simple