Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

Come impedire a Outlook di ricordare troppo presto o troppo tardi?

Ad esempio, lavori dalle 9:00 alle 6:00 tutti i giorni, ma ora stai fissando un appuntamento alle 10:00 e aggiungi un promemoria di 2 ore per esso in Outlook. Ciò significa che il promemoria funzionerà alle 8:00 prima dell'inizio del lavoro. D'altra parte, il promemoria può suonare a mezzanotte in casi speciali. Questo è abbastanza scomodo e alcuni utenti di Outlook potrebbero voler impedire a Outlook di ricordare troppo presto o troppo tardi. Qui introdurrò una macro VBA per risolverla in Outlook.

Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzionalità avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 60 giorni.

Per evitare che Outlook ricordi troppo presto o troppo tardi, puoi fare come segue:

Passo 1: premere il tasto altro + F11 tasti nel frattempo per aprire la finestra di Microsoft Visual Basic, Applications Edition.

Passaggio 2: espandere il file Oggetti di Microsoft Outlook nel riquadro di sinistra e incolla la seguente macro VBA nel file Questa sessione di Outlook.

VBA: impedisce il promemoria troppo presto o troppo tardi in Outlook

Public WithEvents g_CalendarItems As Outlook.Items
Public Sub Application_Startup()
Set g_CalendarItems = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub g_CalendarItems_ItemAdd(ByVal Item As Object)
CheckReminder Item
End Sub
Private Sub g_CalendarItems_ItemChange(ByVal Item As Object)
CheckReminder Item
End Sub
Sub CheckReminder(ByVal Item As Object)
On Error GoTo ProcError
Dim strProcName As String
strProcName = "CheckReminder"
reminderMaxHour = 20
reminderMinHour = 9
Dim aAptItem As Outlook.AppointmentItem
Set aAptItem = Item
If aAptItem.ReminderSet Then
Dim reminderDate As Date
reminderDate = aAptItem.Start - aAptItem.ReminderMinutesBeforeStart / (24 * 60)
reminderHour = (reminderDate - Int(reminderDate)) * 24
tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)
If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
' best guess, first try to advance to next minHour
reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
' verify if first guess is valid
If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= aAptItem.Start Then
' OK, first guess is valid, keep it
ElseIf reminderHour > reminderMaxHour Then
' go back to max hour (same day)
reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
Else
' go back to max hour (previous day)
reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
End If
rep = MsgBox("The Reminder time is out of specified working period. Would you like to change the Reminder time?" , vbQuestion + vbYesNoCancel)
If rep = vbCancel Then
aAptItem.Display
ElseIf rep = vbYes Then
aAptItem.ReminderMinutesBeforeStart = (aAptItem.Start - reminderDateSuggestion) * 24 * 60
aAptItem.Save
End If
End If
End If
ProcExit:
Exit Sub
ProcError:
MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
End Sub

 

Note:: È possibile specificare il periodo di lavoro modificando i seguenti parametri nel codice VBA sopra:
promemoriaMaxHour = 20
promemoriaMinOra = 9

Passaggio 3: salva questo VBA e riavvia Microsoft Outlook.

D'ora in poi, quando crei un appuntamento con un tempo di promemoria al di fuori di te specificando il periodo di lavoro, verrà visualizzata una finestra di dialogo per ricordarti dopo aver fatto clic Salva e chiudi pulsante.

Se l'ora del promemoria è precedente al promemoria specificatoMinHour, fare clic su nella finestra di dialogo, cambierà l'ora del promemoria e farà suonare il promemoria al promemoria specificato.

Se l'ora del promemoria è successiva a reminderMaxHour specificato, fare clic su nella finestra di dialogo, cambierà l'ora del promemoria e te lo ricorderà al promemoria specificato.

Nota: Questo codice VBA funziona bene con Outlook 2013, ma non funziona con Outlook 2010 e 2007.


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.