Excel - enviar correo

hola

tengo que enviar un correo desde un macro de excel
para: 1 personal y cc: a otra
y tengo que adjuntar 2 libro de excel
desde ya muchas gracias

Te envío esta macro para trasladar correos, sólo lo tenes que adaptar a lo que necesitas.

Sub Send_Mail()
Dim OL As Object
Dim EmailItem As Object
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(0)
With EmailItem
.Subject = Range("c6")
.Body = Range("c7")
.To = Range("c5")
.Attachments.Add Range("c8").value
.display
End With
Set OL = Nothing
Set EmailItem = Nothing
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Application.Wait (Now + TimeValue("0:00:02"))
End Sub

Las opciones para el sendkeys "%r" o "%n" dependiendo si tienes Outlook en español o ingles… espero que esto resuelva tu problema.

Buenas tardes

Yo estoy ententando esto pero me muestra un error, mi objetivo es el siguiente :

tengo datos en B5:J5 y necesito enviarla en outlook, es posible hacer esto??

gracias de antemano por su valiosa ayuda


saludos