Kako postaviti zadano vrijeme početka i završetka cjelodnevnih događaja na temelju vašeg radnog vremena u Outlooku

Prema zadanim postavkama, nije vam dopušteno mijenjati vrijeme početka i završetka cjelodnevnih događaja prema vašim željama u Outlooku. Sada će vam ovaj članak pokazati kako postaviti zadano vrijeme početka i završetka cjelodnevnih događaja prema vašem radnom vremenu.

Kao što vidite, kada u sastanku omogućite opciju "Cjelodnevni događaj", polja "Vrijeme početka" i "Vrijeme završetka" bit će siva. U ovom scenariju to znači da ih ne možete mijenjati po svojoj želji. Stoga ćemo u nastavku podijeliti s vama metodu za postavljanje zadanog vremena početka i završetka svih dnevnih događaja na temelju vašeg radnog vremena u Outlooku.

Postavite zadano vrijeme početka i završetka cjelodnevnih događaja prema radnom vremenu

1. Za početak, pokrenite Outlook program.
2. Nakon što uđete u glavni zaslon programa Outlook, možete pritisnuti tipke "Alt + F11".
3. Nakon toga ćete dobiti pristup Outlook VBA prozoru uređivača.
4. U trenutnom prozoru “Microsoft Visual Basic for Applications” trebate otvoriti prozor projekta “ThisOutlookSession”.
5. Zatim kopirajte sljedeći VBA kod u ovaj 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. Nakon toga morate potpisati ovaj kod. Kliknite "Alati" > "Potpis".
7. U sljedećem dijaloškom okviru slijedite upute na zaslonu za dodjelu digitalnog certifikata novom VBA projektu.
8. Kasnije biste trebali promijeniti postavke Outlook makronaredbi kako biste omogućili digitalno potpisane makronaredbe.
9. Na kraju možete ponovno pokrenuti Outlook aplikaciju da biste aktivirali ovaj makro.
10. Od sada će se svaki put kada u Outlook sastanku omogućite opciju "Cjelodnevni događaj", vrijeme početka i završetka sastanka promijeniti u vaše radno vrijeme, kao na sljedećoj snimci zaslona:

Dohvatite dragocjene podatke iz kompromitirane Outlook datoteke

Iako se Outlook može pohvaliti s više različitih značajki, to ne znači da je potpuno besprijekoran. Još uvijek se može oštetiti zbog različitih čimbenika, poput virusa koji se prenose e-poštom, nepravilnog rukovanja od strane ljudi i tako dalje. Stoga, osim redovitih sigurnosnih kopija PST podataka, bolje pripremite snažan vanjski alat za popravak PST-a u blizini, kao što je DataNumen Outlook Repair. To može popraviti PST pitanja u kratkom vremenskom razdoblju.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com