Tabla de excel en cuerpo de mail
Esperó me puedas ayudar con esté código ya que tiene la función de enviar un mail con una tabla en el cierpo del correo, este es el código que tengo hasta el momento, solo que no esta realizando la función de envio con la tabla en el cuerpo del mail.
Sub correo()
Range("b2:e11").Copy
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.to = "[email protected]"
parte2.Subject = "Hola"
Application.SendKeys "^v"
parte2.display
parte2.send
Set parte1 = Nothing
Set parte2 = Nothing
End Sub
Respuesta de Dante Amor
1
Prueba con la siguiente
Sub correo()
'Act.Por.Dante Amor
Range("b2:e11").Copy
Set dam = CreateObject("outlook.application").createitem(0)
dam.to = "[email protected]"
dam.Subject = "Hola"
dam.display
SendKeys "^v", True: DoEvents
dam.display
dam.send
Set dam = Nothing
End SubS a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
