Comment retarder l'envoi d'une invitation de réunion dans Outlook ?
Normalement, vous pouvez utiliser la fonction Retarder l'envoi pour envoyer un message à un moment précis plutôt qu'immédiatement. Cependant, parfois, vous souhaitez retarder l'envoi d'une invitation de réunion comme un e-mail. Comment pourriez-vous envoyer une invitation de réunion au moment souhaité dans Outlook ?
Retarder l'envoi d'une invitation de réunion dans Outlook avec du code VBA
Retarder l'envoi d'une invitation de réunion dans Outlook avec du code VBA
Il se peut qu'il n'y ait pas de méthode directe pour retarder une invitation de réunion dans Outlook, mais le code VBA ci-dessous peut vous aider, veuillez suivre ces étapes :
1. Tout d'abord, vous devez créer une nouvelle tâche. Dans la fenêtre Nouvelle Tâche :
(1.) Spécifiez le sujet, la date de début et la date de fin de la réunion ;
(2.) Définissez une date et une heure de rappel lorsque vous souhaitez envoyer l'invitation de réunion ;
(3.) Tapez le message de la réunion selon vos besoins.
2. Après avoir créé la tâche, cliquez sur l'option Sauvegarder et fermer pour fermer cette fenêtre.
3. Ensuite, maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
4. Dans la fenêtre Microsoft Visual Basic pour Applications, double-cliquez sur ThisOutlookSession dans le volet Project1(VbaProject.OTM) pour ouvrir le module, puis copiez et collez le code suivant dans le module vide.
Code VBA : Retarder l'envoi d'une invitation de réunion :
Private Sub Application_Reminder(ByVal Item As Object)
Dim xTaskItem As TaskItem
Dim xAppointmentItem As AppointmentItem
Dim xRcpArr() As String
If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
Exit Sub
End If
Set xTaskItem = Item
xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
With xAppointmentItem
.MeetingStatus = olMeeting
For i = 0 To UBound(xRcpArr)
.Recipients.Add (xRcpArr(i))
Next
.Subject = xTaskItem.Subject
.Location = "Office room 1002"
.Start = xTaskItem.StartDate + #2:00:00 PM#
.Body = xTaskItem.Body
.Duration = 120
.ReminderSet = True
.ReminderMinutesBeforeStart = 20
.Save
.Send
End With
xTaskItem.MarkComplete
Set xTaskItem = Nothing
End Sub
Remarque : Dans le code ci-dessus : Meeting test est le sujet que vous avez créé pour la réunion à l'étape 1 ; et vous devez modifier les informations des adresses des destinataires, l'emplacement de la réunion, l'heure de début et la durée de la réunion avec vos propres données.
5. Sauvegardez et fermez le code, puis redémarrez Outlook pour que ce code prenne effet.
6. Désormais, lorsque le rappel de la tâche apparaît à l'heure définie, Outlook enverra automatiquement l'invitation de réunion.
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance sa version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des E-mails : Réponse automatique (disponible pour POP et IMAP) / Programmer l’envoi d’un e-mail / CC/BCC automatique par règle lors de l’envoi / Transfert automatique (règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les e-mails multi-destinataires en messages individuels ...
📨 Gestion des E-mails : Rappeler lemail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les doublons / Recherche Avancée / Organiser les dossiers ...
📁 Pièces jointes Pro : Enregistrement en lot / Détachement en lot / Compression en lot / Enregistrer automatiquement / Détachement automatique / Compression automatique ...
🌟 Interface magique : 😊Plus d’emojis élégants et amusants / Vous rappelle lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer ...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / E-mails anti-phishing / 🕘Afficher le fuseau horaire de l’expéditeur ...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter en lot des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire ...
Utilisez Kutools dans votre langue préférée – prend en charge l’Anglais, l’Espagnol, l’Allemand, le Français, le Chinois et plus de40 autres !
🚀 Téléchargement en un clic — Obtenez tous les compléments Office
Recommandé vivement : Kutools pour Office (5-en-1)
Un clic pour télécharger cinq installateurs en une seule fois — Kutools pour Excel, Outlook, Word, PowerPoint et Office Tab Pro. Cliquez pour télécharger dès maintenant !
- ✅ Praticité en un clic : téléchargez les cinq packages d’installation en une seule action.
- 🚀 Prêt pour toutes les tâches Office : installez les compléments dont vous avez besoin, quand vous en avez besoin.
- 🧰 Inclus : Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools pour PowerPoint