Kaip nustatyti numatytąjį visos dienos įvykių pradžios ir pabaigos laiką pagal jūsų darbo valandas programoje „Outlook“

Pagal numatytuosius nustatymus „Outlook“ programoje negalite keisti visos dienos įvykių pradžios ir pabaigos laiko pagal savo pageidavimus. Dabar šiame straipsnyje parodysime, kaip nustatyti numatytąjį visos dienos įvykių pradžios ir pabaigos laiką pagal savo darbo valandas.

Kaip matote, įjungus parinktį „Visos dienos įvykis“ susitikime, abu laukai „Pradžios laikas“ ir „Pabaigos laikas“ bus pilki. Tokiu atveju tai reiškia, kad negalite jų keisti pagal savo pageidavimus. Todėl toliau pateiksime metodą, kaip nustatyti numatytąjį visos dienos įvykių pradžios ir pabaigos laiką pagal savo darbo valandas programoje „Outlook“.

Nustatykite numatytąjį visos dienos įvykių pradžios ir pabaigos laiką pagal darbo valandas

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Kai pateksite į pagrindinį "Outlook" ekraną, galite paspausti "Alt + F11" klavišų mygtukus.
3. Vėliau gausite prieigą prie Outlook VBA redaktoriaus lango.
4. Dabartiniame „Microsoft Visual Basic for Applications“ lange turite atidaryti projekto langą „ThisOutlookSession“.
5. Tada nukopijuokite šį VBA kodą į šį projektą.

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 Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim dOccuringDate As Date

    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = True Then
          dOccuringDate = Format(objAppointment.Start, "Short Date")
 
          'Change the Start and End Time as per Working Hours
          With objAppointment
               .AllDayEvent = False
               .Start = dOccuringDate & " 9:00:00 AM"
               .End = dOccuringDate & " 6:00:00 PM"
          End With
       End If
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       dOccuringDate = Format(objAppointment.Start, "Short Date")
 
       With objAppointment
            .AllDayEvent = False
            .Start = dOccuringDate & " 9:00:00 AM"
            .End = dOccuringDate & " 6:00:00 PM"
       End With
    End If
End Sub

6. Po to turite pasirašyti šį kodą. Spustelėkite „Įrankiai“ > „Parašas“.
7. Kitame dialogo lange vadovaukitės ekrane pateikiamomis instrukcijomis, kad naujam VBA projektui priskirtumėte skaitmeninį sertifikatą.
8. Vėliau turėtumėte pakeisti savo „Outlook“ makrokomandos nustatymus, kad būtų galima naudoti skaitmeniniu būdu pasirašytas makrokomandas.
9. Galiausiai galite paleisti „Outlook“ programą iš naujo, kad suaktyvintumėte šią makrokomandą.
10. Nuo šiol kiekvieną kartą, kai „Outlook“ paskyroje įjungsite parinktį „Visos dienos įvykis“, paskyros pradžios ir pabaigos laikas bus pakeistas į jūsų darbo valandas, kaip parodyta toliau pateiktoje ekrano kopijoje:

Gaukite brangius duomenis iš pažeisto Outlook failo

Nors „Outlook“ gali pasigirti daugybe įvairių funkcijų, tai nereiškia, kad ji yra visiškai nepriekaištinga. Jis vis tiek gali būti sugadintas dėl įvairių veiksnių, pvz., elektroniniu paštu plintančių virusų, netinkamo žmogaus elgesio ir pan. Todėl, be įprastų PST duomenų atsarginių kopijų kūrimo, geriau šalia paruoškite galingą išorinį PST taisymo įrankį, pvz. DataNumen Outlook Repair. Tai gali remontas PST problemų per trumpą laiką.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf taisymas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com