Comment attribuer automatiquement une catégorie de couleur aux réunions après les avoir acceptées dans Outlook?
Dans votre travail quotidien, vous pouvez recevoir plusieurs e-mails de réunion dans Outlook. Parfois, vous souhaitez attribuer automatiquement une catégorie de couleur spécifique aux réunions lorsqu'elles sont acceptées. Normalement, vous pouvez les attribuer manuellement, mais il sera difficile de les définir un par un. Dans cet article, je vais expliquer comment l'accomplir automatiquement dans Outlook.
Attribuer automatiquement la catégorie de couleur aux réunions après les avoir acceptées avec le code VBA
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.
Code VBA: attribuer automatiquement une catégorie de couleur aux réunions après les avoir acceptées
Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
Set SentItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xMeetingItemAccepted As Outlook.MeetingItem
Dim xAppointmentItem As Outlook.AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
Set xMeetingItem = Item
If InStr(xMeetingItem.Subject, "Accepted:") = 1 Then
Set xMeetingItemAccepted = xMeetingItem
Set xAppointmentItem = xMeetingItemAccepted.GetAssociatedAppointment(True)
With xAppointmentItem
.Categories = .Categories & "Red Category"
.Save
End With
End If
End If
End Sub
Notes: Dans le code ci-dessus, vous pouvez modifier Catégorie rouge au nom de la catégorie de couleur souhaitée.
3. Et puis, redémarrez votre Outlook pour déclencher cette macro.
4. Ensuite, après avoir accepté l'e-mail de la réunion, cliquez sur Envoyez la réponse maintenant option, la catégorie de couleur spécifique sera attribuée à la réunion acceptée à la fois. Voir la capture d'écran:
Notes: Ce code n'est appliqué qu'au compte de données par défaut.
Meilleurs outils de productivité bureautique
Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!
Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!
📧 Email Automation: Réponse automatique (disponible pour POP et IMAP) / Programmer l'envoi d'e-mails / Auto CC/BCC par règles lors de l'envoi d'un e-mail / Transfert automatique (règles avancées) / Ajouter un message d'accueil automatique / Divisez automatiquement les e-mails multi-destinataires en messages individuels
(I.e. Email Management: Rappel des e-mails / Bloquer les e-mails frauduleux par sujets et autres / Supprimer les e-mails en double / Recherche Avancée / Consolider les dossiers
(I.e. Pièces jointes Pro: Sauvegarde par lots / Détachement par lots / Compression par lots / Enregistrement automatique / Détachement automatique / Compression automatique
???? Magie de l'interface: 😊Plus d'émojis jolis et cool / Vous rappeler lorsque des e-mails importants arrivent / Réduire Outlook au lieu de fermer
???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes / E-mails anti-hameçonnage / 🕘Afficher le fuseau horaire de l'expéditeur
👩🏼🤝👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer les rappels d'anniversaire
