Main Heading

This Outlook VBA code sample creates a "sticky note" linked to the currently selected Outlook contact via the note's Links collection and then displays the note for the user to complete. The user will be able to see such linked notes on the Activities page of the contact. Place this code in any regular module in Outlook VBA. You can also download the code and import it into VBA.

Code Sample

Sub MakeNoteForContact() Dim objApp As Application Dim objItem As Object Dim objNote As NoteItem Dim colLinks As Links Dim objLink As Link Set objApp = CreateObject("Outlook.Application") On Error Resume Next Select Case TypeName(objApp.ActiveWindow) Case "Explorer" Set objItem = objApp.ActiveExplorer.Selection.Item(1) Case "Inspector" Set objItem = objApp.ActiveInspector.CurrentItem End Select If objItem.Class = olContact Then Set objNote = objApp.CreateItem(olNoteItem) Set colLinks = objNote.Links Set objLink = colLinks.Add(objItem) objNote.Display End If Set objLink = Nothing Set colLinks = Nothing Set objNote = Nothing Set objItem = Nothing Set objApp = Nothing End Sub

Notes

You can add this code to a toolbar button either for Outlook's main window or for an open item, because the Select ... End Select block checks to see whether the code is being run from an Inspector or an Explorer. This is a useful technique whenever you have a routine that you might want to run for a selected item in a folder or for an item open in its own window.

More Information

To clear the Links collection in a Microsoft Outlook item -- since there is no UI for clearing a sticky note link


	© 2002-6 TurtleFlock, LLC All right reserved. About OutlookCode.com Send comments to webmaster@outlookcode.com Designed and Implemented by TerraLink USA FrontPage Integration by RobsonDesignWorks


get Sue's code \| forums \| share your own code \| registration