2 Methods to Add an Email Sender to a Specific Contact Group in Outlook

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.

Add an Email Sender to a Specific Contact Group

Method 1: Add an Email Sender to a Contact Group Manually

  1. In the first place, open the source email.
  2. Then right click on the sender email address line.
  3. From the popup right clicking menu, select “Copy”.Copy the Sender Email Address
  4. Subsequently, turn to your Contacts folder and double click on the contact group which you want to add the members to.
  5. Next, in the opened contact group, select “Add Members” > “From Outlook Contacts”.
  6. After that, click into the “Members ->” field and press Ctrl + V key buttons to paste the copied sender email address.Add Members Manually
  7. Later click “OK”.
  8. Finally you can click “Save & Close” button to save the contact group.

Method 2: Add an Email Sender to a Contact Group via VBA

  1. Firstly, press “Alt + F11” key shortcuts.
  2. Then in the popup Outlook VBA editor window, open a module that is not in use.
  3. 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
               '.Save --> save it
          End With
       nPrompt = MsgBox(Chr(34) & strContactGroupName & Chr(34) & " is not a contact group!", vbExclamation + vbOKOnly, "Find Contact Group")
       End If
       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

VBA Codes- Add an Email Sender to a Specific Contact Group

  1. Next add the new macro to Quick Access Toolbar.
  2. Finally you can have a try.
  • First, select an email.
  • Then hit the new macro button in Quick Access Toolbar.Run the Macro
  • Next an input box will pop up, in which you need to enter the name of a specific contact group.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.New member added to the contact group

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.

Author Introduction:

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

Comments are closed.