Outlook:如果没有回复,如何自动重新发送电子邮件
当您向您的同事或合作伙伴或某人发送电子邮件并紧急需要回复时,如果在指定时间之前没有回复,您可以设置自动重新发送电子邮件设置。
- 自动发送电子邮件 自动CC / BCC, 自动转发 按规则; 发送 自动回复 (不在办公室)无需交换服务器...
- 获取类似提醒 BCC警告 当您在密件抄送列表中回复所有内容时,以及 缺少附件时提醒 对于忘记的附件...
- 提高电子邮件效率 回复(全部)并附上附件, 自动添加问候语或日期和时间到签名或主题中, 回复多封电子邮件...
- 简化电子邮件发送 撤回电子邮件, 附件工具 (压缩全部、自动保存全部...)、 删除重复及 快速报告...
如果没有响应,使用提醒和 VBA 设置自动重新发送
第 1 部分:设置提醒以在指定时间提醒
1. 如果没有回复,右键单击要重新发送的电子邮件(来自已发送邮件文件夹),在弹出的上下文菜单中,单击 课后跟进 > 添加提醒.
2.在弹出 定制版 对话框中,保留 提醒 勾选复选框,然后在下面的下拉框中,选择您希望回复到达之前的日期和时间,您也可以直接在框中输入日期和时间。 点击 OK.
第 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.
6. 现在如果设置了提醒的已发送邮件在指定时间到达时没有收到回复,会弹出对话框提醒您是否重新发送邮件进行通知。
7。 点击 是,会弹出一个消息窗口并附上上一封邮件,您可以重新编辑正文并单击 提交 重新发送电子邮件..
8。 点击 没有,提醒将被删除。
备注: 如果邮件在指定时间之前已经回复,VBA 将删除该提醒。
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。