Хэрхэн олон Outlook имэйл дэх текстийг хэрхэн багцаар олж, солих вэ

Анхдагч байдлаар, Outlook нь таныг олон имэйл дэх текстийг нэгэн зэрэг хайж олох, солихыг дэмждэггүй. Тиймээс, хэрэв та үүнийг хийхийг хүсч байвал энэ нийтлэлд хандаж болно. Энд бид VBA кодоор дамжуулан үүнийг хэрхэн хэрэгжүүлэхийг заах болно.

Жишээлбэл, та Outlook дээр хэд хэдэн имэйл илгээж дуусгасан. Та тэдгээрийг илгээхээсээ өмнө зарим алдааг олж мэдсэн бөгөөд эдгээр имэйлийн зарим текстийг өөрчлөхийг хүсч байна. Ерөнхийдөө та имэйл бүрт "Ол, солих"-ыг нэг нэгээр нь хийх ёстой. Гэсэн хэдий ч энэ нь хэтэрхий төвөгтэй юм. Тиймээс бид танд үүнийг бөөнөөр нь хийх боломжтой илүү үр дүнтэй аргыг харуулах болно.

Олон имэйл дэх текстийг олоод солих

1. Эхлээд Outlook програмаа эхлүүлнэ үү.
2. Дараа нь "Alt + F11" товчлуураар VBA засварлагч руу нэвтэрнэ үү.
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. Үүний дараа энэ макрог " Quick Access Toolbar-д "-ын дагуу нэмнэ үү.Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
5. Дараа нь та одоо энэ макро оролдож болно.

• Эх сурвалжийн имэйлийг нээнэ үү.
• Дараа нь Quick Access Toolbar дээрх макро товчийг дарна уу.
• Дараа нь та хайж олох, солихын тулд тодорхой бичвэрүүдийг оруулах хэрэгтэй.
• "Дууссан" гэсэн хүсэлтийг хүлээн авснаар та эх имэйлийг шалгаж болно.

Гэнэтийн эвдрэлээс Outlook-ийг сэргээх

Хэрэв та Outlook-оо буруугаар зохицуулбал Outlook одоо болон дараа нь гацах болно. Үүнээс гадна, Outlook ноцтой осолдсон тохиолдолд таны Outlook файл гэмтэх хандлагатай байдаг. Энэ үед та Outlook-ийн өгөгдлийг сэргээх оролдлого хийх хэрэгтэй. Мэдээжийн хэрэг, хэрэв танд хамгийн сүүлийн үеийн мэдээллийн нөөцлөлт байгаа бол энэ нь маш энгийн байх болно. Хэрэв тийм биш бол та найдвартай, найдвартай гадны хэрэгслийг ашиглах шаардлагатай болно DataNumen Outlook RepairБайна. Ингэж чаддаг PST засах хөлс гаргалгүйгээр файл.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf засвар програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com