Как да премахнете автоматично всички допълнителни интервали между думите във вашия имейл в Outlook

Споделете сега:

Ако често пишете допълнителни интервали случайно, когато съставяте имейл на Outlook, може да искате да накарате Outlook автоматично да премахне всички излишни интервали между думите. Сега тази статия ще ви научи на удобен метод да го реализирате.

Понякога, когато съставяте имейл, можете да въведете много допълнителни интервали между думите по погрешка. Те ще объркат съдържанието на имейла. На този етап ще се надявате да премахнете всички тези допълнителни интервали. За да го изпълните ръчно, можете да използвате функцията „Намиране и замяна“, за да замените всички „([]] [] {1,}“ с „\ 1“ с заместващи символи. Но за сравнение би било много по-удобно и ефективно, ако Outlook може автоматично да направи това. Сега, по-долу, ще ви представим метод за конфигуриране на вашия Outlook.

Намерете и заменете с помощта на заместващи символи

Автоматично премахване на всички допълнителни интервали между думи в имейл

  1. Първо, отворете редактора на VBA чрез натискане на „Alt + F11“ в Outlook.

Забележка: Ако сте напълно нов във VBA, можете да се обърнете към предишната ми статия „Как да стартирате VBA код във вашия Outlook" по същото време.

  1. След това добавете „Библиотека с обекти на MS Word“ съгласно „Как да добавите препратка към библиотека с обекти във VBA".
  2. След това поставете VBA кода в проекта “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

VBA код - Автоматично премахване на всички излишни интервали между думи в имейл

  1. След това излезте от текущия прозорец.
  2. И накрая, следвайте стъпките по-долу, за да опитате.
  • За начало създайте и съставете имейл. Тук можете умишлено да въведете няколко допълнителни интервала между думите, както е показано на следващата фигура.Съставете имейл с допълнителни интервали между думи
  • След като попълните получателите, щракнете директно върху бутона „Изпрати“, за да го изпратите.
  • И накрая, когато е изпратено, отидете в папката „Изпратени елементи“, за да го намерите. Можете да видите, че всички допълнителни интервали са премахнати автоматично.Всички допълнителни интервали между думите са премахнати

Не се страхувайте от повреда на файлове в Outlook

В случай на срив на Outlook потребителите ще изпаднат в паника и се страхуват, че техните файлове на Outlook ще бъдат повредени. Всъщност, докато предприемате някои ефективни предпазни мерки, можете лесно да се отървете от подобни опасения. На първо място, трябва да продължавате да правите редовно архивиране на вашите PST файлове, което играе изключително важна роля в защитата на данните. Също така е препоръчително да подготвите надежден и мощен външен инструмент за поправка на Outlook, като например DataNumen Outlook Repair, тъй като инструментът за поправка на пощенската кутия не е в състояние да го направи коригирайте PST това е сериозно компрометирано.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.