Activities in Outlook

Status
Not open for further replies.

SMB

New Member
Outlook version
Outlook 365 64 bit
Email Account
Office 365 Exchange
As most on this forum probably agree, it was a sad day when MS removed the activities tab. I recently can across this VBA code to create an activates search, run running it I get an error, see below in red. Is this repairable, made to work for o365?

I will also attempt to get Search for All Messages from Contact and Display in New Window working.

Thank you all in advance for your help and contributions.

Sub FindContactActivities()

'=================================================================
'Description: Outlook macro to find all items related to a contact
' similar to the Contact Activities feature.
'
' author : Robert Sparnaaij
' version: 1.0
' website: Reviving the Contact Activities feature in Outlook 2013 - HowTo-Outlook
'==================================================================


If Application.Session.DefaultStore.IsInstantSearchEnabled Then

Dim olkExplorer As Outlook.Explorer
Set olkExplorer = Application.Explorers.Add(Application.Session.GetDefaultFolder(olFolderInbox), olFolderDisplayNormal)

Dim oItem As Object
Set oItem = Application.ActiveInspector.CurrentItem

If oItem.Class = olContact Then
Dim myContact As Outlook.ContactItem
Set myContact = oItem

Dim myContactAddress As String
Dim myContactName As String

myContactAddress = myContact.Email1Address
myContactName = myContact.FullName


Dim olkFilter As String

'Linked Contacts
olkFilter = "contactnames:(" & Chr(34) & myContactAddress & Chr(34) & " OR " & Chr(34) & myContactName & Chr(34) & ")"

'From this contact
olkFilter = olkFilter & " OR " & "from:(" & Chr(34) & myContactAddress & Chr(34) & " OR " & Chr(34) & myContactName & Chr(34) & ")"

'To this contact
olkFilter = olkFilter & " OR " & "to:(" & Chr(34) & myContactAddress & Chr(34) & " OR " & Chr(34) & myContactName & Chr(34) & ")"


Call olkExplorer.Search(olkFilter, olSearchScopeAllOutlookItems)

Call olkExplorer.Display

Else

MsgBox "Please run this command from an opened Contact item.", vbExclamation, "Open a Contact item"

End If

Set olkExplorer = Nothing
Set myContact = Nothing

Else

MsgBox "Search Indexing is not enabled for this mailbox." & vbNewLine & vbNewLine & _
"If you are using an Exchange account, make sure that Cached Exchange Mode is enabled" & _
vbNewLine & vbNewLine & _
"To troubleshoot Search Indexing see: " & vbNewLine & _
"Fixing Instant Search - MSOutlook.info", _
vbExclamation, "Search Indexing not enabled"

End If

End Sub
 
Do you have the message open our selected?

This works with a selected contact -
 
Diane,

Yes, thank you they both worked. I just needed to change the name of the macro (showing my novice-ness).

Do you know of a way to include tasks in these searches? I am trying to use tasks as opposed to the Journal.

I also notice I have companies in a tool I used from MapiLab, but they do to show in the folders list. That would be nice is they did.

I am trying to build the simple features I used from BCM into O365.

Thanks again for your help.

Stuart
 
The scope for that would be olSearchScopeAllOutlookItems but to/from field shouldn't work on the contact field (assuming you linked it to a contact). I'll see what needs changed to work on everything.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
Werewolf Workaround for the missing Activities tab in Contact Folder Properties in Outlook 2010? Using Outlook 2
Diane Poremsky Outlook 2010 & Contact Activities Using Outlook 0
F Outlook 2010 Activities search finds nothing Using Outlook 4
J Outlook replacement options - contact journal activities lost Using Outlook 23
C Tracking Activities in Outlook Calendar Using Outlook 1
S Outlook 2010: How do you enable Contacts' Activities to search archive folders Using Outlook 6
R Outlook 2010 Contact Activities Using Outlook 14
N Moving communication history and activities from BCM to OUtlook BCM (Business Contact Manager) 2
N Moving contacts and activities from BCM to OUtlook BCM (Business Contact Manager) 4
N contact notepad 'style' getting changed after clicking and running Activities Using Outlook 2
P activities tab 2013 Using Outlook 1
J Cannot Find Activities 2010 Using Outlook 14
R Activities - Speeding up retrivel Using Outlook 1
H Force Outlook 2019 with GMail 2-Step to Require Login? Using Outlook 0
G Retaining Tabs in outlook body Using Outlook 2
V Setting up Outlook 2021 on new computer Using Outlook 2
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
X Custom icon (not from Office 365) for a macro in Outlook Outlook VBA and Custom Forms 1
Victor_50 Problem - Google Workspace will stop "unsafe" access to Outlook end 2024 Using Outlook 3
C New pc, new outlook, is it possible to import auto-complete emailaddress Using Outlook 4
T Outlook 365 won't take new working password Using Outlook 0
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
B Sync Outlook Public Folders to Contacts Using Outlook 2
D Delete Outlook emails from MS server Using Outlook 9
B Outlook tasks and PDF Using Outlook 4
D Outlook 2019 is no longer asking for password ... Using Outlook 5
Kika Melo How to mark as Junk any message not from Contacts (in Outlook.com) Using Outlook 3
L Outlook attachments from OneDrive as links Using Outlook 0
G Outlook 365 My iCloud Outlook doesn’t work after reinstalling Microsoft365 on Windows 10 PC – now I get error message on contacts and calendar Using Outlook 1
T How to Export & Import GMAIL Contacts into Outlook 2021 ? Using Outlook 4
M Synchronization and backup of Outlook from local to server. Using Outlook 8
T How to get an EVENT COLOR option in Outlook 2021 ? Using Outlook 0
K How can I delete an e-mail from Outlook Using Outlook 1
V Outlook Error The Attempted operation Failed. An Object Could Not be found Outlook VBA and Custom Forms 0
P Yahoo/IMAP folder rename by Outlook desktop 365 Using Outlook 0
A Outlook 2019 folder counter Using Outlook 0
A Relocate Search Bar in Outlook Using Outlook 2
e_a_g_l_e_p_i Need clarification on 2-Step Verification for Gmail using Outlook 2021 Using Outlook 10
L Opening People Outlook 2021 Using Outlook 2
e_a_g_l_e_p_i Outlook 2021 not letting me setup my Gmail using pop Using Outlook 1
Geldner Problem submitting SPAM using Outlook VBA Form Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
M Outlook 2016 outlook vba to look into shared mailbox Outlook VBA and Custom Forms 0
P Can no longer sync Outlook with iPhone calendar after iPhone update to 17.1.1 Using Outlook 7
O Outlook - Switch from Exchange to IMAP Using Outlook 2
e_a_g_l_e_p_i Is it possible to have a reminder in Outlook 2021 for every 90 days Using Outlook 3
farrissf Outlook 2016 Optimizing Email Searches in Outlook 2016: Seeking Insights on Quick Search vs Advanced Search Features Using Outlook 0
C Advanced search terms for "Outlook Data File" Using Outlook 1
N Reply to Outlook messages by moving messages to a specific Outlook folder Outlook VBA and Custom Forms 1

Similar threads

Back
Top