Comment accepter automatiquement la demande de réunion d'une personne spécifique dans Outlook?

Lorsque vous recevez une invitation à une réunion dans Outlook, vous devez accepter manuellement la demande de réunion et envoyer la réponse à l'expéditeur. Existe-t-il un moyen simple de l'accepter automatiquement d'une personne spécifique dans Outlook? La méthode décrite dans cet article vous rendra service.

Accepter automatiquement la demande de réunion d'une personne spécifique avec le code VBA

Accepter automatiquement la demande de réunion d'une personne spécifique avec le code VBA

Le code VBA ci-dessous peut vous aider à accepter automatiquement la demande de réunion envoyée par une personne spécifique dans Outlook. Veuillez faire comme suit.

1. appuie sur le autre + 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 dans le volet gauche pour ouvrir la fenêtre Code, puis copiez sous le code VBA dans la fenêtre. Voir la capture d'écran:

Code VBA: accepter automatiquement la demande de réunion d'une personne spécifique dans Outlook

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

Notes: Dans le code, veuillez remplacer le "Nom de l'expéditeur”Avec le nom d'affichage de l'expéditeur.

3. Enregistrez le code, puis appuyez sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

4. Redémarrez Outlook pour prendre cet effet de code.

À partir de maintenant, lors de la réception des demandes de réunion envoyées par la personne que vous avez indiquée dans le code, la réunion sera acceptée automatiquement et l'expéditeur recevra également un e-mail de réponse.

Notes: Le compte de messagerie qui reçoit la demande de réunion doit être le compte par défaut dans votre Outlook.

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.