I've written a macro that will export all of my appointments to
Excel. With Office 2007, this works fine, but on other computers
running Office 2003, it does not work. The issue that 2003 does not
show the recurring items while 2007 does.

The start of my code is this:


Dim SafeAppointment, oAppointment
Dim olOutlook As Outlook.Application
Dim nsNameSpace As NameSpace
Dim mItemCollection As Items

Dim dStart As Date

Dim dDatePlace As Date
Dim dLastCalendarDate As Date
Dim bPrintBlanks As Boolean

Dim filter1 As String
filter1 = "[Start] >= '" & Format(frmCalendarPrint.txtStart, "mm/dd/
yy") & "' AND [Start] < '" & Format(frmCalendarPrint.txtEnd, "mm/dd/
yy") & "'"

Set olOutlook = CreateObject("Outlook.Application")
Set nsNameSpace = olOutlook.GetNamespace("MAPI")
Set mItemCollection =
nsNameSpace.GetDefaultFolder(olFolderCalendar).Items.Restrict(filter1)

mItemCollection.Sort "[Start]", False
mItemCollection.IncludeRecurrences = True
Set mitem = mItemCollection.Find("[Start] >= '" &
Format(frmCalendarPrint.txtStart, "mm/dd/yy") & "' AND [Start] < '" &
Format(frmCalendarPrint.txtEnd, "mm/dd/yy") & "'")


' LOOP OF CALENDAR ITEMS
***********************************************************************************************************************************************************
While TypeName(mitem) = "AppointmentItem"

Archived from group: microsoft>public>office>developer>outlook>vba