Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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 facile de l'accepter automatiquement à partir d'une personne spécifique dans Outlook? La méthode dans cet article vous fera une faveur.

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


Supprimez facilement les e-mails en double des dossiers de courrier électronique spécifiés dans Outlook:

La suppression E-mails en double utilité de Kutools for Outlook peut vous aider à supprimer rapidement tous les e-mails en double d'un moteur de messagerie ou de plusieurs dossiers spécifiés en même temps dans Outlook. Voir la capture d'écran:

Kutools for Outlook: avec plus de 40 add-ins Outlook, libre d'essayer sans limitation dans les jours 45. Téléchargez et essai gratuit maintenant!


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 une demande de réunion envoyée par une personne spécifique dans Outlook. S'il vous plaît 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 ThisOutlookSession dans le volet gauche pour ouvrir la fenêtre Code, puis copiez le code VBA sous 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

Note: 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 la autre + Q les clés pour fermer le Microsoft Visual Basic pour applications fenêtre.

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

Désormais, lors de la réception de demandes de réunion envoyées par la personne que vous avez spécifiée dans le code, la réunion sera automatiquement acceptée et l'expéditeur recevra également un courrier électronique de réponse.

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


Articles Liés:

Outils de productivité recommandés

tir kutools perspectives onglet kutools 1180x121
tir kutools perspectives kutools plus onglet 1180x121

Kutools for Outlook - Plus que les fonctions avancées 100 pour Outlook, améliorez l'efficacité de 70% pour vous

  • Les opérations compliquées et répétées peuvent être effectuées en un traitement unique en quelques secondes.
  • Transférez plusieurs courriels individuellement en un clic et effectuez un transfert automatique selon des règles.
  • Auto CC / BCC chaque email envoyé et facile pour la personnalisation des règles, et la réponse automatique sans avoir besoin de serveur Exchange.
  • Les puissants e-mails indésirables filtrent, suppriment les e-mails en double, répondent avec pièce jointe, de nombreuses opérations en un clic, etc.
  • Essai gratuit et illimité de 60-day. Garantie de remboursement 60-day. 2 years, mise à jour et support gratuits. Achetez une fois, utilisez pour toujours.
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.