Kā iestatīt noklusējuma sākuma un beigu laiku visas dienas pasākumiem, pamatojoties uz jūsu darba laiku programmā Outlook

Pēc noklusējuma programmā Outlook nav atļauts mainīt visas dienas pasākumu sākuma un beigu laiku atbilstoši savām vēlmēm. Tagad šajā rakstā parādīsim, kā iestatīt visas dienas pasākumu noklusējuma sākuma un beigu laiku atbilstoši jūsu darba laikam.

Kā redzat, ja tikšanās ierakstā iespējojat opciju “Visas dienas pasākums”, gan lauki “Sākuma laiks”, gan “Beigu laiks” būs pelēkoti. Šādā gadījumā tas nozīmē, ka jūs nevarat tos mainīt pēc savas patikas. Tāpēc turpmāk mēs jums pastāstīsim par metodi, kā iestatīt noklusējuma sākuma un beigu laiku visas dienas pasākumiem, pamatojoties uz jūsu darba laiku programmā Outlook.

Iestatiet visas dienas pasākumu noklusējuma sākuma un beigu laiku atbilstoši darba laikam

1. Lai sāktu, palaidiet savu Outlook programmu.
2. Kad esat nonācis galvenajā Outlook ekrānā, varat nospiest taustiņu “Alt + F11” taustiņus.
3. Pēc tam jūs saņemsiet piekļuvi Outlook VBA redaktora logam.
4. Pašreizējā logā “Microsoft Visual Basic for Applications” ir jāatver projekta logs “ThisOutlookSession”.
5. Pēc tam kopējiet šo VBA kodu šajā 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. Pēc tam jums jāparaksta šis kods. Noklikšķiniet uz Rīki> Paraksts.
7. Nākamajā dialoglodziņā izpildiet ekrānā redzamos norādījumus, lai piešķirtu digitālo sertifikātu jaunajam VBA projektam.
8. Vēlāk jums jāmaina Outlook makro iestatījumi, lai atļautu digitāli parakstītus makro.
9. Galu galā varat restartēt Outlook lietojumprogrammu, lai aktivizētu šo makro.
10. Turpmāk katru reizi, kad Outlook tikšanās ierakstā iespējojat opciju “Visas dienas pasākums”, tikšanās sākuma un beigu laiks tiks mainīts uz jūsu darba laiku, kā parādīts tālāk redzamajā ekrānuzņēmumā:

Iegūstiet vērtīgos datus no apdraudētā Outlook faila

Lai gan programma Outlook lepojas ar vairākām dažādām funkcijām, tas nenozīmē, ka tā ir pilnīgi nevainojama. Tas joprojām var tikt bojāts dažādu faktoru dēļ, piemēram, ar e-pastu pārnēsātu vīrusu, nepareizas cilvēku apstrādes dēļ un tā tālāk. Tāpēc, izņemot regulāru PST datu dublēšanu, labāk tuvumā sagatavot jaudīgu ārēju PST labošanas rīku, piemēram, DataNumen Outlook Repair. Tā var remonts PST jautājumiem īsā laika posmā.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar