Outlookで忙しいときに、受信したメッセージに自動的に返信するにはどうすればよいですか？
ある期間忙しいときに、Outlookで受信したメッセージに自動的に返信したい場合があります。 しかし、このジョブを処理できる組み込み関数はありませんが、ここではそれを処理するためのVBAコードがあります。
VBAコードで忙しいときの自動返信
- メール送信を自動化する 自動CC / BCC, 自動転送 規則によって。 送信 自動返信 (不在時) Exchange サーバーを必要とせず...
- などのリマインダーを受け取る BCC警告 BCC リストに登録しているときに全員に返信する場合、 添付ファイルがない場合に通知する 忘れた添付ファイルについては...
- メールの効率を向上させる 添付ファイル付きで返信 (すべて), 署名または件名に挨拶または日付と時刻を自動追加, 複数のメールに返信する...
- メール送信を効率化する メールの取り消し, アタッチメントツール (すべて圧縮、すべて自動保存...)、 重複を削除する, クイックレポート...
これはVBAコードです。これは、Outlookカレンダーに予定がある間は自動返信します。カレンダーに何もない場合は、自動的に返信を停止します。
1。 押す Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。
2.でダブルクリックします このOutlookSession Project1 ペインで、以下のコードをコピーしてスクリプトに貼り付けます。
VBA：カレンダーで忙しいときに自動返信する
Public WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
Set xMailItem = Item
Set xReplyMailItem = xMailItem.Reply
xReplyHTMLBody = xReplyMailItem.HTMLBody
Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
xAppointments.Sort "[Start]"
xAppointments.IncludeRecurrences = True
xDateFormat = Format(Now, "ddddd h:nn AMPM")
xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
Set xRestrictAppointments = xAppointments.Restrict(xFilter)
If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
For Each xAppointment In xRestrictAppointments
If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
xReplyHTMLBody
xReplyMailItem.Send
End If
Next
End If
End Sub3. このコードを保存し、Outlook を再起動します。 今後は、ご予約の時間帯にメールを受信した場合、自動返信が送信されるようになります。
ヒント：
(1) コード内で、このスクリプトで必要に応じて返信本文を変更できます 「申し訳ありませんが、今は返信できません。後ほど返信させていただきます。」 & _
(2) この VBA マクロは、デフォルト データ ファイルの受信トレイに受信したメールに自動的に返信することができます。
最高のオフィス生産性向上ツール
Kutools for Outlook - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。
