☰

整理 Outlook 电子邮件（删除已回复的邮件）

tag-icon • tag-icon email outlook
整理 Outlook 电子邮件（删除已回复的邮件）

想象一下你和我通过电子邮件讨论某个话题的场景。每次我们回复对方的电子邮件时，都会在回复中附上所有信息。如果我们严格交替回复，那么显然我可以删除除最后一条消息之外的所有内容并保留整个对话。

现在在这个场景中添加更多的人，并删除严格的回复交替，使得最新消息不再包含整个对话。

是否有一个工具可以删除线程中的消息，以便用最少的消息就可以查看整个线程？

或者，将其提升到一个新的水平并合并所有回复，以便将整个对话保存在一条消息中。

答案1

您的要求似乎与 Google 对“Google Wave”的想法完全吻合。由于我们 99% 的人都没有这个，所以您正在寻找 Outlook 的第三方插件。我进行了搜索，找到了几个选项。

这是最重要的，似乎正是您正在寻找的： http://www.easylinkmail.com/

他们似乎有一个演示。也许你想试一试，看看效果如何。

答案2

...或者免费使用这个 VBA 代码，而不必为如此简单的事情支付 80 美元：

Public Sub DeleteMessagesWithRepliesWithoutAttachments()
Dim myOutlook As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myMailItem1 As MailItem
Dim myMailItem2 As MailItem
Dim lMailItem As Long
Dim deleteThisOne(10000) As Boolean
Dim cID(10000) As String
Dim atts(10000) As Integer
Dim numItems As Long
Dim ci1 As String, ci2 As String
Dim nd As Integer
On Error GoTo Err1:
Set myOutlook = Outlook.Application
Set myNameSpace = myOutlook.GetNamespace("MAPI")
numItems = myOutlook.ActiveExplorer.CurrentFolder.Items.Count
If Outlook.ActiveExplorer.Selection.Count > 0 Then    
    For m = 1 To numItems
        Set myMailItem1 = myOutlook.ActiveExplorer.CurrentFolder.Items(m)
        cID(m) = myMailItem1.ConversationIndex
        atts(m) = myMailItem1.Attachments.Count
    Next
    For m = 1 To numItems - 1
        For n = m + 1 To numItems
            If Len(cID(n)) > Len(cID(m)) Then
                If Left(cID(n), Len(cID(m))) = cID(m) And atts(m) = 0 Then
                    deleteThisOne(m) = True
                End If
            ElseIf Len(cID(m)) > Len(cID(n)) Then
                If Left(cID(m), Len(cID(n))) = cID(n) And atts(n) = 0 Then
                    deleteThisOne(n) = True
                End If
            End If
        Next n
    Next
End If
For m = numItems To 1 Step -1
    If deleteThisOne(m) = True Then
        Set myMailItem1 = myOutlook.ActiveExplorer.CurrentFolder.Items(m)
        myMailItem1.Delete
        nd = nd + 1
    End If
Next m
MsgBox (Str(nd) + "items were deleted.")
Exit Sub

Err1:
    MsgBox ("There was an error - sorry! Try deleting non-messages from the folder first.")
End Sub

相关内容