Si të gjeni dhe zëvendësoni tekstin në grup në shumë emaile të Outlook

Si parazgjedhje, Outlook nuk ju mbështet të gjeni dhe zëvendësoni tekstin në shumë email në të njëjtën kohë. Prandaj, nëse dëshironi ta bëni këtë, mund t'i referoheni këtij artikulli. Këtu do t'ju mësojmë se si ta realizoni atë nëpërmjet kodit VBA.

Për shembull, ju keni përfunduar disa emaile në Outlook. Përpara se t'i dërgoni ato, zbuloni disa gabime dhe dëshironi të modifikoni disa tekste në këto email. Në përgjithësi, duhet të kryeni 'Gjeni dhe Zëvendësoni' në çdo email një nga një. Megjithatë, është shumë e rëndë. Kështu këtu ne do t'ju tregojmë një mënyrë më efektive, e cila mund t'ju lejojë ta përmbushni atë në masë.

Gjeni dhe zëvendësoni tekstin në grup në shumë emaile

1. Për të filluar, nisni programin tuaj Outlook.
2. Pastaj, hyni në redaktuesin VBA përmes tasteve "Alt + F11".
3. Në dritaren e re, vendosni kodin VBA më poshtë në një modul ose projekt.

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. Pas kësaj, shtoni këtë makro në shiritin e veglave të aksesit të shpejtë sipas "Si të ekzekutoni kodin VBA në Outlook tuaj".
5. Më pas, mund ta provoni këtë makro tani.

• Hapni emailet burimore.
• Pastaj, klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
• Më pas, duhet të futni tekstet specifike për t'i gjetur dhe zëvendësuar.
• Kur të merrni kërkesën "Përfunduar", mund të kontrolloni emailet burimore.

Rikthe Outlook nga përplasjet e papritura

Outlook mund të rrëzohet herë pas here nëse e trajtoni Outlook-in tuaj në mënyrë jo të duhur. Për më tepër, zakonisht, në rast të dështimit të rëndë të Outlook, skedari juaj i Outlook priret të jetë i korruptuar. Në atë kohë, duhet të provoni rikuperimin e të dhënave të Outlook. Sigurisht, do të jetë shumë e thjeshtë nëse keni një kopje rezervë të përditësuar të të dhënave. Por nëse jo, do t'ju kërkohet të aplikoni një mjet të jashtëm bindshëm dhe të besueshëm, si p.sh DataNumen Outlook Repair. Mundet rregulloni PST dosje pa u djersitur.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com