Macro en excel que seleccione celdas y las envíe por correo

Esperando estén bien, les pido favor su ayuda en escribir una macro que seleccione un rango de celdas con valores, los copie en un correo y los envié a destinatarios. Hasta ahora tengo esto escrito (y si, no se nada de macros)

Sub correo1()

Range("c11:g49").Copy

Set parte1 = CreateObject("outlook.application")

Set parte2 = parte1.CreateItem(olMailItem)

parte2.To = “[email protected]

parte2.CC = "[email protected]"

parte2.Subject = "información solicitada"

Parte2. Body = "Estimadas(os) buenos días, junto con saludar, les adjunto detalle solicitado"

parte2.Display

Application.SendKeys "^v"

Set parte1 = Nothing

Set parte2 = Nothing

End Sub

Con esto tengo 2 problemas

1, se selecciona todo el rango de celdas (c11 a g49) y lo que necesito es que se seleccione dentro de ese rango las celdas que tienen valores.

2. Al cargar tabla a Outlook, aparece primero la tabla y abajo el cuerpo del mensaje, necesito que aparezca primero el cuerpo del mensaje y luego la tabla.

Añade tu respuesta

Haz clic para o