2 метода за задаване на крайната дата по подразбиране на повтарящи се срещи в Outlook

В Outlook, когато активирате „Повтаряне“ за среща, по подразбиране тя ще бъде зададена без крайна дата. Ако искате да го промените и да зададете крайна дата по подразбиране за повтарящи се срещи, можете да използвате методите, въведени в тази статия.

Когато създавате нова среща и щракнете върху бутона „Повторение“, в изскачащия диалогов прозорец „Повторение на срещата“ можете да видите, че по подразбиране е избрано „Няма крайна дата“, както е показано на следващата фигура. Ако не харесвате това и искате да зададете крайна дата по подразбиране, например 90 дни от първото появяване, можете да продължите. Тук ще ви научим на 2 подхода, за да го реализирате.

Метод 1: Задайте чрез промяна на системния регистър

1. За начало отидете в менюто „Старт“ и потърсете „regedit“.
2. След това кликнете върху намерената програма „regedit“.
3. След това ще се покаже диалоговият прозорец „Контрол на потребителски акаунти“, в който трябва да кликнете върху „Да“.
4. След като влезете в прозореца „Редактор на системния регистър“, отидете до пътя - „HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Опции \ Календар ”
5. По-късно щракнете с десния бутон на мишката върху „Календар“ и изберете „New“> „DWORD (32-bit) Value“.
6. Впоследствие наречете тази нова стойност като „RecurrencesDefault“.
7. След това щракнете двукратно върху стойността.
8. В изскачащия диалогов прозорец „Редактиране на DWORD (32-битова) стойност“ въведете число в полето „Данни за стойността“. Отнася се за броя дни от днес. Например, ако е „90“, Outlook ще зададе крайната дата на повторение на 90 дни от днес.
9. След това щракнете върху „OK“ и излезте правилно от редактора на системния регистър.
10. В крайна сметка рестартирайте Outlook и опитайте да създадете повтаряща се среща. Крайната ѝ дата ще бъде зададена според стойността на „RecurrencesDefault“.

Метод 2: Задайте с Outlook VBA

1. За начало, задействайте редактора на Outlook VBA чрез „Alt + F11“.
2. След това поставете следния VBA код в проекта “ThisOutlookSession”.

Public WithEvents objInspectors As Outlook.Inspectors
Public 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_PropertyChange(ByVal Name As String)
    Dim objRecurrencePattern As Outlook.RecurrencePattern
 
    'Change enable "Recurrence"
    If Name = "IsRecurring" Then
       If objAppointment.IsRecurring = True Then
          Set objRecurrencePattern = objAppointment.GetRecurrencePattern
          'Change the end date to 30 days from the start date
          'Alter "30" as per your needs
          objRecurrencePattern.PatternEndDate = objRecurrencePattern.PatternStartDate + 30
       End If
    End If
End Sub

3. Накрая щракнете върху макроса „Application_Startup“ и натиснете „F5“.
4. Понастоящем можете да създадете нова среща.
5. След това щракнете върху бутона „Повторение“, променете настройките за повторение, като запазите „Няма крайна дата“, и щракнете върху „OK“.
6. По-късно можете да щракнете отново върху „Повторение“, за да проверите. Ще видите, че крайната дата е променена според вашия VBA код.

Коригирайте недостъпен файл на PST на Outlook

Получавали ли сте някога съобщения за грешка, включващи „недостъпен PST файл“ във вашия Outlook? Ако имате, как се справихте с тях? Може би Scanpst първо ви е хрумнало в съзнанието. Въпреки това, когато се опитахте поправете Outlook, също се провали. В този сценарий последната инстанция е или опитен софтуер за възстановяване на данни като DataNumen Outlook Repair или специализирана услуга за възстановяване.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com