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.
Method 1: Remove Multiple Entries from Contact Activities One by One
- First of all, in Outlook, head to “File” menu, in which select “Options”.
- In the newly popup window of “Outlook Options”, shift to “Contact” tab.
- Then, enable the “Show contacts linked to the current item” option.
- After that, click “OK” to save the changes.
- At present, open the contact whose activities you want to remove some items from.
- In the Contact window, access the “Activities” page.
- Subsequently, select and double click an item in the list, such as the “Weekly” appointment in my instance.
- At the bottom of the popup window, delete the contact from all the linked contacts.
- Lastly, click “Save & Close” button.
- In the Contact activities screen, the item has disappeared.
- 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
- In the first place, open the source contact.
- Then, press “Alt + F11” to access VBA editor.
- 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
Note: you need change “If TypeOf objItem Is AppointmentItem Then” line as per your actual needs.
- Afterwards, click in “BatchRemoveSpecificItemsFromContactActivities” and press “F5”.
- Finally, when macro completes, all appointment entries have been removed from this contact’s 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.
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