#DEFINE olFolderCalendar 9 #DEFINE olFolderContacts 10 #DEFINE olFolderDeletedItems 3 #DEFINE olFolderInBox 6 #DEFINE olFolderJournal 11 #DEFINE olFolderNotes 12 #DEFINE olFolderOutBox 4 #DEFINE olFolderSentMail 5 #DEFINE olFolderTask 13 lcFolder = "myFolder" oDefaultFolder =oNameSpace.Getdefaultfolder(olFolderContacts) If oDefaultFolder.name == lcFolder oContactFolder = oDefaultFolder Else oFolders=oDefaultFolder.folders For EACH oFolder IN oFolders If oFolder.name == lcFolder oContactFolder = oFolder Exit Endif Endfor Endif oItems = oContactFolder.items For EACH oItem IN oItems next oNewItem = oItems.add()hth