2009-05-01 28 views
1

如何使用excel跟蹤Outlook中共享收件箱中的電子郵件?我們收到大量電子郵件,我們需要跟蹤回覆以確保電子郵件不會丟失。使用excel跟蹤outlook中的電子郵件

是否有辦法從高級查找到excel工作表?

回答

3

您在高級查找中設置了哪些視圖?正如你可以寫一個VBA宏來從你的收件箱中取出物品並將它們放入你的電子表格中。很多預先查找選項不在Outlook對象模型中,因此它取決於您嘗試設置的視圖。 那麼你能告訴我你在高級找到你在做什麼..? 76mel

,你可以把這個在您的Excel宏
使用「sfilter」確定使用的是Outlook表來定義高級搜索條件。
您將不得不將數據泵入底部的Excel。

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 

末次

+0

我是用先進的查找日期搜索收件箱;我不想更改收件箱中的任何電子郵件,只是爲了在Excel表格中複製每封電子郵件的主題行和日期。 基本上我想要做的是區分對已經存在的問題的答覆和我們需要解決的「新鮮」問題,其目的是爲了列出未解決的問題,以便我們能夠輕鬆發現長期未解決的問題給我們。 我們遇到了一些電子郵件問題,無法回答和忘記。 – Niall 2009-05-07 00:51:56

2

也許你應該投資一個像FogBugz這樣的工具,它可以處理收到的電子郵件,過濾垃圾郵件並跟蹤回覆。

0

我發現了一個停止差距的措施;只需突出顯示從高級查找中獲得的所有結果,然後按Ctrl + A,然後按Ctrl + C,然後可以將結果粘貼到excel(ctrl + V)中。

我還想聽聽任何其他解決方案。

0

Excel沒有做到這一點。在我的公司,我們只需使用標誌即可。當某人迴應客戶時,他們將原始郵件拖到共享郵箱中的文件夾中。