#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)hth