Outlook Technologies

Outlook Forms

Languages

Samples

More Outlook Resource Sites

Microsoft Developer Network (MSDN)

FAQs and other general resources

share code 02-Sep-2010 22:31

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Code level: intermediate Code area: Basic Outlook Printer Friendly Version
Title: Making an Item Readonly
Description: This code can be used for making an item read only. The Main logic behind this code is it stores all the items in the collection and then restores them in the item change event taking jobtitle as the unique parameter which can be later substituted by any custom property
Date: 02-Jul-2003 19:16
Code level: intermediate
Code area: Basic Outlook
Posted by: Akshay Zadgaonkar
Body: 'Here is a code and it is written asuming that only FirstName LastName, JobTitle and FileAs should be readonly Private objApp As Outlook.Application Private WithEvents objExplorer As Outlook.Explorer Private WithEvents objContactItems As Outlook.Items Private objExistingItems As Collection Private Sub Form_Load() Me.WindowState = vbMinimized Set objApp = New Application Set objExplorer = objApp.ActiveExplorer Set objContactItems = objApp.Session.GetDefaultFolder(olFolderContacts).Items Set objExistingItems = New Collection RePopulateCollection End Sub Private Sub objContactItems_ItemAdd(ByVal Item As Object) Dim cTemp As ContactItem Set cTemp = objContactItems.Add() With cTemp .FirstName = Item.FirstName .LastName = Item.LastName .FileAs = Item.FileAs .JobTitle = Item.JobTitle End With objExistingItems.Add cTemp End Sub Private Sub objContactItems_ItemChange(ByVal Item As Object) Dim iCount As Integer Dim cTemp As ContactItem Set objContactItems = Nothing For iCount = 1 To objExistingItems.Count If objExistingItems.Item(iCount).JobTitle = Item.JobTitle Then Set cTemp = objExistingItems.Item(iCount) End If Next With Item .FirstName = cTemp.FirstName .LastName = cTemp.LastName .FileAs = cTemp.FileAs .JobTitle = cTemp.JobTitle End With Item.Save Set objContactItems = objApp.Session.GetDefaultFolder(olFolderContacts).Items MsgBox "All Contacts Are Read Only, They Cannot be Edited!", vbCritical + vbSystemModal RePopulateCollection End Sub Private Sub RePopulateCollection() Dim iCount As Integer iCount = 0 Set objExistingItems = Nothing Set objExistingItems = New Collection iCount = 0 For iCount = 1 To objContactItems.Count Dim cTemp As ContactItem Set cTemp = objApp.Session.GetDefaultFolder(olFolderContacts).Items.Add() With cTemp .FirstName = objContactItems.Item(iCount).FirstName .LastName = objContactItems.Item(iCount).LastName .FileAs = objContactItems.Item(iCount).FileAs .JobTitle = objContactItems.Item(iCount).JobTitle End With objExistingItems.Add cTemp Next End Sub
All 2comments

	Page [ 1 ]
	sarath babu 25-Aug-2004 05:31 whate is here --- olFolderContacts
	Sue Mosher 20-Oct-2004 15:12 olFolderContacts is one of the Outlook constants enumerated for use with the GetDefaultFolder method. You can look up the literal value in the object browser.
	Page [ 1 ]

name email