Как да групово намерите и замените текст в множество имейли на Outlook

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

Например завършихте няколко имейла в Outlook. Преди да ги изпратите, вие откривате някои грешки и искате да промените някои текстове в тези имейли. Като цяло трябва да извършите „Намиране и замяна“ във всеки имейл един по един. И все пак е твърде тромаво. По този начин тук ще ви покажем по-ефективен начин, който може да ви позволи да го направите групово.

Партидно намиране и замяна на текст в множество имейли

1. За начало стартирайте програмата Outlook.
2. След това отворете редактора на VBA чрез клавишите “Alt + F11”.
3. В новия прозорец поставете VBA кода по-долу в модул или проект.

Sub FindReplaceInMultipleEmails()
    Dim strFind, strReplace As String
    Dim objInspectors As Outlook.Inspectors
    Dim objInspector As Outlook.Inspector
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Enter the specific text
    strFind = InputBox("Enter the text for find: (Case Sensitive)")
    strReplace = InputBox("Enter the text for replacement: (Case Sensitive)")
 
    If Trim(strFind) <> "" Then
       Set objInspectors = Outlook.Application.Inspectors
 
       For Each objInspector In objInspectors
           If objInspector.CurrentItem.Class = olMail Then
              If objInspector.EditorType = olEditorWord Then
                 Set objMail = objInspector.CurrentItem
                 Set objMailDocument = objMail.GetInspector.WordEditor
 
                 'Find & replace specific text
                 With objMailDocument.Content.Find
                      .ClearFormatting
                      .Text = strFind
                      .Replacement.ClearFormatting
                      .Replacement.Text = strReplace
                      .Forward = True
                      .Wrap = wdFindContinue
                      .Format = False
                      .MatchCase = True
                      .MatchWholeWord = False
                      .Execute Replace:=wdReplaceAll
                End With
                objMail.Save
             End If
         End If
      Next
 
      MsgBox "Completed!", vbInformation + vbOKOnly
    End If
End Sub

4. След това добавете този макрос към лентата с инструменти за бърз достъп според „Как да стартирате VBA код във вашия Outlook".
5. Впоследствие можете да опитате този макрос сега.

• Отворете имейлите на източника.
• След това щракнете върху бутона макрос в лентата с инструменти за бърз достъп.
• След това трябва да въведете конкретните текстове, за да ги намерите и замените.
• Когато получите подкана „Завършено“, можете да проверите имейлите на източника.

Възстановете Outlook от неочаквани сривове

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

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

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