Бірнеше Outlook электрондық поштасынан мәтінді қалай іздеуге және ауыстыруға болады

Outlook шешімдері Қыркүйек 29, 2025

Әдепкі бойынша, Outlook бірнеше электрондық поштадағы мәтіндерді бір уақытта табуға және ауыстыруға қолдау көрсетпейді. Сондықтан, егер сіз мұны жасағыңыз келсе, осы мақалаға сілтеме жасай аласыз. Мұнда біз сізге оны VBA коды арқылы қалай жүзеге асыруға болатынын үйретеміз.

Мысалы, сіз Outlook бағдарламасында бірнеше электрондық поштаны аяқтадыңыз. Оларды жібермес бұрын сіз кейбір қателіктерді анықтап, осы электрондық пошта мәтіндеріндегі кейбір мәтіндерді өзгерткіңіз келеді. Жалпы, әр электрондық поштада 'Іздеу және ауыстыру' орындау керек. Бұл өте ауыр. Осылайша, біз сіздерге оны тиімдірек орындауға мүмкіндік беретін тиімді жолды көрсетеміз.

Пакетті бірнеше электрондық пошта арқылы табу және ауыстыру

Бастау үшін Outlook бағдарламаңызды іске қосыңыз.
Содан кейін VBA редакторына «Alt + F11» пернелері арқылы қол жеткізіңіз.
Жаңа терезеде төмендегі 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

Осыдан кейін, осы макросты жылдам қол жетімді құралдар тақтасына «сәйкес қосыңызOutlook бағдарламасында VBA кодын қалай іске қосуға болады«.
Кейіннен сіз бұл макросты қазір байқап көре аласыз.

Бастапқы электрондық хаттарды ашыңыз.
Содан кейін жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.
Одан кейін табу және ауыстыру үшін нақты мәтіндерді енгізу керек.
«Аяқталды» сұрауын алған кезде, сіз электрондық пошта хабарларын тексере аласыз.

Outlook бағдарламасын күтпеген апаттардан қалпына келтіріңіз

Егер сіз Outlook бағдарламасымен дұрыс жұмыс жасамасаңыз, Outlook қазір-ақ істен шығуы мүмкін. Сонымен қатар, әдетте, қатты Outlook апатқа ұшыраған жағдайда, сіздің Outlook файлыңыз бүлінуге бейім. Сол кезде Outlook деректерін қалпына келтіруге тырысу керек. Әрине, егер сізде деректердің заманауи сақтық көшірмесі болса, бұл өте қарапайым болады. Егер жоқ болса, сізден компенсаторлық және несиелік сыртқы құралды қолдану қажет болады DataNumen Outlook Repair. Ол істей алады PST түзету тер төгпей файл.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com