RE:adjuntar archivos a un correo
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.