Comment transférer automatiquement les invitations de réunion à une personne spécifique dans Outlook ?
Dans Outlook, vous pouvez transférer manuellement une invitation de réunion à une personne spécifique en utilisant la fonctionnalité de transfert. Cependant, parfois, vous pourriez avoir besoin de transférer automatiquement les invitations de réunion à une personne spécifique lorsque vous acceptez la réunion. Dans cet article, je vais vous expliquer comment transférer automatiquement une invitation de réunion à une personne aussi rapidement que possible.
Transférer automatiquement les invitations de réunion à une personne spécifique dans Outlook avec un code VBA
Voici un code VBA utile qui peut vous aider à transférer automatiquement l'invitation de réunion à une personne spécifique après l'avoir acceptée, veuillez suivre ces étapes :
1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Dans la fenêtre Microsoft Visual Basic for 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 : Transfert automatique des invitations de réunion à une personne spécifique :
Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
Set xMeetingItem = Item
Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
xMeetingResponse.Send
Set xForwardMeeting = xMeetingItem.Forward
With xForwardMeeting
With .Recipients
.Add "skyyang@addin88.com" 'change address to your own
.ResolveAll
End With
.Send
End With
End If
End Sub
Remarque : Dans le code ci-dessus, vous devez changer l'adresse du destinataire par la vôtre.
3. Ensuite, enregistrez le code et redémarrez Outlook pour que le code prenne effet.
4. Maintenant, lorsque vous recevez une invitation de réunion, celle-ci sera acceptée automatiquement, et en même temps, cette réunion sera immédiatement transférée automatiquement à votre personne spécifique.
Remarque : Ce code n'est disponible que pour le compte par défaut.
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 !
