Normally, we can easily arrange all email messages by sender, categories, subjects, size, etc. in Microsoft Outlook. However, it seems impossible to sort or group email messages by sender domains, because there is no Sender domain field for email messages at all. Here I will introduce a VBA code to help you add a Domain column for email messages, then sort and group the email messages by the sender domains easily in Outlook.
To sort and group email messages by sender domains in Microsoft Outlook 2013 and 2010, please do as following:
Step 1: Open the mail folder where you will sort all email messages by sender domains.
Step 2: Turn off the Reading Pane with clicking the Reading Pane > Off on the View tab.
Step 3: Go ahead and click the Add Columns on the View tab.
Step 3: In the Show Columns dialog box, click the New Column button.
Step 4: In the New Column dialog box, type the Domain in the Name box, and keep the Text selected in the both Type box and Format box, at last click the OK button.
Step 5: Now you get back to the Show Columns dialog box, select the Domain in the Show these columns in this order box, move it below From item, and click the OK button.
Step 6: Now you go back to the opening mail folder, select all email messages with pressing the Ctrl + A keys at the same time.
Step 7: Press the Alt + F11 keys in a meanwhile to open the Microsoft Visual Basic for Applications window; then click the Insert > Module, next paste the following VBA code into the module.
VBA: Sort and Group by sender domain
Sub ListSelectionDomain()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim sDomain
On Error Resume Next
For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj
sDomain = Right(oMail.SenderEmailAddress, Len(oMail.SenderEmailAddress) - InStr(1, oMail.SenderEmailAddress, "@"))
Set oProp = oMail.UserProperties.Add("Domain", olText, True)
oProp.Value = sDomain
oMail.Save
Err.Clear
Next
End SubStep 8: Run this VBA code with pressing the F5 key or Run button in the Toolbar.
Step 9: Now each sender’s domain is extracted and filled into the Domain column.
A. To sort the email messages by sender domains, just click the Column header of Domain at the top of all email messages;
B. To group the email messages by sender domains, just right click the Column header of Domain, and select the Group By This Field from the drop down list. See screen shot below:
Notes:
(1) This VBA code works well in Outlook 2013 and 2010, but doesn’t work in Outlook 2007.
(2) You can save the custom view easily with How to save and copy view settings to other folders in Outlook?
Related Article How to view senders’ domain in mail list in Outlook?
