Cómo eliminar automáticamente todos los espacios adicionales entre palabras en su correo electrónico de Outlook

Si a menudo escribe espacios adicionales accidentalmente al redactar el correo electrónico de Outlook, es posible que desee hacer que Outlook elimine automáticamente todos los espacios adicionales entre palabras. Ahora, este artículo le enseñará un método conveniente para realizarlo.

A veces, cuando redacta un correo electrónico, puede ingresar muchos espacios adicionales entre palabras por error. Harán que el contenido del correo electrónico sea complicado. En este punto, esperará eliminar todos estos espacios adicionales. Para lograrlo manualmente, puede utilizar la función "Buscar y reemplazar" para reemplazar todo "([]) [] {1,}" con "\ 1" con comodines. Pero, en comparación, sería mucho más conveniente y efectivo si Outlook pudiera hacerlo automáticamente. Ahora, a continuación, le presentaremos un método para configurar su Outlook.

Eliminar automáticamente todos los espacios adicionales entre palabras en el correo electrónico

1. En primer lugar, acceda al editor de VBA presionando "Alt + F11" en Outlook.

Nota: Si es totalmente nuevo en VBA, puede consultar mi artículo anterior "Cómo ejecutar código VBA en su Outlook" al mismo tiempo.

2. Luego, agregue “Biblioteca de objetos de MS Word” según “Cómo agregar una referencia a una biblioteca de objetos en VBA".
3. A continuación, coloque el código VBA en el proyecto "ThisOutlookSession"

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Get current mail
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objMailDocument = objMail.GetInspector.WordEditor
 
       'Remove all extra spaces using wildcards
       With objMailDocument.Range.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "([ ])[ ]{1,}"
            .Replacement.Text = "\1"
            .Forward = True
            .MatchWildcards = True
            .Execute Replace:=wdReplaceAll
      End With
    End If
End Sub

4. Luego, sal de la ventana actual.
5. Finalmente, siga los pasos a continuación para intentarlo.

• Para empezar, crea y redacta un correo electrónico. Aquí puedes escribir intencionadamente varios espacios adicionales entre palabras, como se muestra en la siguiente figura.
• Después de completar los destinatarios, haga clic directamente en el botón "Enviar" para enviarlo.
• Finalmente, cuando se envíe, vaya a la carpeta "Elementos enviados" para encontrarlo. Puede ver que todos los espacios adicionales se han eliminado automáticamente.

No tenga miedo de la corrupción de archivos de Outlook

En caso de que Outlook se bloquee, los usuarios entrarán en pánico y temerán que sus archivos de Outlook se corrompan. De hecho, siempre que tome algunas precauciones efectivas, podrá deshacerse de tales preocupaciones fácilmente. En primer lugar, debe persistir en realizar copias de seguridad periódicas de sus archivos PST, que desempeñan un papel muy importante en la protección de datos. Además, es recomendable preparar una herramienta de reparación de Outlook externa creíble y potente, como DataNumen Outlook Repair, ya que la herramienta de reparación de la bandeja de entrada no puede arreglar PST que está gravemente comprometido.

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 reparar mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com