ERROR in VBA : variable not defined - olMailItem

[mkrana422]

Pls. help I am getting error as variable not defined for olMailItem in below VBA

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

 

[sykes]

Think you need to Dim olMailItem, in your code.

 

[ParamRay]

Since you're using late binding, you need to add this line at the beginning of the procedure:

Const olMailItem = 0

 

[Legacy 432851]

Think you need to Dim olMailItem, in your code.

Tried, but Not working