Cách tự động chuyển tiếp các email đến cụ thể qua một tài khoản khác trong Outlook của bạn

Chia sẻ ngay bây giờ:

Một số người dùng đã định cấu hình nhiều tài khoản email trong Outlook và đặt một tài khoản làm tài khoản mặc định. Tuy nhiên, họ cũng muốn Outlook tự động chuyển tiếp các email đến cụ thể thông qua một tài khoản khác. Outlook không có chức năng như vậy, vì vậy nó chỉ có thể được thực hiện bằng mã VBA được chia sẻ trong bài viết này.

Chẳng hạn, bạn đã thiết lập hai tài khoản email POP3 trong Outlook của mình và đặt Tài khoản 1 làm tài khoản mặc định. Do đó, tất cả các email đến sẽ được lưu trong tệp Outlook của Tài khoản 1. Và bạn tạo quy tắc Outlook để tự động chuyển tiếp các email đến cụ thể cho người khác. Bây giờ, điều bạn hy vọng là tất cả chuyển tiếp thư được thực hiện thông qua một tài khoản email khác, cụ thể là Tài khoản 2. Tuy nhiên, quy tắc Outlook không cung cấp hành động như vậy. Vì vậy, bạn phải sử dụng các phương pháp khác, chẳng hạn như cách sau.

Tự động chuyển tiếp các email đến cụ thể qua một tài khoản khác trong Outlook của bạn

Tự động chuyển tiếp các email đến cụ thể qua một tài khoản khác

  1. Để bắt đầu, trong Outlook, hãy truy cập trình chỉnh sửa VBA thông qua “Alt + F11”.
  2. Sau đó, trong trình chỉnh sửa VBA, hãy đặt mã VBA sau vào một mô-đun nhàn rỗi.
Sub AutoForwardMailsThroughAnotherAccount(objMail As Outlook.MailItem)
    Dim objForwardMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objMailAccounts As Outlook.Accounts
    Dim objMailAccount As Outlook.Account
 
    Set objForwardMail = objMail.Forward
    'Change the recipients of forwarding email
    Set objRecipient = objForwardMail.Recipients.Add("shelly@datanumen.com")
    objRecipient.Type = olTo
    objForwardMail.Recipients.ResolveAll
 
    Set objMailAccounts = Outlook.Application.Session.Accounts
    For Each objMailAccount In objMailAccounts
        'Replace "John Smith" with the display name of your email account
        If objMailAccount.DisplayName = "John Smith" Then
           objForwardMail.SendUsingAccount = objMailAccount
           objForwardMail.Send
        End If
    Next
End Sub

Mã VBA - Tự động chuyển tiếp qua tài khoản khác

  1. Tiếp theo, thoát khỏi trình soạn thảo VBA.
  2. Sau đó, nhấp vào “Quy tắc” > “Quản lý Quy tắc & Cảnh báo” trên tab “Trang chủ”.Quản lý Quy tắc & Cảnh báo
  3. Sau đó, trong hộp thoại mới, nhấn “Quy tắc mới”.Quy tắc mới
  4. Sau đó, một hộp thoại khác sẽ hiển thị, trong đó bạn cần chọn “Áp dụng quy tắc cho các tin nhắn tôi nhận được” và nhấp vào “Tiếp theo”.Áp dụng quy tắc về thư tôi nhận được
  5. Tiếp theo, trong màn hình mới, bạn cần đặt điều kiện quy tắc, chẳng hạn như “có các từ cụ thể trong chủ đề” và nhấn “Tiếp theo”.Đặt điều kiện quy tắc
  6. Trong màn hình tiếp theo, bạn phải chọn “chạy tập lệnh” và chọn macro mới mà bạn vừa thêm vào.Chạy script
  7. Sau đó, bạn có thể hoàn tất thiết lập quy tắc theo trình hướng dẫn trên màn hình.
  8. Từ giờ trở đi, mỗi khi một email cụ thể đến hộp thư cụ thể, Outlook sẽ tự động chuyển tiếp email đó qua một tài khoản email cụ thể khác.

Cứu hộ dữ liệu Outlook sau khi bị hư hỏng

Mặc dù Outlook cung cấp nhiều chức năng, nhưng nó vẫn không tránh khỏi lỗi và hỏng hóc. Nếu Outlook của bạn đột ngột gặp sự cố, rất có thể tệp dữ liệu Outlook của bạn có thể bị hỏng. Vào thời điểm đó, ngay cả những người có sẵn Sửa chữa Outlook công cụ, Scanpst, không thể giúp bạn. Bạn không có lựa chọn nào khác ngoài việc sử dụng một công cụ bên ngoài đáng gờm, 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

Chia sẻ ngay bây giờ:

Được đóng lại.