Comment empêcher Outlook de rappeler trop tôt ou trop tard?

Par exemple, vous travaillez de 9h00 à 6h00 tous les jours, mais maintenant vous prenez rendez-vous à 10h00 et ajoutez un rappel de 2 heures pour cela dans Outlook. Cela signifie que le rappel fonctionnera à 8h00 avant le début de votre travail. En revanche, le rappel peut retentir à minuit dans des cas particuliers. C'est assez gênant, et certains utilisateurs d'Outlook peuvent vouloir empêcher Outlook de rappeler trop tôt ou trop tard. Ici, je vais présenter une macro VBA pour que vous puissiez le résoudre dans Outlook.

Onglet Office - Activez l'édition et la navigation par onglets dans Microsoft Office, ce qui facilite le travail

Lire la suite...Télécharger ...

Kutools for Outlook - Boostez Outlook avec plus de 100 fonctionnalités avancées pour une efficacité supérieure

Automatisez l'envoi d'e-mails avec CC / BCC automatique, Transfert automatique par des règles ; envoyer Réponse automatique (Out of Office) sans nécessiter de serveur Exchange...
Recevez des rappels comme Avertissement BCC lorsque vous répondez à tous alors que vous êtes dans la liste BCC, et Rappeler en cas de pièces jointes manquantes pour les pièces jointes oubliées...
Améliorez l'efficacité de la messagerie avec Répondre (à tous) avec pièces jointes, Ajouter automatiquement un message d'accueil ou une date et une heure dans la signature ou l'objet, Répondre à plusieurs e-mails
Rationalisez l'envoi d'e-mails avec Rappel des e-mails, Outils de fixation (Tout compresser, Tout enregistrer automatiquement...), Supprimer les doublonset Rapport rapide

Boostez votre Outlook 2021 - 2010 ou Outlook 365 avec ces fonctionnalités avancées. Profitez d'un essai gratuit complet de 60 jours et améliorez votre expérience de messagerie !

Lire la suite...Télécharger ...

Pour empêcher Outlook de rappeler trop tôt ou trop tard, vous pouvez procéder comme suit:

Étape 1: appuyez sur le autre + F11 entre-temps pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

Étape 2: Développez le Objets Microsoft Outlook dans le volet gauche et collez la macro VBA suivante dans le Cette session Outlook.

VBA: empêcher les rappels trop tôt ou trop tard dans 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

Notes: Vous pouvez spécifier votre période de travail en modifiant les paramètres suivants dans le code VBA ci-dessus:
rappelMaxHour = 20
rappelMinHour = 9

Étape 3: Enregistrez ce VBA et redémarrez votre Microsoft Outlook.

À partir de maintenant, lors de la création d'un rendez-vous avec un délai de rappel en dehors de la période de travail, une boîte de dialogue apparaîtra pour vous rappeler après avoir cliqué sur le bouton Sauvegarder et fermer .

Si l'heure de rappel est antérieure à l'heure de rappel spécifiée, cliquez sur le bouton Oui dans la boîte de dialogue, il modifiera l'heure du rappel et fera retentir le rappel au rappel spécifiéMinHour.

Si l'heure de rappel est postérieure à l'heure de rappel spécifiée, cliquez sur le bouton Oui dans la boîte de dialogue, cela changera l'heure du rappel et vous rappellera à la date de rappel spécifiéeMaxHour.

Remarque: Ce code VBA fonctionne bien avec Outlook 2013, mais ne fonctionne pas avec Outlook 2010 et 2007.