Outlook에서 회의 시작으로 xx : 05를 자동으로 종료하고 회의 끝으로 xx : 55를 자동화하는 방법이 있습니까?

회의의 기본 시간을 풀 타임 5 분 후 시작하고 풀 타임 5 분 전에 끝내는 데 사용할 수있는 레지스트리 편집 트릭이나 매크로가 있습니까? 나는 누군가가 회의에 늦는 문제를 제거하기 위해 지금 손으로 이것을한다-나는 "5 분 지나서"예리하게 시작한다. 이것은 잘 작동하지만 회의를 예약 할 때 클릭하는 악몽이다.

나는 해결책을 찾기 위해 마침내 구글을 찾았다. 단순한 검색으로 볼 수있는 것은 아니다. 많은 사람들이 관심이없는 것 같습니다.

Outlook이 설치되어 있지 않은 PC에서 쓰고 있지만 잘 기억하기를 바랍니다.

1. Outlook에서 개발자 "리본"을 활성화해야합니다.

2. 약속 양식을 기본으로 사용하여 새 양식을 작성해야합니다.

3. 이 새로운 양식에서-오픈 액션을위한 VBA 코드를 넣어야합니다

4. 이 코드에서는 Item을 수정해야합니다. 시작 및 항목. 끝 (전체 시간 또는 30 분으로 설정된 경우에만이 조각을 놓치면 약속을 열 때마다 "축소"됩니다. 시작은 +5 분이어야하고 끝은 -10 분이어야합니다 (+5 start는 실제로 End 5 분을 앞 당깁니다).

5. 새 양식을 편집하는 동안 초대에 표준 바닥 글 (예 : 전화 회의 번호)을 추가 할 수 있습니다.

6. 이 양식을 저장하십시오 ( "이 양식을 잘 기억하면 다른 형식으로 게시 ...").

7. 일정 관리 "폴더"에서 일정 관리보기를 마우스 오른쪽 단추로 클릭하고 약속에서 사용되도록 기본 양식을 포인트 6에 저장 한 형식으로 변경하십시오.

구글의 작은 도움으로 이것을 따라갈 수 있기를 바랍니다. 해결책은

1. 새 양식을 작성하십시오
2. 처음에 작은 VBA를 추가
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