Sådan indstiller du standard start- og sluttidspunkt for heldagsbegivenheder baseret på dine arbejdstimer i Outlook

Som standard er det ikke tilladt at ændre start- og sluttidspunktet for heldagsbegivenheder i Outlook efter dine ønsker. Denne artikel viser dig, hvordan du indstiller standardstart- og sluttidspunktet for heldagsbegivenheder i henhold til dine arbejdstider.

Som du kan se, vil både felterne "Starttidspunkt" og "Sluttidspunkt" være nedtonet, når du aktiverer indstillingen "Heldagsbegivenhed" i en aftale. I dette scenarie betyder det, at du ikke har tilladelse til at ændre dem efter eget valg. Derfor vil vi i det følgende dele en metode til at indstille standard start- og sluttidspunktet for heldagsbegivenheder baseret på dine arbejdstimer i din Outlook.

Indstil standard start- og sluttidspunkt for heldagsbegivenheder i henhold til arbejdstiden

1. Til at begynde med skal du starte dit Outlook-program.
2. Når du kommer ind i hovedskærmen i Outlook, kan du trykke på “Alt + F11” -tasten.
3. Derefter får du adgang til vinduet Outlook VBA-editor.
4. I det aktuelle vindue "Microsoft Visual Basic for Applications" skal du åbne projektvinduet "ThisOutlookSession".
5. Kopier derefter følgende VBA-kode til dette 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. Derefter skal du underskrive denne kode. Klik på "Værktøjer"> "Underskrift".
7. I den efterfølgende dialogboks skal du følge instruktionerne på skærmen for at tildele et digitalt certifikat til det nye VBA-projekt.
8. Senere skal du ændre dine Outlook-makroindstillinger for at tillade digitalt signerede makroer.
9. Til sidst kan du genstarte dit Outlook-program for at aktivere denne makro.
10. Fra nu af vil aftalens start- og sluttidspunkt blive ændret til dine arbejdstider, hver gang du aktiverer indstillingen "Heldagsbegivenhed" i en Outlook-aftale, som vist på følgende skærmbillede:

Hent dyrebare data fra kompromitteret Outlook-fil

Selvom Outlook kan prale af flere forskellige funktioner, betyder det ikke, at det er fuldstændigt fejlfrit. Det kan stadig blive ødelagt på grund af forskellige faktorer, som e-mail-bærede vira, menneskelig forkert håndtering og så videre. Derfor, bortset fra at lave regelmæssige PST-sikkerhedskopier, skal du hellere forberede et kraftfuldt eksternt PST-fixværktøj i nærheden, såsom DataNumen Outlook Repair. Det kan reparation PST problemer på kort tid.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf-rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com