create visual basic macro for outlook 2013 to view all activities for a specific contact - repost

Completed Posted Sep 16, 2013 Paid on delivery
Completed

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

Visual Basic

Project ID: #4936385

About the project

1 proposal Remote project Active Sep 16, 2013

Awarded to:

expertatwork

Interested...........................................................................................

$7 USD / hour
(7 Reviews)
2.8