Als u e-mails probeert te beantwoorden of door te sturen door op de knop "Beantwoorden", "Allen beantwoorden" of "Doorsturen" te klikken, moet er een voorvoegsel "RE" of "FW" worden toegevoegd voor het onderwerp van de e-mail. In dit artikel wordt uitgelegd hoe u Outlook automatisch kunt laten verwijderen met VBA.
In ons vorige artikel - "2 Methoden om Outlook-e-mails door te sturen zonder het voorvoegsel "FW" in het onderwerp”, Kunt u twee tijdelijke oplossingen krijgen om e-mails door te sturen zonder“ FW ”. Ze verzenden de e-mails opnieuw en maken respectievelijk een snelle stap "Doorsturen". Het is duidelijk dat ze niet allebei kunnen toestaan dat u "FW" automatisch verwijdert als u de normale knop "Doorsturen" in de groep "Reageren" gebruikt.
Als u daarom standaard het voorvoegsel "RE" of "FW" in onderwerp wilt verwijderen wanneer u op de knop "Beantwoorden", "Allen beantwoorden" of "Doorsturen" klikt, moet u deze elke keer handmatig verwijderen. Het zal behoorlijk lastig zijn. Gelukkig kun je Outlook VBA gebruiken om de specifieke woorden in het e-mailonderwerp automatisch te verwijderen. Lees verder om de gedetailleerde codes en stappen te zien.
Auto Verwijder het voorvoegsel "FW" of "RE" bij het doorsturen of beantwoorden van e-mails
- Open om te beginnen Outlook en ga naar het tabblad 'Ontwikkelaar'.
- Vervolgens kunt u de knop "Visual Basic" zoeken en erop klikken.
- Vervolgens moet u in het nieuwe venster dubbelklikken op het "ThisOutlookSession" -project.
- Vervolgens moet u de volgende VBA-codes erin kopiëren en plakken.
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
- Daarna moet u een digitaal certificaat voor deze macro ondertekenen.
- Later kunt u het "Visual Basic" -venster verlaten en Outlook configureren om alleen de digitaal ondertekende macro's in te schakelen.
- Eindelijk kun je het proberen.
- Selecteer eerst een e-mail en klik op "Beantwoorden", "Allen beantwoorden" of "Doorsturen"
- Vervolgens wordt het antwoord- of doorstuurbericht geopend. U kunt de mail zoals gewoonlijk opstellen.
- Wanneer u op de knop "Verzenden" klikt, ontvangt u een berichtvenster, zoals de volgende schermafbeelding:
- Als u "Ja" selecteert, wordt het voorvoegsel "RE" of "FW" automatisch verwijderd. Als u "Nee" selecteert, wordt het voorvoegsel niet verwijderd.
Wat u niet moet doen bij het omgaan met Outlook-e-mails
Outlook is kwetsbaar, dus u moet voorzichtig zijn bij het omgaan met Outlook-e-mails. Als u bijvoorbeeld e-mails ontvangt van onbekende bronnen, kunt u deze beter niet openen, en niet te vergeten op de ingesloten links klikken of de bijgevoegde bestanden downloaden. Dit soort e-mails kan kwaadaardige macro's, virussen of malware bevatten, die uw Outlook-gegevens in een oogwenk kunnen ruïneren. Het betekent dat je zult lijden Beschadiging van Outlook-bestanden. Op dat moment is het uw unieke toevlucht om een krachtig en gerenommeerd reparatietool te gebruiken, zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie corrupte mdf db en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com