Varsayılan olaraq, Outlook eyni vaxtda birdən çox e-poçtda mətn tapmaq və əvəz etmək üçün sizə dəstək vermir. Buna görə də, bunu etmək istəyirsinizsə, bu məqaləyə müraciət edə bilərsiniz. Burada onu VBA kodu vasitəsilə həyata keçirməyi öyrədəcəyik.
Məsələn, Outlook-da bir neçə e-poçtu tamamladınız. Onları göndərməzdən əvvəl bəzi səhvlər aşkar edirsiniz və bu e-poçtlarda bəzi mətnləri dəyişdirmək istəyirsiniz. Ümumiyyətlə, hər bir e-poçtda "Tap və Dəyişdir" funksiyasını bir-bir yerinə yetirməlisiniz. Bununla belə, çox çətin. Beləliklə, biz sizə bunu toplu şəkildə yerinə yetirməyə imkan verən daha təsirli bir yol göstərəcəyik.
Birdən çox e-poçtda mətni tapın və dəyişdirin
- Başlamaq üçün Outlook proqramınızı işə salın.
- Sonra "Alt + F11" düymələri vasitəsilə VBA redaktoruna daxil olun.
- Yeni pəncərədə aşağıdakı VBA kodunu modul və ya layihəyə yerləşdirin.
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
- Bundan sonra, bu makrosunu "Sürətli Giriş Alətlər Panelinə əlavə edin"Outlook-da VBA kodunu necə işlətmək olar".
- Sonradan bu makronu indi sınaya bilərsiniz.
- Mənbə e-poçtlarını açın.
- Sonra, Tez Giriş Alətlər Panelində makro düyməsini basın.
- Sonra, tapmaq və dəyişdirmək üçün xüsusi mətnləri daxil etməlisiniz.
- "Tamamlandı" sorğusunu əldə etdikdə mənbə e-poçtlarını yoxlaya bilərsiniz.
Gözlənilməz qəzalardan Outlook-u bərpa edin
Outlook-u düzgün idarə etməsəniz, Outlook indi və sonra çökə bilər. Üstəlik, adətən, ciddi Outlook qəzası halında, Outlook faylınız xarab olur. Bu zaman Outlook məlumatlarını bərpa etməyə cəhd etməlisiniz. Əlbətdə ki, ən son məlumat ehtiyat nüsxəniz varsa, bu, çox sadə olacaq. Amma yoxsa, sizdən etibarlı və etibarlı xarici alət tətbiq etməniz tələb olunacaq DataNumen Outlook Repair. Mümkündür PST-ni düzəldin tər tökmədən fayl.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com