Microsoft Office Tutorials and References
In Depth Information
Be aware that this macro will find appointments only in the default Calendar folder. If you have
created additional calendar folders, and want the macro to look in them, you will have to modify
the code to get a reference to these additional folders and process the appointments they contain as
well. You saw how to get a reference to a user-created folder in Chapter 24.
Figure 25.2 shows a note created by this macro. The code for the macro is presented in Listing 25.3.
The macro ListAppointmentsThisWeek creates a note containing all your appointments for the next week.
The ListAppointmentsThisWeek Macro
Public Sub ListAppointmentsThisWeek()
‘ Creates a Note containing a list of all appointments
‘ for the coming week.
Dim MyCalendar As Outlook.MAPIFolder
Dim MyAppt As Outlook.AppointmentItem