Outlook бағдарламасында демалыс күндеріндегі кездесулерді қалай автоматты түрде жеке етіп белгілеуге болады

Outlook шешімдері Қыркүйек 29, 2025

М үшінost пайдаланушылар үшін демалыс күндеріне жоспарланған кездесулер әдетте жеке болады. Демек, олар Outlook бағдарламасының мұндай кездесулерді жеке ретінде автоматты түрде белгілеп, көрсетуін қалайды. Бұл мақалада біз мұны аздап сценарий арқылы жүзеге асырамыз.

Бизнес және жеке кездесулерді оңай ажырату үшін Outlook пайдаланушыларға кездесулерді жеке ретінде белгілеуге рұқсат береді. Осылайша сіз күнтізбені жеке кездесулерсіз басып шығаруды өте ыңғайлы және оңай таба аласыз. Бұл жағдайда сіз Outlook бағдарламасының арнайы кездесулерді жеке ретінде автоматты түрде тануды және белгілеуін қалауыңыз мүмкін. Мысалы, әдетте, демалыс күндеріндегі кездесулер жеке болып табылады, сондықтан Outlook бағдарламасына оларды жеке деп белгілеуге рұқсат бергіңіз келеді. Содан кейін біз сізге жетуге бағыт береміз.

Демалыс күндеріндегі кездесулерді жеке ретінде автоматты түрде белгілеу

Алдымен « Outlook VBA редакторын іске қосыңыз.Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
Содан кейін «Қолданбаларға арналған Microsoft Visual Basic» терезесінде «ThisOutlookSession» жобасына келесі кодты қойыңыз.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olAppointment Then
       Set objAppointment = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    Call MarkWeedendAppointmentPrivate(objAppointment)
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    If Name = "Start" Or Name = "End" Then
       Call MarkWeedendAppointmentPrivate(objAppointment)
    End If
End Sub

Private Sub MarkWeedendAppointmentPrivate(ByVal objAppointment As Outlook.AppointmentItem)
    Dim dStartDate As Date
 
    dStartDate = Format(objAppointment.Start, "Short Date")
 
    'If the appointment start falls on weekend
    Select Case Weekday(dStartDate)
           Case 7, 1
                'Mark it private
                objAppointment.Sensitivity = olPrivate
    End Select
End Sub

Осыдан кейін, тtart Макросты іске қосу үшін Outlook.
Бұдан былай жаңа кездесуді жасағанда немесе бар кездесуді демалыс күніне өзгерткен сайын, Outlook оны автоматты түрде жеке деп белгілейді.

Жағымсыз көріністерді шешіңіз

Outlook бағдарламасымен жұмыс істегенде, қолданбаның күтпеген қатып қалуы, қалқымалы қате туралы хабарлар және т.б. сияқты кейбір мәселелерге тап болуыңыз мүмкін. Оларды қинағанда, сіз уайымдайтын едіңіз. Өтінемін, тынышталыңыз! Дүрбелең ештеңеге көмектеспейді, бірақ жағдайды нашарлатады. Біріншіден, сіз PST файлына әдеттегідей қол жеткізе алатыныңызды тексере аласыз. Олай болса, PST файлын жөндеуге тура келеді, ол арқылы орындауға болады кіріс жәшігін жөндеу құралы немесе неғұрлым қуатты сыртқы құрал сияқты DataNumen Outlook Repair.

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

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