[AccessD] FW: A2003: Runtime Error Type Mismatch (SOLVED)

Hello all
Got an answer from Sue
Needed to replace the early binding item...
Dim myAppt As Outlook.AppointmentItem
With
Dim myAppt As object

See y'all

Darren


ORIGINAL MESSAGE:
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

(Cross Posted to Dmitry and Sue's List)

Hello all
I have the code below working fine until today It errors on the last line in
this code The error is Runtime Error 13 Type Mismatch

Can anyone explain why it used to work - now it doesn't?
References are good - Though once this rubbish started I manually removed
them and re attached them - no luck OFFICE 11

May thanks in Advance

Darren

'+++++++++++++++++++<SNIP>
   Dim ol As Outlook.Application
   Dim olns As Outlook.NameSpace
   Dim objFolder As Outlook.MAPIFolder
   Dim AllAppts As Outlook.Items
   Dim myAppt As Outlook.AppointmentItem
        
    Set ol = New Outlook.Application
    Set olns = ol.GetNamespace("MAPI")

    Set objFolder = olns.GetDefaultFolder(olFolderCalendar)
    Set AllAppts = objFolder.Items
        
    Dim appSQL As String
    Dim strOutLookID  As String
        
    For Each myAppt In AllAppts '<======ERROR IS HERE

'++++++++++</Snip>