M
michaaal
How can I get my categories list? (the categories that I put my Contacts in)
Is this even close...?
Dim objApp As Application
Dim objNS As NameSpace
Dim objContacts As MAPIFolder
Dim objItem As Object
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objContacts = objNS.GetDefaultFolder(olFolderContacts)
x = set objContacts.Categories
For Each objCategories in x
msgbox(objCategories)
Next
Is this even close...?
Dim objApp As Application
Dim objNS As NameSpace
Dim objContacts As MAPIFolder
Dim objItem As Object
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objContacts = objNS.GetDefaultFolder(olFolderContacts)
x = set objContacts.Categories
For Each objCategories in x
msgbox(objCategories)
Next