Sub Mail_workbook_Outlook()
'Es necesario aņadir la refeerncia Microsoft Outlook Library (herramientas/referencias)
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
    With OutMail
        .To = "ejemplo@dominio.com"
        .CC = ""
        .BCC = ""
        .Subject = "Asunto del mensaje"
        .Body = "Este es el texto del mensaje"
        'Se pueden adjuntar ficheros
        .Attachments.Add ("C:\Mi_Fichero.pdf")
        .Display 'tambien se puede usar .Send y lo situa en la bandeja de salida
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub