会議のデフォルトのタイミングを1時間の5分後に開始し、1時間の5分前に終了させるために使用できるレジストリ編集のトリックまたはマクロはありますか。私は今、誰かが会議に遅れるという問題を取り除くためにこれを手作業で行っています-私は「5分過ぎ」から始めます...これはうまくいきますが、会議をスケジュールするときにクリックするのは悪夢です。
私はついに解決策をグーグルで検索しました-しかし、それは単純な検索で目に見えるものではありません。興味のある人は少ないようです。
OutlookがインストールされていないPCから書いていますが、それをよく覚えているといいのですが。
Outlookで開発者の「リボン」を有効にする必要があります
新しいフォームを作成する必要があります(予約フォームをベースとして使用)
この新しいフォームに-オープンアクションのVBAコードを入力する必要があります
このコードでは、Itemを変更する必要があります。スタートとアイテム。終了(1時間または30分に設定されている場合のみ、この部分を見逃すと、開くたびに予定が「縮小」します。開始は+5分、終了は-10分(の+5として) startは実際にEndを5分進めます)。
新しいフォームを編集しているときに、招待状に標準のフッター(電話会議番号など)を追加することをお勧めします。
このフォームを保存します(これをよく覚えている場合は、「フォームに名前を付けて公開...」)
カレンダーの「フォルダ」のカレンダービューを右クリックし、使用するデフォルトのフォームを予定からポイント6で保存したフォームに変更します。
あなたがグーグルの少しの助けを借りてこれに従うことができることを願っています。解決策は
このガイドラインに従ってください:
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