Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim objNS As Outlook.NameSpace
Dim MyFolder As Outlook.MAPIFolder
Set objNS = Application.GetNamespace("MAPI")
Set MyFolder = objNS.PickFolder
For Each objItem In MyFolder.Items
For Each Recip In objItem.Recipients
addr = LCase(Recip.Address)
Next
Next