Outlook:応答がない場合に電子メールを自動再送信する方法
同僚や協力パートナー、または誰かに電子メールを送信し、緊急に応答が必要な場合、指定された時間より前に応答が到着しなかった場合は、自動再送信電子メール設定を設定できます。
リマインダーとVBAを使用して、応答がない場合に自動再送信を設定する
- メール送信を自動化する 自動CC / BCC, 自動転送 規則によって。 送信 自動返信 (不在時) Exchange サーバーを必要とせず...
- などのリマインダーを受け取る BCC警告 BCC リストに登録しているときに全員に返信する場合、 添付ファイルがない場合に通知する 忘れた添付ファイルについては...
- メールの効率を向上させる 添付ファイル付きで返信 (すべて), 署名または件名に挨拶または日付と時刻を自動追加, 複数のメールに返信する...
- メール送信を効率化する メールの取り消し, アタッチメントツール (すべて圧縮、すべて自動保存...)、 重複を削除する, クイックレポート...
リマインダーとVBAを使用して、応答がない場合に自動再送信を設定する
パート1:指定された時間にリマインダーを設定するリマインダーを設定する
1.応答がない場合に再送信する電子メール([送信済みアイテム]フォルダーから)を右クリックし、ポップアップするコンテキストメニューで[]をクリックします。 フォローアップ > リマインダーを追加.
2.ポッピングで カスタム ダイアログ、維持 リマインダー チェックボックスをオンにしてから、下のドロップダウンボックスで、応答を受け取る前の日付と時刻を選択します。また、ボックスに日付と時刻を直接入力することもできます。 クリック OK.
パート2:指定された時間内に応答がない場合に電子メールを再送信するためにVBAを挿入します
3。 押す 他の + F11 を有効にするためのキー アプリケーション向け Microsoft Visual Basic 窓。
4。 ダブルクリック このOutlookSession セクションに プロジェクト– Project1 ペインで空白のスクリプトを作成し、以下の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.コードを保存してから、メインインターフェイスに戻り、[ File > オプション とthでeOutlookオプション ウィンドウ、クリック トラストセンター (英語のみ) 左側のペインで、をクリックします セキュリティセンターの設定 を有効にする トラストセンター (英語のみ) 窓。 クリック マクロ設定 に設定し、 すべてのマクロを有効にする(推奨されていない、潜在的に危険なコードを実行できる) オプションは右側のセクションで選択されています。 クリック OK > OK.
6.これで、リマインダーが設定された送信済み電子メールが指定された時間になっても応答がない場合、通知を行うために電子メールを再送信するかどうかを通知するポップアップダイアログがポップアップ表示されます。
7。 クリック 有り、メッセージウィンドウが表示され、前のメールが添付されます。本文を再編集してクリックすると、 送信 メールを再送します。
8。 クリック いいえ、リマインダーは削除されます。
Note:指定した時間より前にメールが返信された場合、VBAによってリマインダーが削除されます。
最高のオフィス生産性向上ツール
Kutools for Outlook - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。