Slik angir du standard start- og sluttid for heldagshendelser basert på arbeidstiden din i Outlook

Som standard har du ikke lov til å endre start- og sluttidspunktet for heldagsarrangementer slik du ønsker i Outlook. Denne artikkelen viser deg hvordan du angir standard start- og sluttidspunkt for heldagsarrangementer i henhold til arbeidstiden din.

Som du kan se, når du aktiverer alternativet «Heldagshendelse» i en avtale, vil både feltene «Starttid» og «Sluttid» være nedtonet. I dette scenariet betyr det at du ikke har tillatelse til å endre dem slik du ønsker. Derfor vil vi i det følgende dele en metode for å angi standard start- og sluttid for heldagshendelser basert på arbeidstiden din i Outlook.

Angi standard start- og sluttid for heldagsarrangementer i henhold til arbeidstiden

1. For å begynne, start Outlook-programmet ditt.
2. Etter at du har kommet inn i hovedskjermbildet i Outlook, kan du trykke på "Alt + F11"-tastene.
3. Deretter vil du få tilgang til Outlook VBA-redigeringsvinduet.
4. I det gjeldende "Microsoft Visual Basic for Applications"-vinduet må du åpne prosjektvinduet "ThisOutlookSession".
5. Kopier deretter følgende VBA-kode inn i dette prosjektet.

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. Etter det må du signere denne koden. Klikk "Verktøy"> "Signatur".
7. I den påfølgende dialogboksen følger du instruksjonene på skjermen for å tilordne et digitalt sertifikat til det nye VBA-prosjektet.
8. Senere bør du endre Outlook-makroinnstillingene for å tillate digitalt signerte makroer.
9. Til slutt kan du starte Outlook-programmet på nytt for å aktivere denne makroen.
10. Fra nå av, hver gang du aktiverer alternativet «Heldagsarrangement» i en Outlook-avtale, vil avtalens start- og sluttid endres til arbeidstiden din, som i følgende skjermbilde:

Hent dyrebare data fra kompromittert Outlook-fil

Selv om Outlook kan skryte av flere forskjellige funksjoner, betyr det ikke at det er helt feilfritt. Det kan fortsatt bli ødelagt på grunn av ulike faktorer, som e-postbårne virus, menneskelig feil håndtering og så videre. Derfor, bortsett fra å ta regelmessige sikkerhetskopier av PST-data, bør du forberede et kraftig eksternt PST-fixverktøy i nærheten, som f.eks. DataNumen Outlook Repair. Det kan reparere PST problemer på kort tid.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf-fiks og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med