Cómo eliminar automáticamente caracteres especiales en el asunto del correo electrónico a través de Outlook VBA

Los correos electrónicos que contienen caracteres especiales tienden a bloquearse como spam. Por lo tanto, debe evitar los caracteres especiales en los asuntos de los correos electrónicos salientes. Ahora, en este artículo, le enseñaremos a permitir que Outlook elimine automáticamente los caracteres especiales en el asunto del correo electrónico.

Mi artículo anterior "Cómo recibir una advertencia al intentar ingresar caracteres especiales en el asunto del correo electrónico de Outlook”Ha introducido una forma de evitar los caracteres especiales al redactar un correo electrónico. Sin embargo, algunos usuarios desean que Outlook elimine automáticamente los caracteres especiales en el asunto cuando hacen clic en el botón "Enviar" para enviar un correo electrónico. Enfocados en este requisito, aquí expondremos otra pieza de código VBA. Puede darse cuenta de esto con facilidad y sin esfuerzo.

Eliminar automáticamente caracteres especiales en el asunto del correo electrónico

1. En primer lugar, inicie el programa Outlook.
2. Luego, acceda al editor de VBA según "Cómo ejecutar código VBA en su Outlook".
3. A continuación, en el editor de VBA, habilite "Expresiones regulares de Microsoft VBScript" con referencia a "Cómo agregar una referencia a una biblioteca de objetos en VBA".
4. Después de eso, ponga el siguiente código en el proyecto "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. Posteriormente, cierre el editor de VBA.
6. Desde entonces, cada vez que intente enviar un correo electrónico cuyo asunto tenga caracteres especiales, Outlook los eliminará automáticamente, como se muestra en la siguiente captura de pantalla.

Conserve varias copias de sus archivos de Outlook

¿Cómo maneja su Outlook en el trabajo diario? En realidad, es muy recomendable mantener varias copias de sus archivos de Outlook. Su objetivo es ayudarlo a deshacerse de la dolorosa pérdida de datos de Outlook. Imagínese el siguiente escenario. Por ejemplo, Outlook se bloquea repentinamente y los archivos abiertos se vuelven inaccesibles. En este caso, si ha guardado otras copias, no debe preocuparse. Sin embargo, si no lo tiene, debe arreglar Outlook y recuperar los datos dañados de Outlook en la medida de lo posible. En este punto, requiere que recurra a una herramienta poderosa, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperación de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com