Search results

Private WithEvents Items As Outlook.Items Private Sub Application_Startup() Dim Ns As Outlook.NameSpace Set Ns = Application.GetNamespace("MAPI") Set Items = Session.GetDefaultFolder(olFolderCalendar).Parent.Folders("abc").Items End Sub Private Sub Items_ItemAdd(ByVal Item As Object) 'On...