I am trying to create code in VBA to trigger an event anytime that an
AppointmentItem in my calendar is deleted so that I can do some processing.
The BeforeDelete event seems to be the one, but I am having trouble figuring
out exactly how I would link the event to the the Calendar. In VBA, the only
events that I see are the ones assocated with the Application. How do I
implement the events for stuff happening in the Calendar?

Thanks!

Kevin

Outlook version?

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Kevin" wrote in message
news
I am trying to create code in VBA to trigger an event anytime that an
AppointmentItem in my calendar is deleted so that I can do some
processing.
The BeforeDelete event seems to be the one, but I am having trouble
figuring
out exactly how I would link the event to the the Calendar. In VBA, the
only
events that I see are the ones assocated with the Application. How do I
implement the events for stuff happening in the Calendar?

Thanks!

Kevin

Sorry! 2007.

"Sue Mosher [MVP]" wrote:

Outlook version?

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Kevin" wrote in message
news
I am trying to create code in VBA to trigger an event anytime that an
AppointmentItem in my calendar is deleted so that I can do some
processing.
The BeforeDelete event seems to be the one, but I am having trouble
figuring
out exactly how I would link the event to the the Calendar. In VBA, the
only
events that I see are the ones assocated with the Application. How do I
implement the events for stuff happening in the Calendar?

Thanks!

Kevin

The event you should use is Folder.BeforeItemMove; see its topic in Help or
in the Outlook Developer Reference at
http://msdn.microsoft.com/en-us/library/bb147840.aspx. To see that event in
action, put the following code in the built-in ThisOutlookSession module and
either restart Outlook or run the Application_Startup procedu

Dim WithEvents objCalFolder As Outlook.Folder
Dim objDelFolder As Outlook.Folder

Private Sub Application_Startup()
Set objCalFolder =
Application.Session.GetDefaultFolder(olFolderCalen dar)
Set objDelFolder =
Application.Session.GetDefaultFolder(olFolderDelet edItems)
End Sub

Private Sub objCalFolder_BeforeItemMove(ByVal Item As Object, ByVal
MoveTo As MAPIFolder, Cancel As Boolean)
If MoveTo Is Nothing Then
Debug.Print Item.Subject & " was hard deleted"
ElseIf MoveTo = objDelFolder Then
Debug.Print Item.Subject & " was moved to Deleted Items"
End If
End Sub

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Kevin" wrote in message
...
Sorry! 2007.

I am trying to create code in VBA to trigger an event anytime that an
AppointmentItem in my calendar is deleted so that I can do some
processing.
The BeforeDelete event seems to be the one, but I am having trouble
figuring
out exactly how I would link the event to the the Calendar. In VBA, the
only
events that I see are the ones assocated with the Application. How do I
implement the events for stuff happening in the Calendar?

Thanks!

Kevin

Sorry about the bad line wrapping. Those Set statements can have an
underscore
line break in them to make them display better in this newsgroup:

Set objCalFolder = _
Application.Session.GetDefaultFolder(olFolderCalen dar)
Set objDelFolder = _
Application.Session.GetDefaultFolder(olFolderDelet edItems)

"Sue Mosher [MVP]" wrote in message
...
The event you should use is Folder.BeforeItemMove; see its topic in Help
or in the Outlook Developer Reference at
http://msdn.microsoft.com/en-us/library/bb147840.aspx. To see that event
in action, put the following code in the built-in ThisOutlookSession
module and either restart Outlook or run the Application_Startup
procedu

Dim WithEvents objCalFolder As Outlook.Folder
Dim objDelFolder As Outlook.Folder

Private Sub Application_Startup()
Set objCalFolder =
Application.Session.GetDefaultFolder(olFolderCalen dar)
Set objDelFolder =
Application.Session.GetDefaultFolder(olFolderDelet edItems)
End Sub

Private Sub objCalFolder_BeforeItemMove(ByVal Item As Object, ByVal
MoveTo As MAPIFolder, Cancel As Boolean)
If MoveTo Is Nothing Then
Debug.Print Item.Subject & " was hard deleted"
ElseIf MoveTo = objDelFolder Then
Debug.Print Item.Subject & " was moved to Deleted Items"
End If
End Sub

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Kevin" wrote in message
...
Sorry! 2007.

I am trying to create code in VBA to trigger an event anytime that an
AppointmentItem in my calendar is deleted so that I can do some
processing.
The BeforeDelete event seems to be the one, but I am having trouble
figuring
out exactly how I would link the event to the the Calendar. In VBA,
the
only
events that I see are the ones assocated with the Application. How do
I
implement the events for stuff happening in the Calendar?

Thanks!

Kevin