Create Visual Basic Macro for Outlook 2013 to view all Activities for a specific contact - repost
$30-250 USD
Paid on delivery
In Outlook 2013 Microsoft removed the "Activities" button which would pull up a list of all Outlook 2010 items/activities for the currently selected (opened) contact. I found a site which provide sample VBA code and installation instructions but I was unable to get them to work for my situation. I am hoping you can consider the VBA code pasted below and either control my screen and install or give me detailed instructions. I am running Windows 7 and Office 2013 64-bit with all shared features installed.
New Post - The above was posted by someone else, but I need this as well. Please note that I was successful with the [login to view URL] - but I need the macro to include Email Contact Address #2 as well as carbon copied. E.g. display all email for the opened contact (email address #1 and/or #2) were he/she is included to, from, or as a cc.
here are the instructions i like:
[login to view URL]
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: [login to view URL]
'==================================================================
If [login to view URL] Then
Dim olkExplorer As [login to view URL]
Set olkExplorer = [login to view URL]([login to view URL](olFolderInbox), olFolderDisplayNormal)
Dim oItem As Object
Set oItem = [login to view URL]
If [login to view URL] = olContact Then
Dim myContact As [login to view URL]
Set myContact = oItem
Dim myContactAddress As String
Dim myContactName As String
myContactAddress = [login to view URL]
myContactName = [login to view URL]
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 [login to view URL](olkFilter, olSearchScopeAllOutlookItems)
Call [login to view URL]
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 & _
"[login to view URL]", _
vbExclamation, "Search Indexing not enabled"
End If
End Sub
Project ID: #5283523
About the project
Awarded to:
Hi Jeffrey, Please take a look at my profile here: http://www.freelancer.com/u/salih0vicx.html. I've done recently several projects involving Outlook VBA. Some of these projects could be considered as pretty advance More
10 freelancers are bidding on average $170 for this job
With over 10 years experience programming in .NET and an equal amount of time with SQL Server. Armed with experience and a desire to deliver I will work with you to find the solution you desire. Regards, Martin
You simply need to extend the filter keywords so it will cover CC and BCC if needed. For now your filter is only contact names, to and from. I could help you to extend it
Hello, I have been developing since 1995, and since then, have come across a lot of issues/up-gradations/enhancements and successfully implemented them. Managing the urgency for the clients, in any timezone is More
Boss, i have sound knowledge in vb and outook i have done many complex related to this i have confidant that i able to deliver on time. I can do this in 3 working days !!! thanks
