Comment empêcher les utilisateurs d'envoyer des e-mails sans objet saisi dans Outlook?
Pendant que vous envoyez un e-mail via Outlook, vous pouvez parfois envoyer des e-mails sans entrer d'objet, ce qui n'est peut-être pas une bonne habitude. Existe-t-il un moyen de forcer les utilisateurs à envoyer des e-mails avec un objet dans Outlook?
Empêcher l'envoi d'e-mails sans objet saisi avec VBA
Empêcher l'envoi d'e-mails sans objet saisi avec VBA
Il n'y a aucun moyen sauf le code VBA pour résoudre ce problème.
1. Activez Outlook, appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.
2. Double-cliquez Cette session Outlook dans l' Project1 volet, puis copiez et collez le code ci-dessous dans le script vide.
VBA: empêcher l'envoi d'e-mails sans objet
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'UpdatebyExtendoffice20180511
Dim xObject As Object
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xObject = CreateObject("VBScript.Regexp")
With xObject
.Global = True: .Pattern = "^\x20*$"
If .test(Item.Subject) = True Then
MsgBox "No subject entered", vbInformation, "Kutools for Outlook"
Cancel = True
End If
End With
End Sub
3. Enregistrez le code, maintenant si l'e-mail que vous envoyez sans objet, il apparaîtra une boîte de dialogue pour rappeler la saisie du sujet.
Remarque: Ce code VBA fonctionne pour tous les comptes dans Outlook
Meilleurs outils de productivité bureautique
Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook
🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...
📧 Email Automation: Absent du bureau (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 facile 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 / Boostez votre productivité Outlook avec des vues à onglets / 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
infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.
