Outlook бағдарламасында кездесу үшін «қайталануды» қосқанда, әдепкі бойынша, ол аяқталу күнімен белгіленеді. Егер сіз оны өзгертіп, қайталанатын кездесулердің әдепкі аяқталу күнін орнатқыңыз келсе, осы мақалада енгізілген әдістерді қолдануға болады.
Жаңа кездесу құрып, «Қайталау» батырмасын басқан кезде, «Тағайындалудың қайталануы» диалогтық терезесінде, «Сурет жоқ» әдепкі бойынша таңдалғанын көруге болады, келесі суретте көрсетілгендей. Егер сізге бұл ұнамаса және әдепкі аяқталу күнін орнатқыңыз келсе, мысалы бірінші оқиғадан 90 күн өткенде, оны оқи аласыз. Мұнда біз оны жүзеге асырудың 2 тәсілін үйретеміз.
1-әдіс: Тізілімді өзгерту арқылы орнатыңыз
- Бастау үшін «Бастау» мәзіріне өтіп, «regedit» іздеңіз.
- Содан кейін табылған «regedit» бағдарламасын басыңыз.
- Әрі қарай «Пайдаланушының есептік жазбасын басқару» диалогтық терезесі пайда болады, оған «Иә» батырмасын басу керек.
- «Тізілім редакторы» терезесіне кіргеннен кейін, жолға өтіңіз - ”HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ \ Outlook \ Options \ Calendar «
- Кейінірек «Күнтізбені» тінтуірдің оң жағымен басып, «Жаңа»> «DWORD (32-биттік мән») таңдаңыз.
- Кейін бұл жаңа мәнді «RecurrencesDefault» деп атаңыз.
- Содан кейін мәнді екі рет басыңыз.
- Қалқымалы терезеде «DWORD (32-биттік мәнді өңдеу») диалогтық терезесінде «Мәндер деректері» өрісіне сан енгізіңіз. Бұл бүгіннен бастап күндер санына қатысты. Мысалы, егер «90» болса, Outlook қайталанудың аяқталу күнін бүгіннен бастап 90 күнге орнатады.
- Осыдан кейін «ОК» батырмасын басыңыз және Тізілім редакторынан дұрыс шығыңыз.
- Соңында, Outlook бағдарламасын қайта іске қосып, қайталанатын кездесуді жасауға тырысыңыз. Оның аяқталу күні «RecurrencesDefault» мәніне сәйкес орнатылады.
2-әдіс: Outlook VBA көмегімен орнатыңыз
- Бастау үшін Outlook VBA редакторын «Alt + F11» пернелер тіркесімімен іске қосыңыз.
- Содан кейін келесі 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
- Соңында, «Application_Startup» макросын басып, «F5» пернесін басыңыз.
- Қазіргі уақытта сіз жаңа кездесу құра аласыз.
- Осыдан кейін «Қайталау» батырмасын басыңыз, қайталану параметрлерін «Аяқталу күні жоқ» күйінде өзгертіңіз және «ОК» батырмасын басыңыз.
- Кейінірек тексеру үшін «Қайталау» түймесін қайта басуға болады. Аяқталу күні сіздің VBA кодына сәйкес өзгертілгенін көресіз.
Қол жетімсіз Outlook PST файлын түзетіңіз
Сізде Outlook бағдарламасында «қол жетімді емес PST файлына» қатысты қате туралы хабарламалар болған ба? Егер сізде болса, сіз олармен қалай жұмыс жасадыңыз? Мүмкін Сканпст бірінші кезекте сіздің ойыңызға келген шығар. Алайда сіз оны сынап көргенде Outlook бағдарламасын түзетіңіз, ол да сәтсіздікке ұшырады. Бұл сценарийде сіздің соңғы шешіміңіз - деректерді қалпына келтіру сияқты тәжірибелі бағдарламалық жасақтама DataNumen Outlook Repair немесе мамандандырылған қалпына келтіру қызметі.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com