Resolve email id's and unresolved email id's get them into an excel.
Below is a working code that gets the unresolved names to a txt file
can i get the data into an excel as
So i can filer and copy as required later
Dim objFSO As Object, objFile As Object, olkRecipient As Outlook.Recipient
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Change the file name and path on the next line'
Set objFile = objFSO.CreateTextFile("D:\Unresolved Addresses.txt", True)
For Each olkRecipient In Outlook.ActiveInspector.CurrentItem.Recipients
If Not olkRecipient.Resolved Then
Set objFile = Nothing
Set objFSO = Nothing
Set olkRecipient = Nothing