များစွာသော Outlook အီးမေးလ်များတွင် စာသားကို ရှာဖွေပြီး အစားထိုးနည်း

မူရင်းအားဖြင့်၊ Outlook သည် သင့်အား အီးမေးလ်များစွာတွင် တစ်ချိန်တည်းတွင် စာသားရှာဖွေပြီး အစားထိုးရန် မပံ့ပိုးပါ။ ထို့ကြောင့် သင်ပြုလုပ်လိုပါက ဤဆောင်းပါးကို ကိုးကားနိုင်ပါသည်။ ဤနေရာတွင် VBA ကုဒ်မှတစ်ဆင့် ၎င်းကို သိရှိနိုင်ပုံကို သင်ပေးပါမည်။

ဥပမာအားဖြင့်၊ သင်သည် Outlook တွင် အီးမေးလ်များစွာ ပြီးသွားပါပြီ။ ၎င်းတို့ကို သင်မပို့မီတွင် သင်သည် အမှားအချို့ကို ရှာဖွေတွေ့ရှိပြီး ဤအီးမေးလ်များတွင် စာသားအချို့ကို ပြင်ဆင်လိုပါသည်။ ယေဘုယျအားဖြင့်၊ သင်သည် အီးမေးလ်တစ်ခုချင်းစီတွင် 'Find and Replace' ကို လုပ်ဆောင်ရပါမည်။ ဒါတောင် ခက်လွန်းတယ်။ ထို့ကြောင့် အစုလိုက်အပြုံလိုက် ပြီးမြောက်နိုင်စေမည့် ပိုမိုထိရောက်သောနည်းလမ်းကို ဤနေရာတွင် ကျွန်ုပ်တို့ပြသပါမည်။

အီးမေးလ်များစွာတွင် စာသားကို အသုတ်လိုက်ရှာပြီး အစားထိုးပါ။

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. ထို့နောက်၊ "" အရ ဤ macro ကို Quick Access Toolbar တွင်ထည့်ပါ။သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။"။
5. နောက်ပိုင်းတွင်၊ သင်သည် ယခု macro ကို စမ်းကြည့်နိုင်ပါသည်။

• အရင်းအမြစ်အီးမေးလ်များကိုဖွင့်ပါ။
• ထို့နောက် Quick Access Toolbar ရှိ မက်ခရိုခလုတ်ကို နှိပ်ပါ။
• ထို့နောက်၊ သင်သည် သီးခြားစာသားများကို ရှာဖွေပြီး အစားထိုးရန် လိုအပ်သည်။
• သင်သည် "ပြီးမြောက်သည်" အမှာစာရရှိသောအခါ၊ အရင်းအမြစ်အီးမေးလ်များကိုသင်စစ်ဆေးနိုင်သည်။

မမျှော်လင့်ထားသော ပျက်စီးမှုများမှ Outlook ကို ပြန်လည်ရယူပါ။

သင့် Outlook ကို မှားယွင်းစွာကိုင်တွယ်ပါက Outlook သည် ယခုပျက်သွားနိုင်သည်။ ထို့အပြင်၊ ပုံမှန်အားဖြင့်၊ ပြင်းထန်သော Outlook ပျက်ကျမှုဖြစ်စဉ်တွင်၊ သင်၏ Outlook ဖိုင်သည် ပျက်စီးသွားတတ်သည်။ ထိုအချိန်တွင်၊ သင်သည် Outlook ဒေတာပြန်လည်ရယူရန်ကြိုးစားရန်ရှိသည်။ သင့်တွင် နောက်ဆုံးပေါ်ဒေတာ အရန်သိမ်းဆည်းထားလျှင် အလွန်ရိုးရှင်းပါသည်။ သို့ သော် မဟုတ်ပါက၊ သင်ကဲ့သို့ အသိဉာဏ်နှင့် ချေးငွေရနိုင်သော ပြင်ပကိရိယာကို အသုံးပြုရန် လိုအပ်ပါသည်။ DataNumen Outlook Repair။ ဖြစ်နိုင်ပါသည် PST ကိုပြင်ပါ။ ချွေးမချိုးဘဲ ဖိုင်။

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ mdf ပြုပြင်ခြင်း။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com