At times, you may want to add an email sender to a specific existing contact group in your Outlook. So this article will focus on this requirement to offer 2 quick tips.
When you would like to add the sender of a specific email to an existing contact group, in general, you will accomplish it manually. However, to be honest, it’s a bit troublesome. Actually, via Outlook VBA, you achieve it much quicker. Here we will introduce the two means in detail.
Method 1: Add an Email Sender to a Contact Group Manually
- In the first place, open the source email.
- Then right click on the sender email address line.
- From the popup right clicking menu, select “Copy”.
- Subsequently, turn to your Contacts folder and double click on the contact group which you want to add the members to.
- Next, in the opened contact group, select “Add Members” > “From Outlook Contacts”.
- After that, click into the “Members ->” field and press Ctrl + V key buttons to paste the copied sender email address.
- Later click “OK”.
- Finally you can click “Save & Close” button to save the contact group.
Method 2: Add an Email Sender to a Contact Group via VBA
- Firstly, press “Alt + F11” key shortcuts.
- Then in the popup Outlook VBA editor window, open a module that is not in use.
- Subsequently, copy and paste the following VBA codes into it.
Sub AddEmailSenderToContactGroup() Dim objMail As Outlook.MailItem Dim objTempMail As Outlook.MailItem Dim objRecipients As Outlook.Recipients Dim objContacts As Outlook.Items Dim objContact As Object Dim strContactGroupName As String Dim objSpecificContactGroup As Outlook.DistListItem Dim nPrompt As Integer Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1) Set objTempMail = objMail.Reply Set objRecipients = objTempMail.Recipients Set objContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items strContactGroupName = InputBox("Input the name of a specific contact group:") Set objContact = objContacts.Find("[FullName] = '" & strContactGroupName & "'") If Not objContact Is Nothing Then If TypeOf objContact Is DistListItem Then Set objSpecificContactGroup = objContact With objSpecificContactGroup .AddMembers objRecipients .Display '.Save --> save it End With Else nPrompt = MsgBox(Chr(34) & strContactGroupName & Chr(34) & " is not a contact group!", vbExclamation + vbOKOnly, "Find Contact Group") End If Else nPrompt = MsgBox("Not find such a contact group called " & Chr(34) & strContactGroupName & Chr(34) & "!", vbExclamation + vbOKOnly, "Find Contact Group") End If objTempMail.Close olDiscard End Sub
- Next add the new macro to Quick Access Toolbar.
- Finally you can have a try.
- First, select an email.
- Then hit the new macro button in Quick Access Toolbar.
- Next an input box will pop up, in which you need to enter the name of a specific contact group.
- Lastly, hit “OK”. The corresponding contact group will show up, in which you can see the email sender has been added.
Cope with Irksome Outlook Issues
Many are complaining that Outlook is error prone. Thus you should make some precautions to prevent Outlook data loss, such as making regular data backups, preparing a potent Outlook fix tool, like DataNumen Outlook Repair. With such a tool, you will be able to rescue your Outlook data in time.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including mdf damage and outlook repair software products. For more information visit www.datanumen.com