Tracking e-mails in outlook with excel

Question

How do I track e-mails in and out of a shared in-box in Outlook using excel? We have a large number of e-mails coming in and we need to track responses to make sure that e-mails don't get lost.

Is there as way to get the results from advanced find to an excel sheet?

Answer 1

Maybe you should invest in a tool like FogBugz that can handle incoming email, filters spam and tracks responses.

Answer 2

I've found a stop gap measure; just highlight all results you get from advanced find, then ctrl + A, then ctrl + C, you can then paste the results into excel (ctrl + V).

Still I'd like to hear of any other solutions.

Answer 3

Excel doesn't do this well. At my company we simply use flags for anything urgent. When someone responds to a customer, they drag the original message to their folder within the shared mailbox.

Answer 4

What view are you setting up in advanced find ? As you can write a VBA macros to pull items from your inbox and put them into you speadsheet. Alot of the advance find option are not in the outlook object model so it depends on the view you are trying to set up. So can you tell me what you are doing in advanced find ..? 76mel

Ok using outlook tables you can put this in your Excel as a macro
Use "sfilter" to define your advance search criteria.
You will have to pump the data into Excel at the bottom.

Sub GetMail()


Dim oApp As Outlook.Application
Dim oFolder  As Outlook.Folder
Dim oNameSpace As Outlook.Namespace
Dim emailCount As Integer
Dim counter As Integer
Dim sfilter As String
Dim oRow As Outlook.Row
Dim oTable As Outlook.Table
Dim i As Outlook.MailItem



Set oApp = CreateObject("Outlook.Application")
Set oNameSpace = oApp.Session
Set oFolder = oNameSpace.GetDefaultFolder(olFolderInbox)


'Add what ever filter you want here using DASL
sfilter = "[LastModificationTime] > '5/1/2005'"
'Restrict with Filter
Set oTable = oFolder.GetTable(sfilter)

'Remove all columns in the default column set
oTable.Columns.RemoveAll
'Specify desired properties

With oTable.Columns

    .Add ("EntryID")
    .Add ("Subject")
    .Add ("ReceivedTime")

End With

'Enumerate the table using test for EndOfTable
'Pump it into your worksheet
Do Until (oTable.EndOfTable)
    Set oRow = oTable.GetNextRow()
    Debug.Print (oRow("EntryID"))
    Debug.Print (oRow("Subject"))
    Debug.Print (oRow("ReceivedTime"))
Loop


'Clean up
Set oTable = Nothing
Set oFolder = Nothing
Set oNameSpace = Nothing
Set oApp = Nothing

End Sub