Getting error as variable not defined for olMailItem in below VBA

[Legacy 432851]

Can anyone gives a cue what's the error / how to get out of it.

Option Explicit


Private Sub CommandButton1_Click()
On Error GoTo ErrHandler

' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")

' CREATE EMAIL OBJECT.
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
.To = "abcd@gmail.com"
.CC = "efgh@gmail.com"
.BCC = "wxyz@gmail.com"
.Subject = "SALE DATED" & Date
.Body = "Hi there"
.Attachments.Add ("C:\Users\NARESH\Desktop\Sale.doc")
.Send
End With

' CLEAR.
Set objEmail = Nothing: Set objOutlook = Nothing

ErrHandler:
'
End Sub

 

[KKaren]

Try changing this line:
Set objEmail = objOutlook.CreateItem(olMailItem)

to

Set objEmail = objOutlook.CreateItem(0)

source:
https://msdn.microsoft.com/en-us/vba/outlook-vba/articles/olitemtype-enumeration-outlook