OL97: How to Use the Restrict Method

ID: Q171115

The information in this article applies to:

Microsoft Outlook 97

SUMMARY

This article demonstrates how to use the Restrict Method. The Restrict method applies a filter to the Items collection, returning a new collection containing all items from the original that match the filter. This method is an alternative to using the Find method or FindNext method to iterate over specific items within a collection. Find or FindNext is faster than filtering if there is a small number of items. Restrict is useful when performance is not a concern.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft Support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

In the Visual Basic for Applications example that follows, the Restrict Method applies a filter to the Contact items based on the item's LastModificationTime property.


   Public Sub ContactDateCheck()
   Set outlookApp = CreateObject("outlook.application")
   Set olNameSpace = outlookApp.GetNamespace("MAPI")
   Set mycontacts = olNameSpace.GetDefaultFolder(olFolderContacts).Items
   Set myItems = mycontacts.Restrict("[LastModificationTime] > '05/15/97'")
   For Each MyItem In myItems
       MsgBox MyItem.FullName & ": " & MyItem.LastModificationTime
   Next
   End Sub

The following Visual Basic for Applications example is the same as the example above, except that it demonstrates the use of a variable in the filter.


   Public Sub ContactDateCheck()
   Set outlookApp = CreateObject("outlook.application")
   Set olNameSpace = outlookApp.GetNamespace("MAPI")
   Set myContacts = olNameSpace.GetDefaultFolder(olFolderContacts).Items
   DateStart = #6/11/97#
   DateToCheck$ = "[LastModificationTime] >= """ & DateStart & """"
   Set myRestrictItems = myContacts.Restrict(DateToCheck$)
   For Each MyItem In myRestrictItems
      MsgBox MyItem.FullName & ": " & MyItem.LastModificationTime
   Next
   End Sub

NOTE: If you are using user-defined fields as part of a Find or Restrict clause, the user-defined fields must exist in the folder otherwise the code will generate an error stating that the field is unknown. You can add a field to a folder by displaying the Field Chooser and clicking New.

NOTE: If you receive an invalid parameter error running this code, make sure you reference the "Microsoft Outlook 8.0 Object Library" in your Visual Basic or Visual Basic for Applications editor.

For more information on using the Restrict method with recurring appointments, please see the following article in the Microsoft Knowledge Base:

Q170789 OL97: How to Retrieve All Recurring Appointments with Code

REFERENCES

For more information about creating solutions with Microsoft Outlook 97, please see the following articles in the Microsoft Knowledge Base:

Q166368 OL97: How to Get Help Programming with Outlook

Q170783 OL97: Q&A: Questions about Customizing or Programming Outlook

Additional query words: OutSol OutSol97

Keywords : kbcode kbprg
Version : WINDOWS:97
Platform : WINDOWS
Issue type : kbhowto