Come rimuovere automaticamente i caratteri speciali nell'oggetto dell'e-mail tramite VBA di Outlook

Le e-mail che contengono caratteri speciali tendono a essere bloccate come spam. Pertanto, dovresti evitare caratteri speciali negli oggetti delle e-mail in uscita. Ora, in questo articolo, ti insegneremo a consentire a Outlook di rimuovere automaticamente i caratteri speciali nell'oggetto dell'email.

Il mio precedente articolo “Come ricevere un avviso quando si tenta di inserire caratteri speciali nell'oggetto dell'e-mail di Outlook” ha introdotto un modo per evitare i caratteri speciali durante la composizione delle email. Tuttavia, alcuni utenti desiderano che Outlook rimuova automaticamente i caratteri speciali nell'oggetto quando fanno clic sul pulsante "Invia" per inviare un'e-mail. Incentrato su questo requisito, qui esporremo un altro pezzo di codice VBA. Può realizzarlo con facilità senza sforzo.

Rimuovi automaticamente i caratteri speciali nell'oggetto dell'e-mail

1. Prima di tutto, avvia il programma Outlook.
2. Quindi, accedi all'editor VBA come per "Come eseguire il codice VBA in Outlook".
3. Successivamente, nell'editor VBA, abilita "Microsoft VBScript Regular Expressions" con riferimento a "Come aggiungere un riferimento a una libreria di oggetti in VBA".
4. Successivamente, inserisci il seguente codice nel progetto "ThisOutlookSession".

'Occurs when sending an email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRegExp As RegExp
    Dim strSubject As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       'Get the mail subject
       strSubject = objMail.Subject
 
       'Find special characters via regular expression
       Set objRegExp = New RegExp
       With objRegExp
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^a-zA-Z0-9]"
       End With
 
      'Replace special characters with space
      If objRegExp.test(strSubject) = True Then
         strSubject = objRegExp.Replace(strSubject, " ")
         objMail.Subject = strSubject
      End If
    End If
End Sub

5. Successivamente, chiudi l'editor VBA.
6. Da allora, ogni volta che provi a inviare un'e-mail il cui oggetto ha caratteri speciali, Outlook li rimuoverà automaticamente, come mostrato nello screenshot seguente.

Conserva diverse copie dei tuoi file di Outlook

Come gestisci le tue prospettive nel lavoro quotidiano? In realtà, si consiglia vivamente di conservare diverse copie dei file di Outlook. Ha lo scopo di aiutarti a sbarazzarti della dolorosa perdita di dati di Outlook. Immagina solo il seguente scenario. Ad esempio, Outlook si blocca improvvisamente e i file aperti diventano inaccessibili. In questo caso, se hai conservato altre copie, non devi preoccuparti. Eppure, se non ce l'hai, sei obbligato a farlo riparare Outlook e recuperare al meglio i dati Outlook danneggiati. A questo punto, è necessario ricorrere a uno strumento potente, 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 ripristino sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com