2 Outlook бағдарламасында кездесу мен кездесудің әдепкі ұзақтығын өзгерту әдістері

Әдепкі бойынша, кездесу немесе кездесу жасаған кезде, әдепкі ұзақтығы жарты сағатқа орнатылады. Егер сіз оны өзгерткіңіз келсе, осы мақалада енгізілген 2 әдіске жүгіне аласыз.

Көріп отырғаныңыздай, жаңа кездесу немесе кездесу жасаған кезде, жаңа элементтің ұзақтығы автоматты түрде 30 минутқа орнатылады. Дегенмен, іс жүзінде бұл көптеген пайдаланушылар үшін қолайлы емес. Сондықтан көптеген адамдар кездесу мен кездесудің әдепкі ұзақтығын өз қалауларына сәйкес өзгерткісі келеді. Осы талапқа назар аудара отырып, біз сізге 2 әдісті үйретеміз. Оларды егжей-тегжейлі оқу үшін оқыңыз.

1-әдіс: Уақыт шкаласын өзгерту

1. Бастау үшін Outlook бағдарламасын іске қосыңыз.
2. Содан кейін «Күнтізбе» тақтасына өтіп, қажетті күнтізбе қалтасын ашыңыз.
3. Әрі қарай «Көру» қойындысына өтіп, «Көріністі өзгерту»> «Күнтізбені» таңдаңыз.
4. Содан кейін «Параметрлерді қарау» батырмасын басыңыз.
5. «Кеңейтілген қарау параметрлері: күнтізбе» қалқымалы терезесінде «Басқа параметрлер» батырмасын басыңыз.
6. Содан кейін келесі диалогтық терезеде уақыт шкаласын өзгертуге болады. Қажетті ұзақтыққа негізделген уақыт кезеңін таңдаңыз. Мұнда тек 6 нұсқа бар.
7. Осыдан кейін барлық диалогтық терезелерді жабу үшін бірнеше «ОК» батырмасын басыңыз.
8. Бұдан былай, сіз жаңа кездесу немесе кездесу құрған кезде, әдепкі ұзақтығы сіз таңдаған уақыт шкаласымен бірдей болады.

Алайда бұл ортада ең үлкен 2 кемшіліктер бар. Біреуі - сіз таңдауға арналған 6 нұсқа ғана бар. Ұзақтығын қалауыңыз бойынша көрсете алмайсыз. Екіншісі - бұл тек «Күнтізбе» көрінісінде жұмыс істей алады. Егер сіз басқа көрініске ауыссаңыз, ұзақтығы жарты сағатқа жетеді. Демек, осы кемшіліктерден арылуға болатын келесі әдіске көшіңіз.

2-әдіс: VBA арқылы өзгерту

1. Бірінші кезекте Outlook терезесінде «Alt + F11» батырмаларын басыңыз.
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 PST деректерін жоғалтуға дайын емес. Сондықтан, егер сіз PST деректерін жоғалтудан құтылғыңыз келсе, сізге 2 сақтық шараларын қолдануыңыз керек. Бірі - PST деректерінің дәйекті және заманауи сақтық көшірмелері. Екіншісі - беделді түзету құралын ұстау, мысалы DataNumen Outlook Repairмүмкін PST түзету мәселелер тиімді.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf зақымдануы және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com