Utilisez-vous souvent le nom de la pièce jointe comme objet de l'e-mail dans Outlook ? Si tel est le cas, vous devez espérer qu'Outlook pourra le compléter automatiquement. Cet article présentera une méthode pratique pour le réaliser avec Outlook VBA.
De nombreux utilisateurs ont l'habitude de saisir manuellement le nom de la pièce jointe dans l'objet de leurs e-mails. Dans ce cas, si Outlook pouvait le faire automatiquement, ce serait bien plus pratique. Par ailleurs, certains utilisateurs oublient souvent de renseigner l'objet. Ils reçoivent alors un message d'avertissement « Objet manquant » lorsqu'ils cliquent sur « Envoyer ». Si Outlook pouvait remplir automatiquement l'objet avec le nom de la pièce jointe, ils éviteraient ce message d'avertissement agaçant. En résumé, de nombreux utilisateurs d'Outlook souhaitent une telle fonctionnalité. Heureusement, grâce à Outlook VBA, c'est possible très facilement. Voici le code VBA détaillé et les étapes à suivre.
Remplir automatiquement la ligne d'objet de l'e-mail avec le nom de la pièce jointe
- Tout d'abord, vous pouvez démarrer Outlook et passer à l'onglet « Développeur ».
- Ensuite, sous cet onglet, vous devez cliquer sur le bouton "Visual Basic", ce qui fera apparaître l'éditeur VBA.
- Dans la fenêtre suivante, vous devez d'abord localiser le projet "ThisOutlookSession" dans la liste des projets sur le côté droit.
- Double-cliquez ensuite pour ouvrir ce projet. Et puis copiez-y les codes suivants.
Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem
Private Sub Initialize_handlers()
Set olInspectors = Application.Inspectors
End Sub
Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
Dim olItem As Object
Set olItem = Inspector.CurrentItem
If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub
Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
If olMail.Subject = "" Then
'If you don't want the prompt,
'Just delete the Msgbox line and its corresponding "End if".
If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
olMail.Subject = Attachment.DisplayName
End If
End If
End Sub
- Après cela, vous devez continuer à attribuer un certificat numérique au projet VBA actuel comme d'habitude.
- Tout d'abord, utilisez l'utilitaire intégré "Certificats numériques pour les projets VBA" pour générer un certificat numérique.
- Ensuite, vous pouvez signer la macro en cours.
- Quittez ensuite l'éditeur VBA et modifiez les paramètres de la macro en "Notifications pour les macros signées numériquement, toutes les autres macros désactivées".
- Enfin, vous pouvez essayer.
- Créez un nouvel e-mail.
- Si vous n'avez pas rempli le sujet et que vous avez l'intention de joindre un fichier, vous recevrez un message, comme l'image suivante :
- Lorsque vous sélectionnez "Oui", le sujet sera rempli avec le nom de la pièce jointe à la fois.
Faire face aux problèmes Outlook fréquents
À condition que vous utilisiez Outlook depuis des décennies, vous avez dû rencontrer de nombreux problèmes avec Outlook. Ensuite, quelles actions faites-vous habituellement lorsque vous les rencontrez ? Il est suggéré de comprendre et de les éradiquer dès que possible. C'est parce que l'accumulation de problèmes peut endommager vos données Outlook à tout moment. Par conséquent, même si Outlook peut fonctionner normalement, vous feriez mieux d'appliquer soit l'outil de réparation de la boîte de réception, soit l'outil externe. Utilitaire de réparation d'erreur Outlook PST, comme DataNumen Outlook Repair, pour analyser vos fichiers PST afin de détecter et de résoudre les erreurs.
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éparation endommagé SQL Server base de données et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com