T
Tony Cancilla
I'm attempting my first Outlook VBA macro using some of
the examples in the help files to get started. I am
using events and handling the SyncObject's SyncEnd event
(See code below). My macro seems to work. However, when
I shutdown and restart Outlook I get the following error
on startup everytime:
"Outlook experience a serious error the last time the add-
in 'microsoft vba for outlook addin' was opened. Would
you like to disable this add-in? To reactivate this add-
in, click About Microsoft Office Outlook on the Help
menu, and then click Disabled Items"
I'm using Office 2003 Student and Teacher Edition on
Windows XP Pro.
Code under "ThisOutlookSession"
Dim myClass As New Class1
Private Sub Application_Startup()
myClass.Initialize_handler
End Sub
Code under "Class1" (Class Module)
Dim myOlApp As New Outlook.Application
Dim WithEvents mySync As Outlook.SyncObject
Sub Initialize_handler()
Set mySync = myOlApp.Session.SyncObjects.Item(1)
End Sub
Private Sub mySync_SyncEnd()
MsgBox "Synchronization is complete."
End Sub
Any help would be appreciated.
Tony
the examples in the help files to get started. I am
using events and handling the SyncObject's SyncEnd event
(See code below). My macro seems to work. However, when
I shutdown and restart Outlook I get the following error
on startup everytime:
"Outlook experience a serious error the last time the add-
in 'microsoft vba for outlook addin' was opened. Would
you like to disable this add-in? To reactivate this add-
in, click About Microsoft Office Outlook on the Help
menu, and then click Disabled Items"
I'm using Office 2003 Student and Teacher Edition on
Windows XP Pro.
Code under "ThisOutlookSession"
Dim myClass As New Class1
Private Sub Application_Startup()
myClass.Initialize_handler
End Sub
Code under "Class1" (Class Module)
Dim myOlApp As New Outlook.Application
Dim WithEvents mySync As Outlook.SyncObject
Sub Initialize_handler()
Set mySync = myOlApp.Session.SyncObjects.Item(1)
End Sub
Private Sub mySync_SyncEnd()
MsgBox "Synchronization is complete."
End Sub
Any help would be appreciated.
Tony