web-dev-qa-db-ja.com

Outlookでデフォルトで会議の開始としてxx：05を自動化し、会議の終了としてxx：55を自動化する方法はありますか

会議のデフォルトのタイミングを1時間の5分後に開始し、1時間の5分前に終了させるために使用できるレジストリ編集のトリックまたはマクロはありますか。私は今、誰かが会議に遅れるという問題を取り除くためにこれを手作業で行っています-私は「5分過ぎ」から始めます...これはうまくいきますが、会議をスケジュールするときにクリックするのは悪夢です。

microsoft-outlookmicrosoft-officecalendarmeetings
4
Piotr

私はついに解決策をグーグルで検索しました-しかし、それは単純な検索で目に見えるものではありません。興味のある人は少ないようです。

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

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

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

  3. この新しいフォームに-オープンアクションのVBAコードを入力する必要があります

  4. このコードでは、Itemを変更する必要があります。スタートとアイテム。終了（1時間または30分に設定されている場合のみ、この部分を見逃すと、開くたびに予定が「縮小」します。開始は+5分、終了は-10分（の+5として） startは実際にEndを5分進めます）。

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

  6. このフォームを保存します（これをよく覚えている場合は、「フォームに名前を付けて公開...」）

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

あなたがグーグルの少しの助けを借りてこれに従うことができることを願っています。解決策は

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

このガイドラインに従ってください：

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
0
Peter Mølgaard Pallesen