Så här ställer du in standardstart- och sluttid för heldagshändelser baserat på dina arbetstider i Outlook

Som standard får du inte ändra start- och sluttid för heldagshändelser enligt dina önskemål i Outlook. Nu visar den här artikeln hur du ställer in standardstart- och sluttid för heldagshändelser baserat på dina arbetstider.

Som du kan se, när du aktiverar alternativet "Heldagshändelse" i ett möte, kommer både fälten "Starttid" och "Sluttid" att vara gråmarkerade. I det här scenariot betyder det att du inte har tillåtelse att ändra dem efter eget tycke. Därför kommer vi i det följande att dela en metod för att ställa in standardstart- och sluttid för heldagshändelser baserat på dina arbetstider i din Outlook.

Ställ in standardstart- och sluttid för heldagshändelser enligt arbetstid

1. Till att börja med, starta ditt Outlook-program.
2. När du kommer in i huvudskärmen i Outlook kan du trycka på tangenterna ”Alt + F11”.
3. Därefter får du tillgång till Outlook VBA-redigeringsfönstret.
4. I det aktuella "Microsoft Visual Basic for Applications" -fönstret måste du öppna projektfönstret "ThisOutlookSession".
5. Kopiera sedan följande VBA-kod till detta 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. Därefter måste du underteckna den här koden. Klicka på "Verktyg"> "Signatur".
7. I den efterföljande dialogrutan följer du instruktionerna på skärmen för att tilldela ett digitalt certifikat till det nya VBA-projektet.
8. Senare bör du ändra dina makroinställningar i Outlook så att digitalt signerade makron tillåts.
9. Så småningom kan du starta om Outlook-programmet för att aktivera det här makrot.
10. Från och med nu, varje gång du aktiverar alternativet "Heldagsevenemang" i ett Outlook-möte, kommer mötets start- och sluttid att ändras till dina arbetstider, som i följande skärmdump:

Hämta värdefulla data från komprometterad Outlook-fil

Även om Outlook har flera olika funktioner betyder det inte att det är helt felfritt. Det kan fortfarande bli skadat på grund av olika faktorer, som e-postburna virus, mänsklig felaktig hantering och så vidare. Därför, förutom att göra vanliga säkerhetskopior av PST-data, skulle du bättre förbereda ett kraftfullt externt PST-fixverktyg i närheten, till exempel DataNumen Outlook Repair. Det kan reparera PST problem på kort tid.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive MDF-fix och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com