☰

Outlook で、デフォルトで会議の開始時刻を xx:05、終了時刻を xx:55 に自動化する方法はありますか?

tag-icon • tag-icon microsoft-outlook microsoft-office calendar meetings
Outlook で、デフォルトで会議の開始時刻を xx:05、終了時刻を xx:55 に自動化する方法はありますか?

会議のデフォルトのタイミングを 1 時間後 5 分に開始し、1 時間前 5 分に終了するように設定するためのレジストリ編集トリックまたはマクロはありますか。現在、誰かが会議に遅れるという問題を解消するために、手動でこれを行っています。開始時刻は「5 分過ぎ」ちょうどです。これはうまく機能しますが、会議をスケジュールするときにクリックするのが大変です。

答え1

最終的に解決策を Google で検索しましたが、単純な検索では見つかりません。興味を持っている人は多くないようです。

私は Outlook がインストールされていない PC から書いていますが、そのことをよく覚えておけばよいのですが。

  1. Outlookで開発者向け「リボン」を有効にする必要があります

  2. 新しいフォームを作成する必要があります（予約フォームをベースとして使用）

  3. この新しいフォームでは、開くアクションのVBAコードを配置する必要があります。

  4. このコードでは、Item.Start と Item.End を変更する必要があります (1 時間または 30 分に設定されている場合のみ、この部分を見逃すと、開くたびに予定が「短縮」されます)。Start は +5 分、end は -10 分にする必要があります (start の +5 により、End も実際に 5 分進むため)。

  5. 新しいフォームを編集しているときに、招待状に標準のフッター (電話会議番号など) を追加することもできます。

  6. このフォームを保存します (私の記憶が正しければ「フォームを別名で公開...」)

  7. カレンダー「フォルダー」のカレンダー ビューを右クリックし、使用する既定のフォームを予定からポイント 6 で保存したものに変更します。

グーグルの助けを借りて、これを理解できることを願っています。解決策は次のとおりです。

  1. 新しいフォームを作成する
  2. 先頭に小さなVBAを追加する
  3. このフォームを新しいデフォルトの「カレンダー フォーム」として選択します。

答え2

Outlook の以降のバージョンでは、この機能が追加されているようです。https://chrismenardtraining.com/post/outlook-buffer-time

答え3

次のガイドラインに従ってください:

https://www.datanumen.com/blogs/2-methods-change-default-duration-appointment-meeting-outlook/

代わりに次のマクロを使用します。

Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is AppointmentItem Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    'Set the default duration of new appointment
    If objAppointment.CreationTime = #1/1/4501# Then
       objAppointment.Duration = "50"
       objAppointment.Start = DateAdd("n", 5, objAppointment.Start)
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    'When you disable the "All Day Event"
    'Change the default duration of the current appointment
    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = False Then
          objAppointment.Duration = "50"
          objAppointment.Start = DateAdd("n", 5, objAppointment.Start)
       End If
    End If
End Sub

関連情報