Comment retarder l'envoi de l'invitation à la réunion dans Outlook?

Normalement, vous pouvez appliquer la fonction de livraison différée pour envoyer un message à une heure spécifique au lieu de maintenant. Mais, parfois, vous souhaitez retarder l'envoi d'une invitation à une réunion comme un e-mail. Comment pouvez-vous envoyer une invitation à une réunion à l'heure souhaitée selon vos besoins dans Outlook?

Retarder l'envoi d'une invitation à une réunion dans Outlook avec le code VBA

Retarder l'envoi d'une invitation à une réunion dans Outlook avec le code VBA

Peut-être qu'il n'y a pas de moyen direct de retarder une invitation à une réunion dans Outlook, mais le code VBA ci-dessous peut vous rendre service, procédez comme suit:

1. Tout d'abord, vous devez créer une nouvelle tâche. Dans le nouveau Tâche fenêtre:

(1.) Spécifiez le sujet, la date de début, la date de fin de la réunion;

(2.) Définissez une date et une heure de rappel lorsque vous souhaitez envoyer l'invitation à la réunion;

(3.) Tapez le message de réunion selon vos besoins.

doc retarder l'envoi de la réunion 1

2. Après avoir créé la tâche, cliquez sur Sauvegarder et fermer option pour fermer cette fenêtre.

3. Ensuite, maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

4. 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: retarder l'envoi d'une invitation à une réunion:

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split(",,", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

doc retarder l'envoi de la réunion 2

Notes: Dans le code ci-dessus: Test de réunion est le sujet que vous avez créé pour la réunion à l'étape 1; et, vous devez modifier les informations de adresses des destinataires, lieu de réunion, Heure de début et durée de la réunion à la vôtre

5. Enregistrez et fermez le code, puis redémarrez Outlook pour que ce code prenne effet.

6. À partir de maintenant, lorsque le rappel de l'élément de tâche apparaît à l'heure spécifique que vous avez définie, Outlook enverra automatiquement l'invitation à la réunion.