使用excel跟踪outlook中的电子邮件

Question

如何使用excel跟踪Outlook中共享收件箱中的电子邮件？我们收到大量电子邮件，我们需要跟踪回复以确保电子邮件不会丢失。

是否有办法从高级查找到excel工作表？

Answer 1

您在高级查找中设置了哪些视图？正如你可以写一个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 

末次

Answer 2

也许你应该投资一个像FogBugz这样的工具，它可以处理收到的电子邮件，过滤垃圾邮件并跟踪回复。

Answer 3

我发现了一个停止差距的措施;只需突出显示从高级查找中获得的所有结果，然后按Ctrl + A，然后按Ctrl + C，然后可以将结果粘贴到excel（ctrl + V）中。

我还想听听任何其他解决方案。

Answer 4

Excel没有做到这一点。在我的公司，我们只需使用标志即可。当某人回应客户时，他们将原始邮件拖到共享邮箱中的文件夹中。