Complie erroe

[thndrbd2]

Hi all:

I ahve written the following code within a word doc to and added menu item to execute the comands ...

Option Explicit
Sub eMailActiveDocument()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document
Application.ScreenUpdating = False
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Doc.Save
With EmailItem
.Subject = "AdHoc Request"
.To = "[e-mail]"
'.Importance = olImportanceNormal Or olImprotanceHigh Or olImprotanceLow
.Attachments.Add Doc.Adhocrequest.Doc
.Display
' .Send
End With

Application.ScreenUpdating = True
Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub

But when I run I receive a compile error referring to code:
Set EmailItem = OL.CreateItem(olMailItem)

Any ideas why?

[Sick0Fant]

Hi all:

I ahve written the following code within a word doc to and added menu item to execute the comands ...

Option Explicit
Sub eMailActiveDocument()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document
Application.ScreenUpdating = False
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Doc.Save
With EmailItem
.Subject = "AdHoc Request"
.To = "[e-mail]"
'.Importance = olImportanceNormal Or olImprotanceHigh Or olImprotanceLow
.Attachments.Add Doc.Adhocrequest.Doc
.Display
' .Send
End With

Application.ScreenUpdating = True
Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub

But when I run I receive a compile error referring to code:
Set EmailItem = OL.CreateItem(olMailItem)

Any ideas why?

If you posted the text of the error, it would help. Also, why use Late-binding?