Az egész napos események alapértelmezett kezdési és befejezési idejének beállítása a munkaidő alapján az Outlookban

Alapértelmezés szerint nem módosíthatja az egész napos események kezdési és befejezési időpontját az Outlookban. Ez a cikk most bemutatja, hogyan állíthatja be az egész napos események alapértelmezett kezdési és befejezési időpontját a munkaidejének megfelelően.

Amint láthatja, amikor engedélyezi az „Egész napos esemény” opciót egy találkozóban, mind a „Kezdés időpontja”, mind a „Befejezés időpontja” mező szürkén jelenik meg. Ebben az esetben ez azt jelenti, hogy nem módosíthatja őket tetszés szerint. Ezért a következőkben megosztunk egy módszert, amellyel beállíthatja az egész napos események alapértelmezett kezdési és befejezési időpontját a munkaideje alapján az Outlookban.

Az egész napos események alapértelmezett kezdési és befejezési idejének beállítása a munkaidő szerint

1. Kezdésként indítsa el az Outlook programot.
2. Miután belépett az Outlook főképernyőjére, megnyomhatja az „Alt + F11” billentyűket.
3. Ezt követően hozzáférést kap az Outlook VBA szerkesztő ablakához.
4. A jelenlegi „Microsoft Visual Basic for Applications” ablakban meg kell nyitnia a „ThisOutlookSession” projekt ablakot.
5. Ezután másolja be a következő VBA-kódot ebbe a projektbe.

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. Ezt követően alá kell írnia ezt a kódot. Kattintson az „Eszközök” > „Aláírás” elemre.
7. A következő párbeszédpanelen kövesse a képernyőn megjelenő utasításokat digitális tanúsítvány hozzárendeléséhez az új VBA-projekthez.
8. Később módosítania kell az Outlook makró beállításait, hogy engedélyezze a digitálisan aláírt makrókat.
9. Végül újraindíthatja az Outlook alkalmazást a makró aktiválásához.
10. Mostantól minden alkalommal, amikor engedélyezi az „Egész napos esemény” opciót egy Outlook-találkozóban, a találkozó kezdési és befejezési időpontja a munkaidejére módosul, ahogy az alábbi képernyőképen is látható:

Értékes adatok lekérése a veszélyeztetett Outlook-fájlból

Bár az Outlook számos különféle funkcióval büszkélkedhet, ez nem jelenti azt, hogy teljesen hibátlan. Még mindig megsérülhet különféle tényezők miatt, mint például az e-mailben terjedő vírusok, az emberi helytelen kezelés és így tovább. Ezért a rendszeres PST adatok biztonsági mentése mellett jobb, ha a közelben készít egy hatékony külső PST-javító eszközt, mint pl. DataNumen Outlook Repair. Az tud javítás PST problémák rövid időn belül.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com