Enviar rango de celdas como imagen por outlook con macros
Necesito enviar un rango de celdas con macros, encontré un código que copia y pega el rango pero necesito que se pegue como "mapa de bits" osea como imagen por favor, miren lo que tengo:
Private Sub CommandButton1_Click()
Range("J251:K352").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Range("a5:l355").Copy
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.To = "Ingresar correo de CLARO"
parte2.Subject = "Propuesta " & Range("B7") & "-" & Range("B8")
parte2.display
Application.SendKeys "^v"
Set parte1 = Nothing
Set parte2 = Nothing
End Sub
Te anexo la macro con los cambios
Private Sub CommandButton1_Click()
Range("J251:K352").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Range("a5:l355").Copy
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = "Ingresar correo de CLARO"
dam.Subject = "Propuesta " & Range("B7") & "-" & Range("B8")
dam.display
'Application.SendKeys "^v"
Application.Wait Now + TimeValue("00:00:01")
SendKeys "^{home}", True
DoEvents
SendKeys "%nvo", True
DoEvents
SendKeys "{UP}", True
DoEvents
SendKeys "{UP}", True
DoEvents
SendKeys "{ENTER}", True
Set dam = Nothing
End SubLa macro funciona para la versión 2007.
Lo que hace la macro es un pegado especial y selecciona "Mapa de bits".
Para enviar el correo tienes que poner la instrucción dam.send después de esta instrucción: SendKeys "{ENTER}", True
Pero primero prueba para ver si te está poniendo la imagen en mapa de bits, de lo contrario me comentas.
Gracias, sabes si también funcionará en la versión 2010???
La versión 2010 tiene otro funcionamiento, entonces no creo que funcione. Podría probar en la versión 2010, pero lo puedo hacer hasta el próximo sábado.
1 respuesta más de otro experto
Y si después de pegar la foto, quisiera añadir más texto de otras celdas en el mensaje del email, ¿cómo lo haríar?
Una consulta, hay alguna forma de que al enviar sea mande en forma automática como mapa de bits, por que al utilizar el código se abre el correo y me pregunta la forma de pegado donde esta mapa de bits, pero también otras.Gracias - Constanza Pinto
La macro está diseñada para pegar como mapa de bits, pero para la versión 2007, si tienes otra versión no funciona. Te sugiero que pongas la imagen como archivo, eso se puede hacer con HTML, te comparto un enlace. Envío de mail por OutLook con lagunas condiciones particulares - Dante Amor