Theo mặc định, Outlook không hỗ trợ bạn tìm và thay thế văn bản trong nhiều email cùng lúc. Do đó, nếu muốn thực hiện, bạn có thể tham khảo bài viết này. Ở đây chúng tôi sẽ hướng dẫn bạn cách hiện thực hóa nó thông qua mã VBA.
Ví dụ: bạn đã hoàn thành một số email trong Outlook. Trước khi gửi chúng đi, bạn phát hiện ra một số lỗi và muốn sửa đổi một số văn bản trong những email này. Nói chung, bạn phải thực hiện 'Tìm và Thay thế' trong từng email một. Tuy nhiên, nó quá cồng kềnh. Vì vậy, ở đây chúng tôi sẽ chỉ cho bạn một cách hiệu quả hơn, có thể cho phép bạn hoàn thành nó với số lượng lớn.
Hàng loạt tìm và thay thế văn bản trong nhiều email
- Trước tiên, hãy mở chương trình Outlook của bạn.
- Sau đó, truy cập trình chỉnh sửa VBA thông qua các phím “Alt + F11”.
- Trong cửa sổ mới, đặt mã VBA bên dưới vào một mô-đun hoặc dự án.
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
- Sau đó, thêm macro này vào Thanh công cụ truy cập nhanh theo “Cách chạy mã VBA trong Outlook của bạn".
- Sau đó, bạn có thể thử macro này ngay bây giờ.
- Mở các email nguồn.
- Sau đó, nhấp vào nút macro trong Thanh công cụ truy cập nhanh.
- Tiếp theo, bạn cần nhập các văn bản cụ thể để tìm và thay thế.
- Khi bạn nhận được lời nhắc “Đã hoàn thành”, bạn có thể kiểm tra các email nguồn.
Khôi phục Outlook từ các sự cố không mong muốn
Đôi khi Outlook có thể gặp sự cố nếu bạn xử lý Outlook của mình không đúng cách. Hơn nữa, thông thường, trong trường hợp Outlook gặp sự cố nghiêm trọng, tệp Outlook của bạn có xu hướng bị hỏng. Khi đó, bạn phải thử khôi phục dữ liệu Outlook. Tất nhiên, sẽ rất đơn giản nếu bạn có một bản sao lưu dữ liệu cập nhật. Nhưng nếu không, bạn sẽ được yêu cầu áp dụng một công cụ bên ngoài có uy tín và đáng tin cậy, chẳng hạn như DataNumen Outlook Repair. Nó có thể sửa PST tập tin mà không đổ mồ hôi.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa chữa mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm