Outlook:如果沒有回复,如何自動重新發送電子郵件
當您向您的同事或合作夥伴或某人發送電子郵件並緊急需要回复時,如果在指定時間之前沒有回复,您可以設置自動重新發送電子郵件設置。
- 自動發送電子郵件 自動CC / BCC, 自動前進 按規則; 傳送 自動回复 (不在辦公室)無需交換伺服器...
- 取得類似提醒 BCC警告 當您在密件副本清單中回覆所有內容時,以及 缺少附件時提醒 對於忘記的附件...
- 提高電子郵件效率 回覆(全部)並附上附件, 自動添加問候語或日期和時間到簽名或主題中, 回覆多封電子郵件...
- 簡化電子郵件發送 撤回電子郵件, 附件工具 (壓縮全部、自動儲存全部...)、 刪除重複項和 快速報告...
如果沒有響應,使用提醒和 VBA 設置自動重新發送
第 1 部分:設置提醒以在指定時間提醒
1. 如果沒有回复,右鍵單擊要重新發送的電子郵件(來自已發送郵件文件夾),在彈出的上下文菜單中,單擊 課後跟進 > 添加提醒.
2.在彈出 習俗 對話框中,保留 提醒 勾選複選框,然後在下面的下拉框中,選擇您希望回復到達之前的日期和時間,您也可以直接在框中輸入日期和時間。 點擊 OK.
第 2 部分:如果在指定時間內沒有回复,則插入 VBA 以重新發送電子郵件
3。 按 其他 + F11 啟用 Microsoft Visual Basic for Applications 窗口。
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特點 等待您的探索! 按此處了解更多。