Varsayılan olarak, Outlook aynı anda birden çok e-postada metin bulmanızı ve değiştirmenizi desteklemez. Bu nedenle, yapmak istiyorsanız, bu makaleye başvurabilirsiniz. Burada size VBA kodu ile nasıl gerçekleştireceğinizi öğreteceğiz.
Örneğin, Outlook'ta birkaç e-posta bitirdiniz. Onları göndermeden önce, bazı hatalar keşfedersiniz ve bu e-postalardaki bazı metinleri değiştirmek istersiniz. Genel olarak, her e-postada tek tek 'Bul ve Değiştir' işlemini yapmanız gerekir. Yine de çok zahmetli. Bu nedenle, burada size daha etkili bir yol göstereceğiz, bu da bunu toplu olarak gerçekleştirmenize izin verebilir.
Birden Çok E-postadaki Metni Toplu Bul ve Değiştir
- Öncelikle Outlook programınızı başlatın.
- Daha sonra “Alt + F11” tuşları ile VBA editörüne erişin.
- Yeni pencerede, aşağıdaki VBA kodunu bir modüle veya projeye yerleştirin.
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
- Ardından bu makroyu “Hızlı Erişim Araç Çubuğuna” göre ekleyin.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
- Akabinde, şimdi bu makroyu deneyebilirsiniz.
- Kaynak e-postaları açın.
- Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesine tıklayın.
- Ardından, bulmak ve değiştirmek için belirli metinleri girmeniz gerekir.
- "Tamamlandı" istemini aldığınızda, kaynak e-postaları kontrol edebilirsiniz.
Outlook'u Beklenmedik Çökmelerden Kurtarın
Outlook'unuzu yanlış kullanırsanız, Outlook ara sıra çökebilir. Dahası, genellikle şiddetli Outlook çökmesi durumunda, Outlook dosyanız bozulma eğilimindedir. O zaman, Outlook veri kurtarmayı denemeniz gerekir. Elbette, güncel bir veri yedeğiniz varsa, oldukça basit olacaktır. Ancak değilse, inandırıcı ve güvenilir bir harici araç uygulamanız gerekir. DataNumen Outlook Repair. Bu olabilir PST'yi düzelt ter dökmeden dosyalayın.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf onarımı ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com