Certains utilisateurs souhaitent uniquement demander des réponses à la réunion aux participants requis lors de l'envoi d'une invitation à une réunion Outlook. Cet article vous apprendra comment le réaliser via Outlook VBA.
Pour ne pas solliciter de réponse lors de l'envoi d'invitations à une réunion, il suffit de cliquer sur le bouton « Options de réponse » et de décocher l'option « Demander des réponses ». Cependant, de cette manière, aucun participant, qu'il soit obligatoire ou facultatif, ne sera tenu de confirmer sa présence. Or, dans la plupart des cas, on souhaite précisément ne pas solliciter de réponse des participants facultatifs. Il convient alors d'envisager d'autres solutions, comme celle décrite ci-dessous.
Demander uniquement aux participants requis de répondre à votre invitation à la réunion
- En premier lieu, lancez votre application Outlook.
- Appuyez ensuite sur les touches "Alt + F11" dans l'écran principal d'Outlook.
- Ensuite, après avoir accédé à l'éditeur Outlook VBA, vous devez rechercher et ouvrir le projet "ThisOutlookSession".
- Ensuite, copiez le code VBA suivant dans cette fenêtre de projet.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMeeting As Outlook.MeetingItem
Dim objCopiedMeeting As Outlook.AppointmentItem
Dim objOriginalAttendee As Outlook.recipient
Dim objCopiedAttendee As Outlook.recipient
If TypeOf Item Is MeetingItem Then
Set objMeeting = Item
For i = objMeeting.Recipients.count To 1 Step -1
'Remove Optional Attendees from the Original Meeting Invitation
Set objOriginalAttendee = objMeeting.Recipients.Item(i)
If objOriginalAttendee.Type = olOptional Then
objOriginalAttendee.Delete
End If
Next
'Copy the Meeting
Set objCopiedMeeting = objMeeting.GetAssociatedAppointment(True).Copy
'Disable "Request Response" Feature in the Copied Meeting
objCopiedMeeting.ResponseRequested = False
For i = objCopiedMeeting.Recipients.count To 1 Step -1
'Add the Previously Removed Optional Attendees
Set objCopiedAttendee = objCopiedMeeting.Recipients.Item(i)
If objCopiedAttendee.Type = olRequired Then
objCopiedAttendee.Delete
End If
Next
'Send out the Copied Meeting
objCopiedMeeting.Send
'Delete the Copied Meeting after Sending
objCopiedMeeting.Delete
End If
End Sub
- Après cela, vous devez signer ce projet VBA.
- Restez dans la macro actuelle et cliquez sur "Outils" dans la barre d'outils.
- Choisissez ensuite l'option "Signatures numériques".
- Dans la boîte de dialogue contextuelle, suivez les instructions à l'écran pour la terminer.
- Vérifiez ultérieurement vos paramètres de macro Outlook pour vous assurer que la macro signée numériquement est activée.
- À partir de maintenant, lorsque vous envoyez une invitation à une réunion, les participants facultatifs ne seront plus tenus de répondre. De leur point de vue, l'invitation à la réunion ressemblera à la capture d'écran suivante :
Combattre les virus et les logiciels malveillants dans Outlook
Le filtre de courrier indésirable Outlook joue un rôle important pour éviter les attaques inattendues de virus et de logiciels malveillants. De nos jours, les virus deviennent de plus en plus sophistiqués. Afin de bloquer les infections virales et les attaques de logiciels malveillants, non seulement vous devez bloquer les spams à temps, mais vous feriez également mieux de signaler les domaines ou adresses de messagerie suspects à Microsoft, ce qui contribuera à renforcer le filtre Outlook Junk Email. De plus, outre le filtre de courrier indésirable intégré, vous devez également conserver un formidable outil de réparation, tel que DataNumen Outlook Repair. Il a un beaucoup plus élevé Récupération d'Outlook taux que ses rivaux.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com