如何查找客户发送的所有未答复的电子邮件？

Question

我需要跟进从我发送给其他用户但其他用户从未回复的所有电子邮件。它可以是新的电子邮件，也可以是正在进行的对话中未回复的电子邮件。

如何在对话或新邮件中获取我发送的最后一封电子邮件？

我正在运行 Microsoft Office 356 ProPlus 版本 1908（内部版本 11929.20606）

我的 VBA 脚本在我的收件箱 ('\firstname.lastname@domain.com\Inbox') 中找到电子邮件并将它们移动到“未答复”子文件夹。

问题是电子邮件主要来自其他用户，当我过滤来自我的电子邮件时（通过使用文件夹中的默认过滤器，例如来自：“发件人”），我得到的只是发送给自己的邮件或自动生成的邮件代表我从 SharePoint 服务器（例如与其他用户共享的 SharePoint 网站）。

我尝试仅搜索我的已发送文件夹 ('\firstname.lastname@domain.com\Sent')，这列出了与我使用默认文件夹过滤器过滤从我发送的邮件时相同的项目，这些项目是在查询我的收件箱。

为了决定将哪些邮件放入我的“未答复”文件夹，我尝试了以下方法：

1) “DASL 搜索”通过排除所有最后执行的动词设置为“replied to all”或“replied to”的邮件。

NOT ("http://schemas.microsoft.com/mapi/proptag/0x10810003" = 102 OR "http://schemas.microsoft.com/mapi/proptag/0x10810003" = 103)

2) 使用 ConversationIndex，我在网上发现未答复的邮件的 ConversationIndex 长度 = 44：

If Len(objVariant.ConversationIndex) = 44 Then

3) 使用 LastExecutedVerb。通过检查对话中电子邮件的属性注意到，我作为最新项目发送的电子邮件在使用时始终具有“PR_LAST_VERB_EXECUTED 0”：

Debug.Print "PR_LAST_VERB_EXECUTED", propertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x10810003")

SoIi 尝试过滤 PR_LAST_VERB_EXECUTED = 0 的电子邮件，但这导致根本找不到电子邮件。

Answer 1

PR_LAST_VERB_EXECUTED 必须检查属性是否缺失（= null）

@SQL="http://schemas.microsoft.com/mapi/proptag/0x10810003" is null

Answer 2

我没有任何合适的对话，也没有使用 SharePoint，因此无法调查您的问题。这不是答案，而是解释我将如何调查您的要求并开发解决方案。

Outlook VBA 有一些强大的过滤器，但我很少能够根据我的要求调整它们。当我有像你这样的要求时，还没有一组电子邮件可供选择。相反，我浏览我的电子邮件，丢弃那些具有特征 A 或没有特征 B 的邮件，然后处理剩下的邮件。所以，我的代码是这样的：

Dim Review As Boolean

For Inx = FldrSrc.Items.Count To 1 Step -1

  ItemCrnt = FldrSrc.Items(Inx)
  Review = True

  If ItemCrnt has CharacteristicA Then
    Review = False
  End If
  If Review Then
    If ItemCrnt does not have CharacteristicB Then
      Review = False
    End If
  End If
  If Review Then
    If ItemCrnt has CharacteristicC Then
      Review = False
    End If
  End If

  If Review Then
    ItemCrnt.Move FldrDest
  End If

Next

在上面的代码中，我访问了FldrSrc.Items。如果您愿意，您可以访问过滤后的项目集合。

你会注意到我的For-Loop 倒计时了。这个很重要。 FldrSrc.Items 是一个集合，其中每个项目都由其位置标识。考虑：

┌────────┬────────┬────────┬────────┬────────┬────────┬────────┬────────┬────────┐
│ Item 1 │ Item  2│ Item 3 │ Item 4 │ Item 5 │ Item 6 │ Item 7 │ Item 8 │ Item 9 │
└────────┴────────┴────────┴────────┴────────┴────────┴────────┴────────┴────────┘

假设我删除第 5 项。第 6 项变为第 5 项，第 7 项变为第 6 项，依此类推：

┌────────┬────────┬────────┬────────┬────────┬────────┬────────┬────────┐
│ Item 1 │ Item  2│ Item 3 │ Item 4 │ Item 5 │ Item 6 │Item  7 │Item  8 │
│        │        │        │        │  was 6 │  was 7 │  was 8 │  was 9 │
└────────┴────────┴────────┴────────┴────────┴────────┴────────┴────────┘

如果我向前计数，在删除第 5 项后，我检查第 6 项。但第 6 项是旧的第 7 项；我从不检查旧的第 6 项。

但是如果我倒数，在删除第 5 项后，我检查没有移动的第 4 项。

我希望这个解释是清楚的。如果没有，请接受如果您可能从中删除项目，您总是向后扫描集合。

然后您需要考虑循环的主体。对于每种类型的电子邮件，您需要确定该类型的电子邮件必须具有或不具有的一些特征或特征。我相信我的诊断程序将有助于完成这项任务。访问https://stackoverflow.com/a/58000707/973283 并将代码复制到模块中。在顶部附近您会发现：#Const Selected = True。这必须替换为#Const Selected = False。您还需要引用以下库：“Microsoft Scripting Runtime”和“Microsoft ActiveX Data Objects n.n Library”。

完成后，选择一封或多封您不想要复制到未答复文件夹的电子邮件。然后运行宏InvestigateEmails()。该宏将在您的桌面上创建一个名为“InvestigateEmails.txt”的文件。该文件将列出我认为有用的所选电子邮件的每个属性的值。查看不需要的电子邮件并确定使它们与众不同的属性。

这些说明可能看起来有点奇怪。运行我的宏并检查输出。我相信很快就会清楚你需要做什么。