"User-defined type not defined"

[sabine]

Hello I have inherited some work what includes a workbook that has an email function in it.
The error I get is "User-defined type not defined"

I must be missing something but can not work out how to fix this


The VB section is

Private Sub cmdEmail_Click()
ThisWorkbook.ActiveSheet.Calculate
ThisWorkbook.Names("Email").RefersToRange.Copy

Dim ol As Outlook.Application

On Error Resume Next
Set ol = GetObject(, "Outlook.Application")
If Err.Number = 429 Then
Set ol = New Outlook.Application
End If
On Error GoTo 0

Dim m As Outlook.MailItem
Set m = ol.CreateItem(olMailItem)
m.To = ThisWorkbook.Names("EmailName").RefersToRange.Value
m.CC = ThisWorkbook.Names("EmailCc").RefersToRange.Value
m.Subject = ThisWorkbook.Names("EmailSubject").RefersToRange.Value
m.Display


Set ol = Nothing
End Sub

​

 

[Andrew Poulsom]

If you haven't set a reference to Outlook try:

Dim ol As Object

 

[Trevor G]

You need to look at the Reference in the VBA Screen to see if Outlook has been set.

Use Alt + F11 then go to the Tools Menu and Select References then look to see if Microsoft Outlook (XX) .Object Library has been selected if not then scroll down until you see it and click the box.

Or change to Andrews suggestion.

Dim ol As Object

 

[VoG]

You may need to set a reference to Outlook. To add a reference to the Microsoft outlook Library

1) Go to the VBA editor, Alt -F11
2) Tools>References in the Menu bar
3) Place a Checkmark before Microsoft Outlook ? Object Library
? is the Excel version number

 

[sabine]

Thanks everyone - up and running now