2 метода изменения продолжительности встречи и собрания по умолчанию в Outlook

По умолчанию при создании встречи или собрания продолжительность по умолчанию составляет полчаса. Если вы хотите изменить его, вы можете обратиться к 2 методам, представленным в этой статье.

Как видите, при создании новой встречи или совещания продолжительность автоматически устанавливается на 30 минут. Однако на практике это не подходит большинству пользователей. Поэтому многие хотели бы изменить продолжительность встреч и совещаний по умолчанию на свои предпочтения. Учитывая это требование, мы расскажем вам о двух способах. Читайте дальше, чтобы узнать о них подробнее.

Способ 1: изменить шкалу времени

1. Для начала запустите Outlook.
2. Затем перейдите на панель «Календарь» и откройте нужную папку календаря.
3. Затем перейдите на вкладку «Вид» и выберите «Изменить вид»> «Календарь».
4. Затем нажмите кнопку «Просмотреть настройки».
5. Во всплывающем диалоговом окне «Дополнительные настройки просмотра: Календарь» нажмите кнопку «Другие настройки».
6. Затем в следующем диалоговом окне вы можете изменить шкалу времени. Выберите период времени в зависимости от желаемой продолжительности. Здесь всего 6 вариантов.
7. После этого нажмите несколько кнопок «ОК», чтобы закрыть все диалоговые окна.
8. Отныне, когда вы создаете новую встречу или собрание, продолжительность по умолчанию будет такой же, как выбранная вами временная шкала.

Однако у этого средства есть 2 самых больших недостатка. Во-первых, вам нужно выбрать только 6 вариантов. Вы не можете указать продолжительность по желанию. Во-вторых, это может работать только в представлении «Календарь». Если вы переключитесь на другой вид, продолжительность вернется к получасу. Значит, перейдем к следующему методу, который сможет избавиться от этих недостатков.

Способ 2: изменить через VBA

1. Прежде всего, нажмите клавиши «Alt + F11» в окне Outlook.
2. Затем в следующем окне редактора VBA откройте проект ThisOutlookSession.
3. Затем скопируйте и вставьте в него следующие коды VBA.

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"
    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"
       End If
    End If
End Sub

4. После этого подпишите этот код.
5. Затем измените настройки макроса, чтобы разрешить макросы с цифровой подписью.
6. Наконец, перезапустите Outlook, чтобы активировать макрос.
7. После этого продолжительность встречи и встречи будет установлена ​​равной определенной продолжительности в кодах VBA, как показано на следующем рисунке.

Избегайте болезненной потери данных Outlook

Никто не хочет страдать от потери данных Outlook PST. Поэтому, если вы хотите избавиться от разочаровывающей потери данных PST, вы должны принять 2 обязательные меры предосторожности. Один из них — это согласованные и актуальные резервные копии данных PST. Другой - заполучить авторитетный инструмент исправления, такой как DataNumen Outlook Repair, Которые могут исправить PST проблемы эффективно.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая повреждение мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com