2 Easy Ways to Batch Remove Multiple Entries from an Outlook Contact’s Activities

Outlook allows users to link various items to the contacts. These linked items will display in contacts’ activities. If you want to remove multiple entries from activities, you can use either of the 2 means introduced in this article.

By default, Outlook will automatically link some items to related contacts. For instance, it will link the birthday events, emails to the associated contacts. Of course, you can link items to contacts manually. After that, to check all the linked items, you can access contact “Activities” page. While checking, you may think that there are too many items in a contact’s activities. It looks pretty messy. So, you may hope to remove some entries from the activities. Here we will offer you 2 ways.

Batch Remove Multiple Entries from an Outlook Contact's Activities

Method 1: Remove Multiple Entries from Contact Activities One by One

  1. First of all, in Outlook, head to “File” menu, in which select “Options”.
  2. In the newly popup window of “Outlook Options”, shift to “Contact” tab.
  3. Then, enable the “Show contacts linked to the current item” option.Show contacts linked to the current item
  4. After that, click “OK” to save the changes.
  5. At present, open the contact whose activities you want to remove some items from.
  6. In the Contact window, access the “Activities” page.access the "Activities" page
  7. Subsequently, select and double click an item in the list, such as the “Weekly” appointment in my instance.
  8. At the bottom of the popup window, delete the contact from all the linked contacts.Remove the Linked Contact from Current Item
  9. Lastly, click “Save & Close” button.
  10. In the Contact activities screen, the item has disappeared.Entry Removed from Contact Activities
  11. You can remove other items from activities one by one in this way.

To be honest, the above method is a bit tedious. If you want to remove a specific type of entries from contact activities, such as all appointment entries, you can apply the following way. Here we’ll take deleting all appointments from contact activities as an example.

Method 2: Batch Remove Specific Entries from Contact Activities via VBA

  1. In the first place, open the source contact.
  2. Then, press “Alt + F11” to access VBA editor.
  3. Next, copy the following VBA code into an unused module.
Dim objContact As ContactItem

Sub BatchRemoveSpecificItemsFromContactActivities()
    Dim objStore As Store
    Dim objOutlookFile As Folder
 
    'Get the current item
    Set objContact = Outlook.Application.ActiveInspector.CurrentItem
 
    For Each objStore In Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        Call ProcessFolders(objOutlookFile.Folders)
    Next
End Sub

Sub ProcessFolders(ByVal objFolders As Folders)
    Dim objFolder As Folder
    Dim objItem As Object
 
    'Process all folders recursively
    For Each objFolder In objFolders
        For Each objItem In objFolder.Items
            If TypeOf objItem Is AppointmentItem Then '==> remove calendar items linked to the contact
               'You can change the above line as per your needs
               'For example, use "If Instr(objItem.subject,"Test") > 0 Then"
               For i = objItem.Links.Count To 1 Step -1
                   If objItem.Links(i).Name = objContact.FullName Then
                      objItem.Links.Remove (i)
                      objItem.Save
                   End If
               Next
            End If
        Next
 
        If objFolder.Folders.Count > 0 Then
           Call ProcessFolders(objFolder.Folders)
        End If
    Next
End Sub

VBA Code - Batch Remove Specific Entries from Contact Activities

Note: you need change “If TypeOf objItem Is AppointmentItem Then” line as per your actual needs.

  1. Afterwards, click in “BatchRemoveSpecificItemsFromContactActivities” and press “F5”.
  2. Finally, when macro completes, all appointment entries have been removed from this contact’s activities.All Appointment Entries Removed from Contact Activities

All Kinds of Issues in Outlook

You may have been subject to all kinds of issues in Outlook. Unquestionably, one of the most severe cases is that Outlook file gets damaged. At that time, you can’t get access to your PST file as normal. In this scenario, you have no alternative but to take recourse to a cogent and top-grade PST fix tool, like DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql corruption and outlook repair software products. For more information visit www.datanumen.com

Leave a Reply

Your email address will not be published. Required fields are marked *