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

Podrazumevano, nije vam dozvoljeno da mijenjate vrijeme početka i završetka cjelodnevnih događaja prema vašim željama u Outlooku. Sada će vam ovaj članak pokazati kako da postavite zadano vrijeme početka i završetka cjelodnevnih događaja prema vašem radnom vremenu.

Kao što vidite, kada omogućite opciju „Cjelodnevni događaj“ u sastanku, i polja „Vrijeme početka“ i „Vrijeme završetka“ bit će siva. U ovom scenariju, to znači da vam nije dozvoljeno da ih mijenjate 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 osnovu vašeg radnog vremena u vašem 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 Outlook ekran, možete pritisnuti tipke “Alt + F11”.
3. Nakon toga, dobićete pristup prozoru Outlook VBA editora.
4. U trenutnom prozoru „Microsoft Visual Basic za aplikacije“, potrebno je da otvorite prozor projekta „ThisOutlookSession“.
5. Zatim kopirajte sljedeći VBA kod u ovaj projekat.

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 na “Alati” > “Potpis”.
7. U narednom dijaloškom okviru pratite uputstva na ekranu da dodelite digitalni sertifikat novom VBA projektu.
8. Kasnije biste trebali promijeniti postavke makroa u Outlooku kako biste dozvolili digitalno potpisane makroe.
9. Na kraju možete ponovo pokrenuti Outlook aplikaciju da biste aktivirali ovaj makro.
10. Od sada, svaki put kada omogućite opciju „Cjelodnevni događaj“ u Outlook sastanku, vrijeme početka i završetka sastanka će se promijeniti u vaše radno vrijeme, kao na sljedećem snimku ekrana:

Preuzmi dragocjene podatke iz kompromitirane Outlook datoteke

Iako se Outlook može pohvaliti s više različitih funkcija, to ne znači da je potpuno besprijekoran. I dalje se može oštetiti zbog različitih faktora, kao što su virusi koji se prenose putem e-pošte, ljudsko nepravilno rukovanje i tako dalje. Stoga, osim što pravite redovne sigurnosne kopije PST podataka, bolje je pripremiti moćan vanjski alat za popravak PST-a u blizini, kao što je DataNumen Outlook Repair. Može popraviti PST pitanja u kratkom vremenskom periodu.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com