Quando si tenta di rispondere o inoltrare le e-mail premendo il pulsante "Rispondi", "Rispondi a tutti" o "Inoltra", deve essere aggiunto il prefisso "RE" o "FW" davanti all'oggetto dell'e-mail. Questo articolo ti spiegherà come consentire a Outlook di rimuoverli automaticamente con VBA.
Nel nostro precedente articolo – “2 metodi per inoltrare le e-mail di Outlook senza il prefisso "FW" nell'oggetto", puoi ottenere due soluzioni alternative per inoltrare le email senza "FW". Stanno rispedendo le e-mail e creando rispettivamente un passaggio rapido "Inoltra". È ovvio che entrambi non possono permetterti di rimuovere automaticamente "FW" se utilizzi il normale pulsante "Avanti" nel gruppo "Rispondi".
Pertanto, per impostazione predefinita, se si desidera rimuovere il prefisso "RE" o "FW" nell'oggetto quando si fa clic sul pulsante "Rispondi", "Rispondi a tutti" o "Inoltra", è necessario eliminarli manualmente ogni volta. Sarà piuttosto fastidioso. Fortunatamente, puoi utilizzare Outlook VBA per rimuovere automaticamente le parole specifiche nell'oggetto della posta. Continua a leggere per ottenere i codici e i passaggi dettagliati.
Rimuovi automaticamente il prefisso "FW" o "RE" durante l'inoltro o la risposta alle e-mail
- Per iniziare, apri Outlook e vai alla scheda "Sviluppatore".
- Quindi puoi trovare e fare clic sul pulsante "Visual Basic".
- Avanti nella nuova finestra, dovresti fare doppio clic sul progetto "ThisOutlookSession".
- Successivamente, è necessario copiare e incollare i seguenti codici VBA al suo interno.
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
- Successivamente, dovresti firmare un certificato digitale per questa macro.
- Successivamente è possibile uscire dalla finestra "Visual Basic" e configurare Outlook per abilitare solo le macro firmate digitalmente.
- Finalmente puoi provare.
- Innanzitutto, seleziona un'e-mail e premi il pulsante "Rispondi", "Rispondi a tutti" o "Inoltra".
- Quindi si aprirà il messaggio di risposta o di inoltro. Puoi comporre la posta come al solito.
- Quando fai clic sul pulsante "Invia", riceverai una finestra di messaggio, come la seguente schermata:
- Se si seleziona "Sì", il prefisso "RE" o "FW" verrà rimosso automaticamente. Selezionando "No", il prefisso non verrà rimosso.
Cosa non fare nella gestione delle e-mail di Outlook
Outlook è vulnerabile, quindi dovresti essere cauto quando gestisci la posta di Outlook. Ad esempio, se ricevi e-mail da fonti sconosciute, è meglio non aprirlo, per non parlare del clic sui collegamenti incorporati o del download dei file allegati. Questo tipo di e-mail può contenere macro dannose, virus o malware, che possono rovinare i dati di Outlook in un lampo. Significa che soffrirai Danni al file di Outlook. A quel punto, il tuo unico ricorso è utilizzare uno strumento di riparazione potente e affidabile, come DataNumen Outlook Repair.
Introduzione dell'autore:
Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparare danneggiato mdf db e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com