Outlookで遅延配信のデフォルト時間を変更するにはどうすればよいですか?
遅延配信オプションを有効にする場合( 以前に配達しないでください 次のスクリーンショットのオプション)Outlookの電子メールの場合、送信時間はデフォルトで午後5時に設定されています。 あなたが夜遅くまで働いていて、あなたが残業していることを他の人に知られたくないと仮定します。 メールを送信する前に、メールの配信遅延オプションを有効にする必要があります。 オプションを有効にした後、デフォルトの送信時間を手動で変更する必要があります。 それ以外の場合、メールは翌日の午後00時以降に送信されます。 このデフォルトの納期を変更する方法はありますか?
このチュートリアルでは、Outlookの遅延配信オプションのデフォルト時間を変更するのに役立つVBAコードを提供します。
Outlookでの遅延配信のデフォルト時間をVBAコードで変更する
次のVBAコードを適用して、Outlookの遅延配信オプションのデフォルトの時間を変更できます。
次のVBAコードでは:
次のXNUMXつを指定できます。 配達時間を遅らせる と 遅延配信オプションの有効化時間.
たとえば、遅延配信時間を午前07時30分に設定し、遅延配信オプションを午後5時30分以降に自動的に有効にするように設定します。 午前07時30分から午後5時30分までにメールを送信すると、メールが直接送信されます。 メールが午後5時30分から午前07時30分に送信された場合、翌日の午前07時30分以降に送信されるようにスケジュールされます。
次のようにスクリプトをテストしてください。
1. Outlookを起動し、を押します 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。
2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック Project1 > MicrosoftOutlookオブジェクト > このOutlookSession を開く ThisOutlookSession(コード) ウィンドウをクリックし、次のコードをこのコードウィンドウにコピーします。
VBAコード:Outlookでの遅延配信のデフォルト時間を変更します
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice & EWP 20230602
Const xDelayTime As String = "07:30:00" 'The delay delivery time of emails
Const xCompareTime As String = "17:30:00" 'The time to enable the delay delivery option
Dim xMail As Outlook.MailItem
Dim xWeekday As Integer
Dim xNowTime As String
Dim xIsDelay As Boolean
Dim xRet1 As Integer
Dim xRet2 As Integer
On Error GoTo xError
If (Item.Class <> olMail) Then Exit Sub
Set xMail = Item
xWeekday = Weekday(Date, vbMonday)
xNowTime = Format(Now, "hh:nn:ss")
xIsDelay = False
xRet1 = StrComp(xNowTime, xDelayTime)
xRet2 = StrComp(xNowTime, xCompareTime)
If xRet1 = xRet2 Then
xIsDelay = True
End If
If (xRet1 = -1) And (xRet2 = -1) Then
xMail.DeferredDeliveryTime = Date & " " & xDelayTime
Else
If ((xWeekday = 5) And xIsDelay) Or (xWeekday = 6) Or (xWeekday = 7) Then
xMail.DeferredDeliveryTime = (Date + (5 - xWeekday + 3)) & " " & xDelayTime
ElseIf xIsDelay Then
xMail.DeferredDeliveryTime = (Date + 1) & " " & xDelayTime
End If
End If
Exit Sub
xError:
MsgBox "ItemSend: " & Err.Description, , "Kutools for Outlook"
End Sub
注意:
3.コードを保存して、 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。
今後、午前07時30分から午後5時30分までにメールを送信すると、メールが直接送信されます。 メールが午後5時30分から午前07時30分までの間に送信された場合、翌営業日の午前07時30分以降に送信されるようにスケジュールされます。
関連記事
Outlookで終日のイベントのデフォルトのリマインダー時間を変更する
通常、終日のイベントのデフォルトのリマインダー時間は、Outlook 18/2007では2010時間、Outlook 0.5では2013。XNUMX日です。終日のイベントのデフォルトのリマインダー時間は、作業スケジュールと一致しない場合があります。 ここでは、MicrosoftOutlookで終日のイベントのデフォルトのリマインダー時間を変更する方法を紹介します。
Outlookでデフォルトのフォローアップ時間を変更する
ご存知のとおり、Outlookでメールのフォローアップのリマインダーを追加する場合、デフォルトのフォローアップ時間は午後4時30分(または勤務時間によっては他の時間)です。 ただし、デフォルトのフォローアップ時間を変更して、午前9時などの勤務時間の開始時に通知するようにすることもできます。 この記事では、Outlookのデフォルトのフォローアップ時間を変更する方法を紹介します。
Outlookでデフォルトのアーカイブの場所を変更する
既定では、Outlookにはアーカイブファイルの既定の場所があります。 デフォルトの場所に加えて、アーカイブファイルの独自のアーカイブ場所を設定できます。 このチュートリアルでは、Outlookのデフォルトのアーカイブの場所を変更する方法について詳しく説明します。
Outlookでデフォルトの添付ファイルの保存場所を変更する
Outlookを起動するたびに、指定した添付ファイルの場所を見つけることにうんざりしていませんか? このチュートリアルでは、デフォルトの添付ファイルの場所を変更する方法を示します。 その後、Outlookを再起動しても、添付ファイルを保存するたびに、指定した添付ファイル保存フォルダが自動的に開きます。
Outlookで終日のイベントのデフォルトをビジーに変更する
既定では、Outlookは予定と会議のステータスを「忙しい」に設定しますが、終日のイベントは「無料」に設定します(下のスクリーンショットを参照)。 終日イベントを作成するたびに、[表示形式]ステータスを[ビジー]に手動で変更する必要があります。 終日のイベントのステータスとしてのデフォルトの表示をビジーに変更するために、この記事ではXNUMXつの方法を提供しています。
最高のオフィス生産性向上ツール
Outlook用Kutools - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。