Attribute VB_Name = "EmailWorkbookOutlook"
' Emails the active workbook as an attachment via Outlook (shown as a draft).
Sub EmailWorkbookViaOutlook()
    Dim outlookApp As Object, mail As Object
    Set outlookApp = CreateObject("Outlook.Application")
    Set mail = outlookApp.CreateItem(0)
    With mail
        .To = "recipient@example.com"
        .Subject = ThisWorkbook.Name
        .Body = "Hi," & vbCrLf & vbCrLf & _
                "Please find the attached file." & vbCrLf & vbCrLf & "Thanks."
        .Attachments.Add ThisWorkbook.FullName
        .Display   ' change to .Send to send automatically
    End With
End Sub