Send Email From Excel

This is a simple example of how to send an email from Excel.

Click here for a more complex example: Send worksheet by email as a separate workbook. This example also deals with password protection and other common issues.

Sub Mail_Workbook()
Application.ScreenUpdating = False

Dim OutApp As Object
Dim OutMail As Object

'Create Initial variables
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

'Email
On Error Resume Next
With OutMail
.to = "email@email.com"
.CC = ""
.BCC = ""
.Subject = "Subject"
.Body = "Body Text"
'.Attachments.Add (FilePath)  'Optional if you have an attachment
.Display
' .Send   'Optional to automate sending of email. 
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing

Application.ScreenUpdating = True
End Sub