☰

Outlook 中有计划和重复的电子邮件吗？

tag-icon • tag-icon microsoft-outlook scheduled-tasks sendmail
Outlook 中有计划和重复的电子邮件吗？

我需要在一天中的特定时间发送一些电子邮件，并且每天都需要这样做。如何使用 Outlook 来实现？

Delay delivery有助于在特定时间发送邮件；但是如何创建明天要发送的新邮件？

在此处输入图片描述

答案1

好的，下面简要介绍一下执行此操作的一种方式。它需要在 Outlook VBA 编辑器中设置一个宏。如果您以前从未这样做过，那么您必须先完成一些设置。（请注意，虽然为 Outlook 创建宏并不难，但有几个地方可能会发生错误，从而导致混乱和沮丧。如果您是这方面的初学者并想继续，我强烈建议您仔细阅读下面第一步中链接的整个 MSDN 页面。）

1.打开 VBA 编辑器。

在 Outlook 功能区栏上，单击“开发人员”选项卡（启用它这里），然后点击Visual Basic。如果功能区栏上没有“开发人员”选项卡，则必须启用它。请参阅此 MSDN 页面（向下滚动到标有“启用开发人员选项卡”的部分。注意：您还应该阅读该网站标有“启用宏”的部分）。按下按钮Visual Basic将打开一个全新的应用程序（VBA 编辑器）；打开ThisOutlookSession，中间的大窗格就是您的宏所在的位置。

要使用，请按 Alt+F11 打开 VBA 编辑器，然后复制代码并将其粘贴到 ThisOutlookSession 中。（参考）

在此处输入图片描述

2. 将以下宏粘贴到宏窗格的底部。

'Original function written by Diane Poremsky: http://www.slipstick.com/developer/send-email-outlook-reminders-fires/
Private Sub Application_Reminder(ByVal Item As Object)
  Dim objMsg As MailItem
  Set objMsg = Application.CreateItem(olMailItem)    

If Item.MessageClass <> "IPM.Appointment" Then
  Exit Sub
End If

If Item.Categories <> "Automated Email Sender" Then
  Exit Sub
End If

  objMsg.To = Item.Location
  objMsg.Subject = Item.Subject
  objMsg.Body = Item.Body
  objMsg.Send

  Set objMsg = Nothing
End Sub

3. 创建新类别。

新创建的类别（如何) 应该被称为Automated Email Sender（这是一个任意标题，但如果你改变它，请确保在宏中也改变它）。

4. 创建日历约会。

将收件人的电子邮件放在“位置”字段中。

约会的“主题”字段将用作电子邮件的主题字段。

约会的“正文”将成为电子邮件的正文。

按照您想要的时间表设置重复约会。确保设置提醒。

设置提醒时间

另外，不要忘记分配您在上一步中创建的类别。

首先通过在位置字段中输入您自己的电子邮件地址来进行测试。

在此处输入图片描述

就是这样！只要您的宏安全设置正确，此宏就会在指定类别的约会触发提醒时自动发送电子邮件。

相关内容