როგორ მოვიძიოთ და შევცვალოთ ტექსტი რამდენიმე Outlook ელფოსტაში

ნაგულისხმევად, Outlook-ს არ აქვს მხარდაჭერა, რომ იპოვოთ და შეცვალოთ ტექსტი რამდენიმე ელ.წერილში ერთდროულად. ამიტომ, თუ გსურთ ამის გაკეთება, შეგიძლიათ მიმართოთ ამ სტატიას. აქ ჩვენ გასწავლით თუ როგორ უნდა გააცნობიეროთ ის VBA კოდის საშუალებით.

მაგალითად, თქვენ დაასრულეთ რამდენიმე წერილი Outlook-ში. სანამ მათ გაგზავნით, აღმოაჩენთ შეცდომებს და გსურთ შეცვალოთ რამდენიმე ტექსტი ამ წერილებში. ზოგადად, თქვენ უნდა შეასრულოთ „ძებნა და ჩანაცვლება“ თითოეულ ელფოსტაში სათითაოდ. თუმცა, ეს ძალიან რთულია. ამრიგად, აქ ჩვენ გაჩვენებთ უფრო ეფექტურ გზას, რომელიც საშუალებას მოგცემთ განახორციელოთ ის ნაყარი.

ჯგუფური პოვნა და ჩანაცვლება ტექსტის მრავალ წერილში

1. დასაწყებად, გაუშვით თქვენი Outlook პროგრამა.
2. შემდეგ, შედით VBA რედაქტორზე "Alt + F11" ღილაკების საშუალებით.
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. ამის შემდეგ, დაამატეთ ეს მაკრო სწრაფი წვდომის ინსტრუმენტთა პანელში "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
5. შემდგომში, შეგიძლიათ სცადოთ ეს მაკრო ახლა.

• გახსენით წყაროს ელ.წერილი.
• შემდეგ დააჭირეთ მაკრო ღილაკს სწრაფი წვდომის ინსტრუმენტთა პანელში.
• შემდეგი, თქვენ უნდა შეიყვანოთ კონკრეტული ტექსტები, რომ იპოვოთ და შეცვალოთ.
• როდესაც მიიღებთ მოთხოვნას „დასრულებულია“, შეგიძლიათ შეამოწმოთ წყაროს ელ.წერილი.

Outlook-ის აღდგენა მოულოდნელი ავარიებისგან

Outlook-ს შეუძლია დროდადრო ავარია მოხდეს, თუ თქვენს Outlook-ს არასწორად ამუშავებთ. უფრო მეტიც, ჩვეულებრივ, Outlook-ის მძიმე ავარიის შემთხვევაში, თქვენი Outlook ფაილი კორუმპირებულია. ამ დროს, თქვენ უნდა სცადოთ Outlook მონაცემების აღდგენა. რა თქმა უნდა, საგრძნობლად მარტივი იქნება, თუ თქვენ გაქვთ მონაცემთა განახლებული სარეზერვო ასლი. მაგრამ თუ არა, თქვენ მოგიწევთ გამოიყენოთ მყარი და სანდო გარე ინსტრუმენტი, მაგალითად DataNumen Outlook Repair. Მას შეუძლია შეასწორეთ PST ფაილი ოფლის გაფუჭების გარეშე.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის mdf-ის შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად