Slik fjerner du automatisk prefikset "RE" eller "FW" i Emne når du svarer eller videresender e-poster

Når du prøver å svare på eller videresende e-poster ved å trykke på «Svar», «Svar alle» eller «Videresend»-knappen, må det være «RE» eller «FW»-prefiks lagt til foran i e-postemnet. Denne artikkelen vil fortelle deg hvordan du lar Outlook fjerne dem automatisk med VBA.

I vår tidligere artikkel - "2 metoder for å videresende Outlook-e-post uten "FW"-prefiks i emne", kan du få to løsninger for å videresende e-poster uten "FW". De sender e-postene på nytt og oppretter henholdsvis et "Videresend" raskt trinn. Det er åpenbart at begge ikke kan tillate deg å automatisk fjerne "FW" hvis du bruker den vanlige "Forover"-knappen i "Svar"-gruppen.

Videresend eller svar-knapp i svargruppen

Derfor, som standard, hvis du ønsker å fjerne "RE" eller "FW" prefikset i emnet når du klikker på "Svar", "Svar alle" eller "Videresend"-knappen, må du slette dem manuelt hver gang. Det vil være ganske plagsomt. Heldigvis kan du bruke Outlook VBA til å automatisk fjerne de spesifikke ordene i e-postemnet. Les videre for å oppnå de detaljerte kodene og trinnene.

Fjern automatisk prefikset "FW" eller "RE" når du videresender eller svarer på e-poster

  1. For å starte, start Outlook og gå til "Utvikler"-fanen.
  2. Deretter kan du finne og klikke på "Visual Basic" -knappen.
  3. Neste i det nye vinduet bør du dobbeltklikke på "ThisOutlookSession" -prosjektet.
  4. Deretter må du kopiere og lime inn følgende VBA-koder i den.
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

VBA-koder - Fjern automatisk prefikset "RE" eller "FW" i emnet når du svarer eller videresender e-poster

  1. Etter det bør du signere et digitalt sertifikat til denne makroen.Tilordne et digitalt sertifikat til makroen
  2. Senere kan du gå ut av "Visual Basic"-vinduet og konfigurere Outlook til kun å aktivere de digitalt signerte makroene.
  3. Endelig kan du prøve.
  • Først velger du en e-post og trykker på "Svar", "Svar alle" eller "Videresend".
  • Deretter åpnes svar- eller videresendingsmeldingen. Du kan skrive e-posten som vanlig.
  • Når du klikker på "Send"-knappen, vil du motta en meldingsboks, som følgende skjermbilde:Meldingsboks for å spørre om Fjern prefikset
  • Hvis du velger "Ja", vil prefikset "RE" eller "FW" bli fjernet automatisk. Hvis du velger "Nei", vil ikke prefikset bli fjernet.

Hva du ikke bør gjøre når du håndterer Outlook-e-poster

Outlook er sårbart, så du bør være forsiktig når du håndterer Outlook-post. Hvis du for eksempel mottar e-poster fra ukjente kilder, bør du ikke åpne den, for ikke å snakke om å klikke på de innebygde koblingene eller laste ned de vedlagte filene. Denne typen e-poster kan inneholde ondsinnede makroer, virus eller skadelig programvare, som kan ødelegge Outlook-dataene dine på et blunk. Det betyr at du vil lide Skade på Outlook-fil. På det tidspunktet er ditt unike feriested å bruke et kraftig og anerkjent reparasjonsverktøy, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere korrupt mdf db og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.