跳到主要内容

Outlook:如果没有回复,如何自动重新发送电子邮件

当您向您的同事或合作伙伴或某人发送电子邮件并紧急需要回复时,如果在指定时间之前没有回复,您可以设置自动重新发送电子邮件设置。

如果没有响应,使用提醒和 VBA 设置自动重新发送

Office 选项卡 - 在 Microsoft Office 中启用选项卡式编辑和浏览,让工作变得轻而易举
Kutools for Outlook - 通过 100 多个高级功能增强 Outlook,实现卓越效率
使用这些高级功能增强您的 Outlook 2021 - 2010 或 Outlook 365。 享受全面的 60 天免费试用并提升您的电子邮件体验!

如果没有响应,使用提醒和 VBA 设置自动重新发送

 

第 1 部分:设置提醒以在指定时间提醒

1. 如果没有回复,右键单击要重新发送的电子邮件(来自已发送邮件文件夹),在弹出的上下文菜单中,单击 课后跟进 > 添加提醒.

如果没有响应,则重新发送文档 1

2.在弹出 定制版 对话框中,保留 提醒 勾选复选框,然后在下面的下拉框中,选择您希望回复到达之前的日期和时间,您也可以直接在框中输入日期和时间。 点击 OK.

如果没有响应,则重新发送文档 1 如果没有响应,则重新发送文档 1

第 2 部分:如果在指定时间内没有回复,则插入 VBA 以重新发送电子邮件

3。 按 其他 + F11 启用 Microsoft Visual Basic应用程序 窗口。

4.双击 本次展望会议 ,在 项目——项目1 窗格以创建空白脚本,并将以下 VBA 代码复制并粘贴到空白脚本中。

VBA:如果没有回复,请重新发送电子邮件

Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
  Dim xInboxFld As Folder
  Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
  Set GInboxItems = xInboxFld.Items
End Sub

'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
  Dim xSentItems As Outlook.Items
  Dim xMail As MailItem
  Dim i As Long
  Dim xSubject As String
  Dim xItemSubject As String
  Dim xSendTime As String
  On Error Resume Next
  Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
  If Item.Class <> olMail Then Exit Sub
  For i = xSentItems.Count To 1 Step -1
    If xSentItems.Item(i).Class = olMail Then
      Set xMail = xSentItems.Item(i)
      xSubject = LCase(xMail.Subject)
      xSendTime = xMail.SentOn
      xItemSubject = LCase(Item.Subject)
      If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
        If Item.SentOn > xSendTime Then
           With xMail
             .ClearTaskFlag
             .ReminderSet = False
             .Save
           End With
        End If
      End If
    End If
  Next i
End Sub

'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
  Dim xPrompt As String
  Dim xResponse As Integer
  Dim xFollowUpMail As Outlook.MailItem
  Dim xRcp As Recipient
  On Error Resume Next
  'Resend
  If (Item.Class <> olMail) Then Exit Sub
  xPrompt = "You haven't yet recieved the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
  xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
  If xResponse = vbNo Then Exit Sub
  Set xFollowUpMail = Application.CreateItem(olMailItem)
  With xFollowUpMail
    For Each xRcp In Item.Recipients
      .Recipients.Add (xRcp.Address)
    Next
    .Recipients.ResolveAll
    .Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
    .Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & "as soon as possible"
    .Attachments.Add Item
    .Display
  End With
End Sub

5.保存代码,然后回到主界面,点击 文件 > 附加选项 并且在e Outlook 选项 窗口中,单击 信任中心 在左窗格中,然后单击 信任中心设置 使之成为可能 信任中心 窗口。 点击 宏设置 并确保 启用所有宏(不推荐;有潜在危险的代码可以运行) 在右侧部分中选择了选项。 点击 OK > OK.

如果没有响应,则重新发送文档 1

如果没有响应,则重新发送文档 1

6. 现在如果设置了提醒的已发送邮件在指定时间到达时没有收到回复,会弹出对话框提醒您是否重新发送邮件进行通知。

如果没有响应,则重新发送文档 1

7。 点击 ,会弹出一个消息窗口并附上上一封邮件,您可以重新编辑正文并单击 提交 重新发送电子邮件..

如果没有响应,则重新发送文档 1

8。 点击 没有,提醒将被删除。

如果没有响应,则重新发送文档 1

备注: 如果邮件在指定时间之前已经回复,VBA 将删除该提醒。


最佳办公生产力工具

Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook

🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 外出(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 轻松回忆电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  使用选项卡式视图提高 Outlook 工作效率  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

超过 100特点 等待您的探索! 单击此处了解更多。

了解更多       免费下载      购买
 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, great script! How can I make this so that it replies to the email instead of sending the original email as an attachment?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations