Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

Come rimuovere automaticamente alcuni caratteri speciali dalla riga dell'oggetto durante l'invio di e-mail?

È possibile inserire accidentalmente alcuni caratteri speciali quando si digita l'oggetto nella riga dell'oggetto durante l'invio di e-mail in Outlook, quindi è necessario rimuovere questi caratteri speciali uno per uno. In questo articolo, parlerò di come rimuovere automaticamente tutti questi caratteri speciali dall'oggetto durante l'invio di e-mail.

Rimuovi automaticamente tutti i caratteri speciali dalla riga dell'oggetto quando invii e-mail con codice VBA


Rimuovi automaticamente tutti i caratteri speciali dalla riga dell'oggetto quando invii e-mail con codice VBA

Rimuovi automaticamente i caratteri speciali dalla riga dell'oggetto quando invii e-mail, il seguente codice VBA può farti un favore. Per favore, fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: rimuove automaticamente i caratteri speciali dalla riga dell'oggetto

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As Outlook.MailItem
    Dim xRegExp As RegExp
    Dim xSubject As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSubject = xMailItem.Subject
    Set xRegExp = CreateObject("VBScript.RegExp")
    With xRegExp
        .Global = True
        .IgnoreCase = True
        .Pattern = "[^a-zA-Z0-9\u4e00-\u9fa5]"
    End With
    If xRegExp.test(xSubject) = False Then Exit Sub
    xSubject = xRegExp.Replace(xSubject, "-")
    xMailItem.Subject = GetTargetStr(xSubject)
    Set RegExp = Nothing
End Sub
Function GetTargetStr(Str As String)
    Dim xS, xStr As String
    Dim i As Integer
    Dim xIsFirst As Boolean
    xIsFirst = True
    xStr = ""
    For i = 1 To Len(Str)
        xS = Mid(Str, i, 1)
        If xS = "-" Then
            If xIsFirst Then
                xS = " "
                xIsFirst = False
            Else
                xS = ""
            End If
        Else
            xIsFirst = True
        End If
        xStr = xStr + xS
    Next i
    GetTargetStr = xStr
End Function

doc rimuove il carattere speciale 1

3. E poi, sempre in Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Referenze per andare al Riferimenti-Progetto1 finestra di dialogo e selezionare Espressioni regolari Microsoft VBAScript 1.0 opzione dal Riferimenti disponibili casella di riepilogo, vedi screenshot:

doc rimuove il carattere speciale 2

4. Quindi fare clic OK per chiudere la finestra di dialogo, ora, quando invii un messaggio con alcuni caratteri speciali nella riga dell'oggetto, verrà rimosso automaticamente dopo averlo inviato. Vedi screenshot:

doc rimuove il carattere speciale 3


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.