Lorsque vous essayez de répondre ou de transférer des e-mails en appuyant sur le bouton "Répondre", "Répondre à tous" ou "Transférer", le préfixe "RE" ou "FW" doit être ajouté devant l'objet de l'e-mail. Cet article vous expliquera comment laisser Outlook les supprimer automatiquement avec VBA.
Dans notre article précédent – «2 méthodes pour transférer des e-mails Outlook sans préfixe "FW" dans le sujet", vous pouvez obtenir deux solutions de contournement pour transférer des e-mails sans "FW". Ils renvoient les e-mails et créent respectivement une étape rapide "Transférer". Il est évident que les deux ne peuvent pas vous permettre de supprimer automatiquement "FW" si vous utilisez le bouton "Suivant" normal dans le groupe "Répondre".
Par conséquent, par défaut, si vous souhaitez supprimer le préfixe "RE" ou "FW" dans le sujet lorsque vous cliquez sur le bouton "Répondre", "Répondre à tous" ou "Transférer", vous devez les supprimer manuellement à chaque fois. Ce sera assez gênant. Heureusement, vous pouvez utiliser Outlook VBA pour supprimer automatiquement les mots spécifiques dans l'objet du courrier. Lisez la suite pour obtenir les codes détaillés et les étapes.
Supprimer automatiquement le préfixe "FW" ou "RE" lors du transfert ou de la réponse aux e-mails
- Pour commencer, ouvrez Outlook et accédez à l'onglet « Développeur ».
- Ensuite, vous pouvez trouver et cliquer sur le bouton "Visual Basic".
- Ensuite, dans la nouvelle fenêtre, vous devez double-cliquer sur le projet "ThisOutlookSession".
- Ensuite, vous devez copier et coller les codes VBA suivants.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
If InStr(Item.Subject, "RE") > 0 Then
'If you don't want the prompt,
'You can remove the MsgBox line and its correspoding "Else … End If" lines.
If MsgBox("Do you want to remove the prefix 'RE'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
If InStr(Item.Subject, "FW") > 0 Then
If MsgBox("Do you want to remove the prefix 'FW'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
Item.Subject = Trim(strSubject)
Item.Save
End Sub
- Après cela, vous devez signer un certificat numérique pour cette macro.
- Plus tard, vous pourrez quitter la fenêtre "Visual Basic" et configurer Outlook pour activer uniquement les macros signées numériquement.
- Enfin, vous pouvez essayer.
- Tout d'abord, sélectionnez un e-mail et cliquez sur le bouton "Répondre", "Répondre à tous" ou "Transférer"
- Ensuite, le message de réponse ou de transfert s'ouvrira. Vous pouvez composer le courrier comme d'habitude.
- Lorsque vous cliquez sur le bouton "Envoyer", vous recevrez une boîte de message, comme la capture d'écran suivante :
- Si vous sélectionnez "Oui", le préfixe "RE" ou "FW" sera automatiquement supprimé. Si vous sélectionnez "Non", le préfixe ne sera pas supprimé.
Ce qu'il ne faut pas faire dans le traitement des e-mails Outlook
Outlook est vulnérable, vous devez donc rester prudent lors de la manipulation des e-mails Outlook. Par exemple, si vous recevez des e-mails de sources inconnues, vous feriez mieux de ne pas l'ouvrir, sans parler de cliquer sur les liens intégrés ou de télécharger les fichiers joints. Ce type d'e-mails peut contenir des macros malveillantes, des virus ou des logiciels malveillants, qui peuvent détruire vos données Outlook en un clin d'œil. Cela signifie que vous souffrirez Dommages au fichier Outlook. À ce stade, votre seul recours consiste à utiliser un outil de réparation puissant et réputé, comme DataNumen Outlook Repair.
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éparer la base de données mdf corrompue et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com