Thông thường, để xem các địa chỉ liên kết, bạn cần di chuột qua văn bản hiển thị. Bài viết này sẽ hướng dẫn bạn sử dụng VBA để hiển thị tất cả các địa chỉ trong một email chỉ bằng một cú nhấp chuột.
Như bạn đã biết, ngoài việc thêm trực tiếp URL vào nội dung email, bạn được phép chèn siêu liên kết vào văn bản. Trong trường hợp này, bạn sẽ không thể xem trực tiếp các địa chỉ siêu liên kết. Bạn cần di con trỏ qua văn bản đang hiển thị. Tuy nhiên, sẽ khá tẻ nhạt nếu có quá nhiều siêu liên kết như vậy trong email hiện tại khi bạn phải kiểm tra từng địa chỉ một.
Để giải quyết vấn đề này, ở đây chúng tôi sẽ trình bày một phương pháp nhanh chóng sử dụng VBA để giúp bạn trích xuất và hiển thị trực tiếp tất cả các địa chỉ siêu liên kết. Bằng cách này, những gì bạn cần làm chỉ đơn giản là một cú nhấp chuột. Bây giờ hãy đọc tiếp để biết các bước phức tạp và mã VBA.
Trích xuất và hiển thị tất cả các địa chỉ siêu liên kết trong email
- Trước tiên, hãy khởi chạy ứng dụng Outlook của bạn.
- Sau đó nhấn các nút phím “Alt + F11” trong cửa sổ chính của Outlook.
- Tiếp theo, bạn sẽ có quyền truy cập thành công vào trình soạn thảo Outlook VBA.
- Sau đó, bạn sẽ được yêu cầu mở một mô-đun không được sử dụng.
- Sau đó, sao chép và dán các mã VBA sau vào mô-đun này.
Sub ShowAllHyperlinkAddresses()
Dim objMail As Outlook.MailItem
Dim objWordDocument As Word.Document
Dim objWordApp As Word.Application
Dim objWordSelection As Word.Selection
Dim objHyperlinks As Word.Hyperlinks
Dim objHyperlink As Word.Hyperlink
Dim strLink As String
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objWordDocument = objMail.GetInspector.WordEditor
Set objWordApp = objWordDocument.Application
Set objHyperlinks = objWordDocument.Hyperlinks
If objHyperlinks.Count > 0 Then
For Each objHyperlink In objHyperlinks
strLink = objHyperlink.Address
strLink = vbTab & "<" & strLink & ">"
objHyperlink.Range.InsertAfter strLink
objHyperlink.Delete
With objWordApp.Options
.AutoFormatReplaceHyperlinks = True
.AutoFormatApplyOtherParas = False
.AutoFormatApplyHeadings = False
.AutoFormatApplyBulletedLists = False
.AutoFormatApplyLists = False
.AutoFormatApplyFirstIndents = False
End With
Set objWordSelection = objWordApp.Selection
objWordSelection.Range.AutoFormat
Next
End If
End Sub
- Sau này, để thuận tiện sau này, bạn nên thêm macro mới vào Thanh công cụ truy cập nhanh của cửa sổ thông báo.
- Ngoài ra, bạn phải đảm bảo rằng cài đặt macro Outlook của bạn cho phép macro.
- Cuối cùng bạn có thể có một thử.
- Đầu tiên, hãy mở một email chứa nhiều siêu liên kết.
- Sau đó chuyển sang chế độ có thể chỉnh sửa. Chỉ cần nhấp vào “Hành động” > “Chỉnh sửa tin nhắn”.
- Tiếp theo, nhấp vào nút macro trong Thanh công cụ truy cập nhanh.
- Đồng thời, tất cả các địa chỉ siêu liên kết sẽ được trích xuất và hiển thị như ảnh chụp màn hình sau:
Không miễn nhiễm với các vấn đề về Outlook
Mặc dù Outlook cung cấp cho người dùng rất nhiều chức năng linh hoạt nhưng nó vẫn không tránh khỏi những lỗi và treo máy. Do đó, nếu bạn muốn bảo vệ dữ liệu Outlook của mình khỏi bị hỏng hoặc mất mát, bạn phải nỗ lực rất nhiều. Chẳng hạn, bạn cần kiên trì sao lưu dữ liệu Outlook thường xuyên. Tất nhiên, sẽ tốt hơn nhiều nếu bạn chuẩn bị một lực lượng mạnh. Phục hồi Outlook công cụ, chẳng hạn như DataNumen Outlook Repair.
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 sql bị hỏng 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