VBA to get Alias from outlook contact properties

[everblazing]

HI

Appreciate any assistance. I am trying to get the Alias ID of every received email from the sender's email. To get to Alias you can right click on the received email, select open Outlook Properties and Alias will be visible there.

I have already built a code that extracts any email received in my inbox from a particular date specified in cell B, all i am trying to do is to add the Alias ID in D4 onwards.

Sub GetFromOutlook()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
 Dim olExchgnUser    As ExchangeUser
 

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.Folders("insert your own email address").Folders("inbox")

i = 1

For Each OutlookMail In Folder.Items
If OutlookMail.ReceivedTime >= Range("email_Receipt_Date").Value Then
Range("email_Subject").Offset(i, 0).Value = OutlookMail.Subject

''Alias this is where i'm attempting to get Alias as part of the loop from every Item
Dim olNameSpace     As Namespace
    Dim olAddrList      As AddressList
    
    Set olAddrList = OutlookNamespace.AddressLists("Global Address List")
 Set olExchgnUser = olAddrEntry.GetExchangeUser
        With olExchgnUser
            Range("Alias_name").Offset(i, 0) = .Alias
           
        End With
''''ENd Alias


Range("email_Subject").Offset(i, 0).Columns.AutoFit
Range("email_Subject").Offset(i, 0).VerticalAlignment = xlTop
Range("email_Date").Offset(i, 0).Value = OutlookMail.ReceivedTime
Range("email_Date").Offset(i, 0).Columns.AutoFit
Range("email_Date").Offset(i, 0).VerticalAlignment = xlTop
Range("email_Sender").Offset(i, 0).Value = OutlookMail.SenderName
Range("email_Sender").Offset(i, 0).Columns.AutoFit
Range("email_Sender").Offset(i, 0).VerticalAlignment = xlTop
Range("email_Body").Offset(i, 0).Value = OutlookMail.Body
Range("email_Body").Offset(i, 0).Columns.AutoFit
Range("email_Body").Offset(i, 0).VerticalAlignment = xlTop

i = i + 1
End If
Next OutlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
MsgBox "operation Complete"

End Sub

appreciate any assistance.

 

[daverunt]

Hi,

I found a post here that may or may not be helpful.

Outlook 2010 VBA code to show alias of recipient

My company assigns each employee an ID which is stored as their 'alias' in Outlook. We use this ID often, and I am looking for an easy way to see it. Right now I enter the recipient name in a new e...

stackoverflow.com

You should add that you posted on Stackoverflow too.

How to get Alias from contact properties

I am trying to get the Alias ID of every received email from the sender's email address. To get Alias you can right click on the received email, select open Outlook Properties. I built a code that

stackoverflow.com

 

[everblazing]

Hi all,

Managed to have this resolved.

please refer to this thread.

Thanks daverunt
.

 

[treflip]

please refer to this thread.

What thread? I don't see the link or any post from daverunt mentioning alias'.