Qanday qilib bir nechta Outlook elektron pochtalarida matnni to'plash va almashtirish

Odatiy bo'lib, Outlook bir vaqtning o'zida bir nechta elektron xatlardagi matnni topish va almashtirishni qo'llab-quvvatlamaydi. Shuning uchun, agar siz buni qilishni istasangiz, ushbu maqolaga murojaat qilishingiz mumkin. Bu erda biz VBA kodi orqali buni qanday amalga oshirishni o'rgatamiz.

Masalan, siz Outlook-da bir nechta elektron pochta xabarlarini tugatdingiz. Ularni yuborishdan oldin siz ba'zi xatolarni topasiz va ushbu xatlardagi ba'zi matnlarni o'zgartirishni xohlaysiz. Umuman olganda, har bir elektron pochtada "Topish va almashtirish" ni birma-bir bajarishingiz kerak. Shunga qaramay, bu juda og'ir. Shunday qilib, biz bu erda sizga yanada samaraliroq yo'lni ko'rsatamiz, bu sizga uni ommaviy ravishda bajarishga imkon beradi.

Bir nechta elektron pochtadagi matnni to'plash va almashtirish

1. Boshlash uchun Outlook dasturingizni ishga tushiring.
2. Keyin VBA muharririga “Alt + F11” tugmalari orqali kiring.
3. Yangi oynada quyidagi VBA kodini modul yoki loyihaga qo'ying.

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. Shundan so'ng, ushbu makrosni "Tez kirish asboblar paneli" ga muvofiq qo'shing.Outlook-da VBA kodini qanday ishlatish kerak".
5. Keyinchalik, ushbu makroni hozir sinab ko'rishingiz mumkin.

• Manba elektron pochta xabarlarini oching.
• Keyin, Tez kirish asboblar panelidagi makros tugmasini bosing.
• Keyinchalik, topish va almashtirish uchun maxsus matnlarni kiritishingiz kerak.
• "Bajarildi" so'rovini olganingizda, manba elektron pochta xabarlarini tekshirishingiz mumkin.

Outlookni kutilmagan buzilishlardan tiklang

Outlook-ni noto'g'ri ishlatsangiz, Outlook vaqti-vaqti bilan ishdan chiqishi mumkin. Bundan tashqari, odatda, jiddiy Outlook ishdan chiqqan taqdirda, sizning Outlook faylingiz buzilgan bo'ladi. O'sha paytda siz Outlook ma'lumotlarini tiklashga harakat qilishingiz kerak. Albatta, agar sizda yangilangan ma'lumotlar zaxirangiz bo'lsa, bu juda oddiy bo'ladi. Agar shunday bo'lmasa, sizdan ishonchli va ishonchli tashqi vositani qo'llashingiz talab qilinadi, masalan DataNumen Outlook Repair. U qila oladi PST ni tuzatish ter to'kmasdan fayl.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com