Cum să eliminați automat prefixul „RE” sau „FW” din subiect atunci când răspundeți sau redirecționați e-mail-uri

Când încercați să răspundeți sau să redirecționați e-mail-uri apăsând butonul „Răspunde”, „Răspunde tuturor” sau „Redirecționare”, trebuie să fie adăugat prefixul „RE” sau „FW” în fața subiectului e-mailului. Acest articol vă va spune cum să permiteți Outlook să le elimine automat cu VBA.

În articolul nostru anterior – „2 metode de a redirecționa e-mailuri Outlook fără prefixul „FW” în subiect”, puteți obține două soluții pentru a redirecționa e-mailuri fără „FW”. Ei retrimit e-mailurile și, respectiv, creează un pas rapid „Înainte”. Este evident că ambele nu vă pot permite să eliminați automat „FW” dacă utilizați butonul normal „Forward” din grupul „Răspunde”.

Prin urmare, în mod implicit, dacă doriți să eliminați prefixul „RE” sau „FW” din subiect când faceți clic pe butonul „Răspuns”, „Răspunde tuturor” sau „Redirecționare”, trebuie să le ștergeți manual de fiecare dată. Va fi destul de supărător. Din fericire, puteți utiliza Outlook VBA pentru a elimina automat cuvintele specifice din subiectul e-mailului. Citiți mai departe pentru a obține codurile și pașii detaliate.

Eliminați automat prefixul „FW” sau „RE” atunci când redirecționați sau răspundeți la e-mailuri

1. Pentru început, lansați Outlook și accesați fila „Dezvoltator”.
2. Apoi puteți găsi și faceți clic pe butonul „Visual Basic”.
3. Apoi, în noua fereastră, ar trebui să faceți dublu clic pe proiectul „ThisOutlookSession”.
4. Ulterior, trebuie să copiați și să lipiți următoarele coduri VBA în el.

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

5. După aceea, ar trebui să semnați un certificat digital la această macrocomandă.
6. Mai târziu, puteți ieși din fereastra „Visual Basic” și puteți configura Outlook pentru a activa numai macrocomenzile semnate digital.
7. În sfârșit poți încerca.

• În primul rând, selectați un e-mail și apăsați butonul „Răspunde”, „Răspunde tuturor” sau „Redirecționare”.
• Apoi se va deschide mesajul de răspuns sau de redirecționare. Puteți compune e-mailul ca de obicei.
• Când faceți clic pe butonul „Trimite”, veți primi o casetă de mesaj, precum următoarea captură de ecran:
• Dacă selectați „Da”, prefixul „RE” sau „FW” va fi eliminat automat. Dacă selectați „Nu”, prefixul nu va fi eliminat.

Ce să nu faceți în tratarea e-mailurilor Outlook

Outlook este vulnerabil, așa că ar trebui să fiți precaut atunci când manipulați e-mailurile Outlook. De exemplu, dacă primiți e-mailuri din surse necunoscute, ar fi bine să nu-l deschideți, ca să nu mai vorbiți că faceți clic pe linkurile încorporate sau descărcați fișierele atașate. Acest tip de e-mailuri pot conține macrocomenzi rău intenționate, viruși sau programe malware, care vă pot distruge datele Outlook într-o clipă. Înseamnă că vei suferi Deteriorarea fișierelor Outlook. În acel moment, stațiunea dumneavoastră unică este să utilizați un instrument de reparații puternic și de renume, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați mdf db corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com