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 une 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 emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
