Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!
Dim objOutlook As Outlook.Application Set objOutlook = New Outlook.Application Dim objNS As Outlook.NameSpace Set objNS = objOutlook.Session Dim objContacts As Outlook.MAPIFolder Set objContacts = objNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts) Dim objItems As Object Set objItems = objContacts.Items Dim objItem As Object For Each objItem In objItems ' If TypeOf(objItem) Is Outlook.ContactItem Then Debug.Print objItem.FullName ' End If Next
' If TypeOf(objItem) Is Outlook.ContactItem Then
Join the community of 500,000 technology professionals and ask your questions.