Cum se setează ora implicită de început și de sfârșit pentru evenimentele care durează întreaga zi, în funcție de orele de lucru din Outlook

În mod implicit, nu aveți voie să modificați ora de început și de sfârșit a evenimentelor care durează toată ziua, conform dorințelor dvs. în Outlook. Acum, acest articol vă va arăta cum să setați ora implicită de început și de sfârșit a evenimentelor care durează toată ziua, în funcție de programul dvs. de lucru.

După cum puteți vedea, atunci când activați opțiunea „Eveniment de toată ziua” într-o întâlnire, ambele câmpuri, „Ora de început”, și „Ora de sfârșit”, vor fi inactive. În acest scenariu, înseamnă că nu aveți permisiunea de a le modifica după preferințe. Prin urmare, în cele ce urmează, vă vom împărtăși o metodă de a seta ora implicită de început și de sfârșit pentru evenimentele de toată ziua, în funcție de orele dvs. de lucru din Outlook.

Setați ora implicită de început și de sfârșit pentru evenimentele care durează toată ziua în funcție de programul de lucru

1. Pentru început, lansați programul Outlook.
2. După ce intrați în ecranul principal Outlook, puteți apăsa butoanele tastei „Alt + F11”.
3. Ulterior, veți avea acces la fereastra editorului Outlook VBA.
4. În fereastra actuală „Microsoft Visual Basic for Applications”, trebuie să deschideți fereastra proiectului „ThisOutlookSession”.
5. Apoi copiați următorul cod VBA în acest proiect.

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. După aceea, trebuie să semnați acest cod. Faceți clic pe „Instrumente” > „Semnătură”.
7. În caseta de dialog ulterioară, urmați instrucțiunile de pe ecran pentru a atribui un certificat digital noului proiect VBA.
8. Mai târziu, ar trebui să modificați setările macrocomenzilor Outlook pentru a permite macrocomenzile semnate digital.
9. În cele din urmă, puteți reporni aplicația Outlook pentru a activa această macrocomandă.
10. De acum înainte, de fiecare dată când activați opțiunea „Eveniment toată ziua” într-o programare Outlook, ora de început și de sfârșit a programării se va schimba în orele dvs. de lucru, ca în următoarea captură de ecran:

Preluați date prețioase din fișierul Outlook compromis

Deși Outlook se mândrește cu mai multe funcții diverse, aceasta nu înseamnă că este complet impecabil. Încă poate fi corupt din cauza diferiților factori, cum ar fi virușii transmisi prin e-mail, manipularea necorespunzătoare a oamenilor și așa mai departe. Prin urmare, pe lângă realizarea obișnuite de copii de siguranță a datelor PST, ar fi mai bine să pregătiți un instrument extern puternic de remediere PST în apropiere, cum ar fi DataNumen Outlook Repair. Poate repara PST probleme într-un interval scurt de timp.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com