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
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 Sub

S a l u d o s . D a n t e   A m o r

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas