Question

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

是否可以将高级查找的结果导入Excel工作表？

Answer 1

您在高级查找中设置了哪些视图？因为您可以编写VBA宏来从收件箱中提取项目并将它们放入您的speadsheet中。很多高级查找选项不在Outlook对象模型中，因此它取决于您尝试设置的视图。所以你能告诉我你在高级查找中做了什么吗？ 76mel

使用Outlook表格可以将它作为宏放在Excel中
使用“sfilter”定义您的高级搜索条件。
您必须将数据泵入底部的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

End Sub

Answer 2

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

Answer 3

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

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

Answer 4

Excel不能很好地完成这项工作。在我的公司，我们只需使用标志即可。当有人响应客户时，他们会将原始邮件拖到共享邮箱中的文件夹中。

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

4 个答案: