Come impostare l'ora di inizio e di fine predefinita degli eventi che durano tutto il giorno in base al proprio orario di lavoro in Outlook

Di default, in Outlook non è possibile modificare l'ora di inizio e di fine degli eventi che durano tutto il giorno. Questo articolo vi mostrerà come impostare l'ora di inizio e di fine predefinita per gli eventi di un'intera giornata in base al vostro orario di lavoro.

Come puoi vedere, quando abiliti l'opzione "Evento di un'intera giornata" in un appuntamento, i campi "Ora di inizio" e "Ora di fine" saranno disattivati. In questo caso, significa che non ti è consentito modificarli a tuo piacimento. Pertanto, di seguito ti mostreremo un metodo per impostare l'ora di inizio e di fine predefinite per gli eventi di un'intera giornata in base al tuo orario di lavoro in Outlook.

Imposta l'orario di inizio e fine predefinito per gli eventi che durano tutto il giorno in base all'orario di lavoro.

1. Per iniziare, avvia il programma Outlook.
2. Dopo essere entrato nella schermata principale di Outlook, puoi premere i pulsanti "Alt + F11".
3. Successivamente, avrai accesso alla finestra dell'editor VBA di Outlook.
4. Nell'attuale finestra "Microsoft Visual Basic for Applications", è necessario aprire la finestra del progetto "ThisOutlookSession".
5. Quindi copia il seguente codice VBA in questo progetto.

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. Successivamente, devi firmare questo codice. Fare clic su "Strumenti" > "Firma".
7. Nella successiva finestra di dialogo, seguire le istruzioni sullo schermo per assegnare un certificato digitale al nuovo progetto VBA.
8. Successivamente è necessario modificare le impostazioni delle macro di Outlook per consentire le macro firmate digitalmente.
9. Infine, puoi riavviare l'applicazione Outlook per attivare questa macro.
10. D'ora in poi, ogni volta che si abilita l'opzione "Evento di un'intera giornata" in un appuntamento di Outlook, l'ora di inizio e di fine dell'appuntamento verranno modificate in base al proprio orario di lavoro, come mostrato nella seguente schermata:

Recupera dati preziosi dal file di Outlook compromesso

Sebbene Outlook vanti molteplici funzionalità diverse, ciò non significa che sia completamente impeccabile. Può ancora essere danneggiato a causa di vari fattori, come virus trasmessi tramite e-mail, manipolazione impropria da parte dell'uomo e così via. Pertanto, oltre a eseguire regolarmente backup dei dati PST, è meglio preparare un potente strumento di correzione PST esterno nelle vicinanze, come DataNumen Outlook Repair. Si può riparare PST problemi in un breve lasso di tempo.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correzione del mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com