Cách tự động chuyển tiếp các email đến cụ thể với chủ đề và nội dung tùy chỉnh trong Outlook

giải pháp triển vọng Tháng Chín 29, 2025

Để tự động chuyển tiếp các email đến cụ thể, trước tiên bạn sẽ nghĩ đến việc sử dụng các quy tắc trong Outlook. Tuy nhiên, quy tắc không hỗ trợ bạn tùy chỉnh chủ đề và nội dung email khi chuyển tiếp. Nếu bạn muốn tự động chuyển tiếp các email cụ thể với chủ đề và nội dung tùy chỉnh, bạn có thể sử dụng phương pháp được giới thiệu trong bài viết này.

Như chúng ta đã biết, các quy tắc của Outlook có thể hỗ trợ người dùng tự động chuyển tiếp các email đến cụ thể. Bằng cách đó, email sẽ được tự động chuyển tiếp đến những người cụ thể với chủ đề theo mẫu “FW: chủ đề thư gốc” và nội dung thư gốc. Tuy nhiên, nhiều người dùng hy vọng tự động chuyển tiếp email với chủ đề và nội dung tùy chỉnh. Rõ ràng, các quy tắc không thể nhận ra nó. Do đó, ở đây chúng tôi sẽ giới thiệu một cách tiếp cận để có được nó một cách dễ dàng.

Tự động chuyển tiếp các email đến cụ thể với chủ đề và nội dung tùy chỉnh

Ngay từ đầu, starchương trình Outlook của bạn.
Sau đó, truy cập vào trình soạn thảo VBA với tham chiếu đến “Cách chạy mã VBA trong Outlook của bạn".
Tiếp theo, sao chép và dán mã VBA sau vào dự án “ThisOutlookSession”.

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objForward As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'If it is a specific new email
       If (objMail.SenderEmailAddress = "bob_black@datanumen.com") And (objMail.Importance = olImportanceHigh) And (objMail.Attachments.Count > 0) Then
 
           Set objForward = objMail.Forward
           'Customize the forward subject, body and recipients
           With objForward
                .Subject = "Custom Subject"
                .HTMLBody = "<HTML><BODY>Type body here. </BODY></HTML>" & objForward.HTMLBody
                .Recipients.Add ("boss@datanumen.com")
                .Recipients.Add ("john@datanumen.com")
                .Recipients.ResolveAll
                .Importance = olImportanceHigh
                .Send
           End With
       End If
    End If
End Sub

Sau đó, thay đổi tiêu chí của các email đến được chỉ định. Và sửa đổi nội dung, chủ đề và người nhận cụ thể trong mã theo nhu cầu của bạn.
Cuối cùng, nhấp vào “Application_Startup” và nhấn phím “F5”.
Kể từ đó, mỗi khi một thư đến cụ thể đến trong thư mục Hộp thư đến mặc định của bạn, Outlook sẽ tự động chuyển tiếp thư đó với chủ đề và nội dung tùy chỉnh tới những người nhận được xác định trước.

Giải quyết các vấn đề về Outlook một cách linh hoạt

Mặc dù Outlook có nhiều tính năng nhưng nó không thể tránh khỏi các lỗi và sự cố khác. Ví dụ: tệp Outlook PST có thể dễ dàng bị hỏng do nhiều yếu tố. Chúng bao gồm lỗi của con người, vi-rút, tệp PST quá khổ và cấu hình Outlook bị hỏng, v.v. Do đó, bạn cần thực hiện một số biện pháp phòng ngừa, chẳng hạn như thận trọng với kích thước tệp PST của Outlook, ngăn chặn tất cả vi-rút cũng như nắm giữ một phiên bản mạnh mẽ. 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 Server phục hồi 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