Attribute VB_Name = "EmailWorkbookOutlook"
' Envía el libro activo como adjunto por Outlook (se muestra como borrador).
Sub EmailWorkbookViaOutlook()
    Dim outlookApp As Object, mail As Object
    Set outlookApp = CreateObject("Outlook.Application")
    Set mail = outlookApp.CreateItem(0)
    With mail
        .To = "destinatario@ejemplo.com"
        .Subject = ThisWorkbook.Name
        .Body = "Hola," & vbCrLf & vbCrLf & _
                "Adjunto el archivo." & vbCrLf & vbCrLf & "Saludos."
        .Attachments.Add ThisWorkbook.FullName
        .Display   ' cambia a .Send para enviar automáticamente
    End With
End Sub