create visual basic macro for outlook 2013 to view all activities for a specific contact - repost
$2-8 USD / hour
in outlook 2013 microsoft removed the "activities" button which would pull up a list of all outlook items/activities for the currently selected contact. I found some sites which provide sample vba code and installation instructions but i was unable to get them to work. i am hoping you can review/clean up 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 with all shared features installed.
here are the instructions i like:
[url removed, login to view]
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: [url removed, login to view]
'==================================================================
If [url removed, login to view] Then
Dim olkExplorer As [url removed, login to view]
Set olkExplorer = [url removed, login to view]([url removed, login to view](olFolderInbox), olFolderDisplayNormal)
Dim oItem As Object
Set oItem = [url removed, login to view]
If [url removed, login to view] = olContact Then
Dim myContact As [url removed, login to view]
Set myContact = oItem
Dim myContactAddress As String
Dim myContactName As String
myContactAddress = [url removed, login to view]
myContactName = [url removed, login to view]
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 [url removed, login to view](olkFilter, olSearchScopeAllOutlookItems)
Call [url removed, login to view]
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 & _
"[url removed, login to view]", _
vbExclamation, "Search Indexing not enabled"
End If
End Sub
Project ID: #4936385
About the project
Awarded to:
Interested...........................................................................................