Search results

  1. J

    An attempt operation failed. An object could not be found at line5.

    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...
Top