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ères nouvelles : Kutools pour Outlook lance une version gratuite !
Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !
📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...
📁 Pièces jointes Pro : Enregistrement par lot / Détachement par lot / Compression par lot / Enregistrement automatique / Détachement automatique / Compression automatique...
🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...
👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier : Ajouter des contacts par lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d'anniversaire...
