Attribute VB_Name = "basSendExcelWorkbk"
Option Explicit

Sub EMailWorkbook()
  SendCurrentWorkbook "nunnm@plural.com"

End Sub

Function SendCurrentWorkbook(streMail As String)

  Dim objOutlook As Outlook.Application
  Dim itmNewEMail As Outlook.MailItem
  Dim itmNewTask As Outlook.TaskItem
  
  Set objOutlook = New Outlook.Application
  
  Set itmNewEMail = objOutlook.CreateItem(olMailItem)
  
  With itmNewEMail
    .To = streMail

    If ActiveWorkbook.Path = "" Then
      ActiveWorkbook.Save
    End If
    .Attachments.Add ActiveWorkbook.Path & "\" & _
                 ActiveWorkbook.Name
    .Send
  End With
  
  Set itmNewTask = objOutlook.CreateItem(olTaskItem)
  
  With itmNewTask
    .Subject = "Excel Workbook sent to - " & streMail
    .Body = "Follow up on details"
    .DueDate = Date + 3
    .Attachments.Add ActiveWorkbook.Path & "\" & _
                        ActiveWorkbook.Name
    .Save
    .Recipients.Add streMail
    .Assign
    .Send
  End With
  
End Function