>#DEFINE olFolderCalendar 9 >#DEFINE olFolderContacts 10 > >oOutlook = CREATEOBJECT('outlook.application') >oNameSpace = oOutlook.getnamespace('MAPI') >oDefaultContactFolder=oNameSpace.GetDefaultFolder(olFolderContacts) >oDiaryFolder=oNameSpace.GetDefaultFolder(olFolderCalendar) > >oItems = oDiaryFolder.items >FOR EACH oItem IN oItems > FOR EACH oLink IN oItem.links > oLinkItem = oLink.ITEM && this is the contact item > NEXT >NEXT > >&& to add a contact >oLinkItem = oDefaultContactFolder.items.FIND('[Lastname]='+"Bloggs") >oItem.links.ADD(oLinkItem) >>