Problem sending email in VBA

[WAVP375]

I am attempting to email an image from a form. The code I am using is as follows. I am getting an error which makes no sense to me at all. Sure could use some help.

Thanks in advance

Private Sub BtnEmail_Click()

'Check for an email address
If IsNull([EmailAddress]) Then
MsgBox "Enter Email Address"
Me.EmailAddress.SetFocus
Else:
GoTo Continue
End If
Exit Sub

'Send email
Continue:
Dim FileName As String
Dim FilePath As String
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem

FileName = Me.DocumentTitle
FilePath = Me.ImagePath


If oOutlook Is Nothing Then
Set oOutlook = New Outlook.Application
End If

Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
.To = Me.EmailAddress
.Subject = "Document from Greene Memorial Archive System"
.Attachments.Add FilePath
.Send
End With

Set oEmail = Nothing
Set oOutlook = Nothing

MsgBox "Email has been sent to " & Me.EmailAddress


DoCmd.Close acForm, "frmSearch"
DoCmd.Close
DoCmd.OpenForm "frmMenu"
End Sub

The error message is: User defined Type not defined
and it highlights the Dim oOutlook as Outlook.Application statement

I have used this code before without this error

Any ideas?

[ranman256]

it sounds like you did not reference Outlook app in vbe.
Open the VBE, (ctl-G)
menu, tools, references.
make sure MS Outlook v.XX is checked

[WAVP375]

Thanks ranman that fixed the problem.

[WAVP375]

Another issue! I have done my development on Windows 10 system with Access and outlook level 2016. I am attempting to implement it on a corporate system running Access and Outlook 2010. When I execute the first code I get and error saying 'Can't find Project or library'. The reference list in tools shows a 'Missing Microsoft Outlook 16.0 Object library'. This library does not exist in the reference list and I did not find this object for any other level such as 'Microsoft Outlook 14.0. There must be a way around this?