Outlook：使用模板全部回复多封电子邮件

我不是程序员，只是一个沮丧的用户。一位Microsoft社区成员的回复建议在此处发布

以下标题：

• 问题
• 背景场景
• 我试过的

问题: 关于同一主题的多封电子邮件转发给我进行回复。 a） 如何密件抄送回复所有邮件，邮件正文是一个模板。 b） 如何使用模板设置自动回复

背景场景： 我的老板收到了关于房地产租赁的询问，并将其转发给我。 房地产出租速度很快，但即使在被列为待租或已出租的情况下，查询也会不断出现，因此不在市场上。 一旦物业退出市场，出于礼貌和对潜在客户的尊重，邮件仍会得到回复。 大多数电子邮件都是通过计算机生成的电子邮件列表服务发送的，非常长，即来自Zillow。 目前的方法是单独回复每个发件人，显然这需要太多的时间，每天几个小时。 每周都会列出多处房产，随后会有数百个查询

我所尝试的：

• 为每个属性设置专用文件夹
• 在所有邮件中搜索特定主题
• 将找到的所有邮件移动到专用文件夹 注意：我知道我可能可以设置一个规则，将这些文件移动到专用文件夹中
• 选定文件夹
• 突出显示所有邮件以全部回复：全部回复选项不可用

多谢各位

原始邮寄：

---

您似乎需要开发一个VBA宏，以便在放置项目的文件夹中查找与您的条件相对应的项目。您对使用

Items

类的or/方法感兴趣。有关示例代码和更多信息，请参阅以下文章：

例如，以下VBA代码使用

Restrict

方法根据项目的

LastModificationTime

属性将筛选器应用于联系人项目：

Public Sub ContactLastModificationDateCheck()  
    Dim myNamespace As Outlook.NameSpace  
    Dim myContacts As Outlook.Items  
    Dim myItem As Object  
    Dim DateStart As Date  
    Dim DateToCheck As String  
    Dim myRestrictItems As Outlook.Items  
  
    Set myNameSpace = Application.GetNamespace("MAPI")  
    Set myContacts = myNameSpace.GetDefaultFolder(olFolderContacts).Items  
    DateStart = #01/4/2021#  
    DateToCheck = "[LastModificationTime] >= """ & DateStart & """"  
    Set myRestrictItems = myContacts.Restrict(DateToCheck)  
    For Each myItem In myRestrictItems  
        If (myItem.Class = olContact) Then  
            MsgBox myItem.FullName & ": " & myItem.LastModificationTime  
        End If  
    Next  
End Sub

此外，您可能会发现应用程序类的方法很有用。在Outlook中使用AdvancedSearch方法的主要好处是：

• 搜索在另一个线程中执行。您不需要手动运行另一个线程，因为

  AdvancedSearch

  方法会在后台自动运行它
• 可以在任何位置搜索任何项目类型：邮件、约会、日历、备注等，即超出特定文件夹的范围。Restrict和Find/FindNext方法可应用于特定的项目集合（请参阅Outlook中文件夹类的项目属性）
• 完全支持DASL查询（自定义属性也可用于搜索）。为了提高搜索性能，如果为存储启用了即时搜索，则可以使用即时搜索关键字（请参见

  存储

  类的

  IsInstantSearchEnabled

  属性）
• 您可以使用

  search

  类的

  stop

  方法随时停止搜索过程

---

最后，您可能会发现Outlook项目的方法很有用。

是的，对不起，我认为人们不会在这方面帮助您。无论是谁给你这个网站的建议是错误的，这是程序员问答。这个建议有点太有希望了。它确实指向特定的标签，这些标签似乎是Microsoft员工监控的，但问题仍然必须在标签的主题上，并从程序员的角度提出，以适应StackOverflow。在您了解一些VBA之前，该网站对于搜索更有用