在Outlook中计划和定期发送电子邮件?


22

我需要在一天的特定时间发送一些电子邮件,并且每天都要发送。如何使用Outlook做到这一点?

Delay delivery帮助在特定时间发送邮件;但是如何创建明天要发送的新邮件?

在此处输入图片说明


1
如果您不介意某些VBA,则此方法可能对您有用
kmote 2013年

谢谢。我通读了宏,但真的不知道该怎么做。请引导我,并回答它,而不是发表评论,以被接受。
Nam G VU 2013年

我建议在您的帖子中添加更多详细信息:每天的电子邮件是否相同,还是自动生成内容?目的地址是否相同?
kmote 2013年

亲爱的@kmote,每天的内容和电子邮件都是相同的
Nam G VU

Answers:


28

好的,这是执行此操作的一种方法的简要说明。它需要在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.创建一个新的类别。

应该调用新创建的Category(方法Automated Email Sender(这是一个任意标题,但是如果要更改它,请确保也要在宏中对其进行更改)。

4.创建一个日历约会。

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

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

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

设置约会以按您希望的时间表重复进行。确保设置提醒。

设置提醒时间

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

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

在此处输入图片说明


而已!只要您的宏安全性设置正确,只要在与指定类别的约会上触发提醒时,此宏将导致自动发送电子邮件。


1
太棒了,对我有用^^非常感谢!
Nam G VU 2013年

2
@kmote问题,提醒在使这项工作中有什么重要性?我没有在代码中注意到它。
SiegeX 2014年

1
@SiegeX:注意函数的名称(Application_Reminder)。这是一个内置的Outlook事件处理程序,每当触发提醒时,Outlook就会自动调用该事件处理程序。因此,提醒是使这项工作生效的触发器。
kmote

@kmote我看到了,所以如果我将appt时间设置为2PM,并且提醒设置为在appt之前30分钟,那么电子邮件将在1:30 PM而非2PM触发?
SiegeX

1
通过将VBA代码中的创建行更改为,还可以将其与模板结合使用objMsg = Application.CreateItemFromTemplate("C:\Users\[USER]\AppData\Roaming\Microsoft\Templates\Test.oft")
安迪·默瑟
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.