Compile Error User defined type not defined

[Pookiemeister]

"Microsoft Office 16.0 Object Library" is checked

Sub ExtractCalendarEvents()
    Dim olApp As Outlook.Application [B]'ERROR HAPPENS HERE[/B]
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.Folder
    Dim olItems As Outlook.Items
    Dim olAppointment As Outlook.AppointmentItem
    Dim i As Integer

    ' Create a new Excel workbook
    Dim xlApp As Excel.Application
    Dim xlWorkbook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlApp = New Excel.Application
    Set xlWorkbook = xlApp.Workbooks.Add
    Set xlSheet = xlWorkbook.Sheets(1)
    
    ' Set up Outlook objects
    Set olApp = New Outlook.Application
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set olFolder = olNamespace.GetDefaultFolder(olFolderCalendar)
    Set olItems = olFolder.Items
    
    ' Add headers to the Excel sheet
    xlSheet.Cells(1, 1).Value = "Subject"
    xlSheet.Cells(1, 2).Value = "Start"
    xlSheet.Cells(1, 3).Value = "End"
    
    ' Loop through the calendar items and add them to the Excel sheet
    i = 2
    For Each olAppointment In olItems
        If TypeName(olAppointment) = "AppointmentItem" Then
            xlSheet.Cells(i, 1).Value = olAppointment.Subject
            xlSheet.Cells(i, 2).Value = olAppointment.Start
            xlSheet.Cells(i, 3).Value = olAppointment.End
            i = i + 1
        End If
    Next olAppointment
    
    ' Save and open the workbook
    xlWorkbook.SaveAs "C:\Path\To\Save\CalendarEvents.xlsx"
    xlApp.Visible = True
    
    ' Clean up
    Set olApp = Nothing
    Set olNamespace = Nothing
    Set olFolder = Nothing
    Set olItems = Nothing
    Set xlApp = Nothing
    Set xlWorkbook = Nothing
    Set xlSheet = Nothing
    
    MsgBox "Events have been extracted and saved to an Excel file.", vbInformation
End Sub

 

[dmt32]

Try checking "Microsoft Outlook 16.0 Object Library"

Dave

 

[Pookiemeister]

Try checking "Microsoft Outlook 16.0 Object Library"

Dave

MS Office 16 object is checked as stated. Thank you

 

[dmt32]

MS Office 16 object is checked as stated. Thank you

Yes I read that but I was referring to Outlook object library

 

[Pookiemeister]

Yes,

 

[Fluff]

That is NOT what dmt32 is saying. Look at what he put in bold in post#2

 

[Pookiemeister]

I have two versions of Outlook on my laptop. I have Office 365 and Office 2010. Would this make a difference?

 

[dmt32]

I have two versions of Outlook on my laptop. I have Office 365 and Office 2010. Would this make a difference?

not able to offer a view on that - I am running office 2021 on this laptop & your code, with that library checked, compiled ok.

Dave