Foros del Web » Soporte técnico » Ofimática »

mandar una hoja excel con logos por mail

Estas en el tema de mandar una hoja excel con logos por mail en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 27/05/2010, 14:07
 
Fecha de Ingreso: noviembre-2008
Mensajes: 20
Antigüedad: 11 años, 1 mes
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
  #2 (permalink)  
Antiguo 28/05/2010, 10:15
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 12 años
Puntos: 69
Respuesta: mandar una hoja excel con logos por mail

Creo q mas bien tenemos q ver el modulo este: SheetToHTML(Ws)
  #3 (permalink)  
Antiguo 28/05/2010, 14:27
 
Fecha de Ingreso: noviembre-2008
Mensajes: 20
Antigüedad: 11 años, 1 mes
Puntos: 0
Respuesta: mandar una hoja excel con logos por mail

Cita:
Iniciado por Monimo Ver Mensaje
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
  #4 (permalink)  
Antiguo 31/05/2010, 09:19
Avatar de Monimo  
Fecha de Ingreso: noviembre-2007
Ubicación: Mexico Df
Mensajes: 742
Antigüedad: 12 años
Puntos: 69
Respuesta: mandar una hoja excel con logos por mail

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

Última edición por Monimo; 02/06/2010 a las 08:16

Etiquetas: excel, hoja, logos, mail, mandar
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:30.