☰

Outlook에서 기본적으로 xx:05를 회의 시작으로, xx:55를 회의 종료로 자동화하는 방법이 있나요?

tag-icon • tag-icon microsoft-outlook microsoft-office calendar meetings
Outlook에서 기본적으로 xx:05를 회의 시작으로, xx:55를 회의 종료로 자동화하는 방법이 있나요?

회의의 기본 시간을 정시 5분 후에 시작하고 정시 5분 전에 종료하도록 하는 데 사용할 수 있는 레지스트리 편집 방법이나 매크로가 있습니까? 누군가가 회의에 늦는 문제를 해결하기 위해 지금 이 작업을 직접 수행합니다. 정각 "5분 전"에 시작합니다. 이것은 잘 작동하지만 회의 일정을 잡을 때 클릭하기에는 악몽입니다.

답변1

마침내 해결책을 찾았습니다. 하지만 간단한 검색으로는 볼 수 있는 것이 아닙니다. 관심있는 분들이 많지 않은 것 같습니다.

아웃룩이 설치되지 않은 PC에서 글을 쓰고 있는데 그 점을 잘 기억해두셨으면 좋겠습니다.

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

  2. 새로운 양식을 작성해야 합니다(예약 양식을 기본으로 사용).

  3. 이 새 양식에 Open 작업을 위한 VBA 코드를 입력해야 합니다.

  4. 이 코드에서는 Item을 수정해야 합니다. 시작 및 항목. 종료(1시간 또는 30분으로 설정된 경우에만 이 부분을 놓치면 약속을 열 때마다 "축소"됩니다. 시작은 +5분이어야 하고, 종료는 -10분이어야 합니다( start는 실제로 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

관련 정보