Cách tự động mở email đã nhận/đã gửi ở chế độ “Chỉnh sửa” với Outlook VBA

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

Để thay đổi nội dung email đã nhận hoặc đã gửi trong Outlook, bạn cần mở email đó và chuyển sang chế độ “Chỉnh sửa”. Nếu bạn thường xuyên cần chỉnh sửa các email như vậy, bạn sẽ muốn chúng tự động được mở ở chế độ “Chỉnh sửa”. Bài viết này sẽ giúp bạn thực hiện điều đó.

Đôi khi, bạn có thể cần chỉnh sửa nội dung của email đã nhận hoặc đã gửi trong Outlook. Trong trường hợp này, như đã giới thiệu trong bài viết trước – “Cách sửa đổi chủ đề và nội dung của email đã nhận trong Outlook“, bạn phải mở email và nhấp vào nút “Hành động” và chọn “Chỉnh sửa tin nhắn” để chuyển email sang chế độ “Chỉnh sửa”. Tuy nhiên, bạn có thể nghĩ rằng nó vẫn còn một chút rắc rối. Do đó, bạn muốn Outlook luôn mở các email đã nhận/đã gửi ở chế độ “Chỉnh sửa”. Sau đó, chúng tôi sẽ giới thiệu cách sử dụng mã VBA để đạt được chức năng này. Bây giờ hãy đọc tiếp để biết các bước chi tiết.

Tự động mở Email đã nhận/đã gửi ở chế độ “Chỉnh sửa”

Ngay từ đầu, có liên quan đến “Cách chạy mã VBA trong Outlook của bạn“, truy cập trình soạn thảo Outlook VBA.
Sau đó, sao chép và dán mã VBA sau vào dự án “ThisOutlookSession”.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

Sau đó, nhấp vào macro “Application_Startup” và nhấn phím “F5”.
Hiện tại, hãy đóng trình soạn thảo VBA.
Cuối cùng, bạn có thể thử. Chỉ cần nhấp đúp vào thư đã nhận hoặc đã gửi để mở. Nó chắc chắn sẽ ở chế độ “Chỉnh sửa”.

Miễn dịch khỏi mất dữ liệu Outlook

Tệp PST của bạn đã bao giờ không thể truy cập được chưa? Trên thực tế, tệp Outlook PST có thể dễ dàng bị hỏng. Chẳng hạn, vi-rút sinh ra từ email có thể dễ dàng dẫn đến sự cố Outlook và do đó dẫn đến hỏng dữ liệu Outlook. Trong những trường hợp như vậy, giải pháp đầu tiên xuất hiện trong đầu bạn có thể là công cụ sửa chữa hộp thư đến. Tuy nhiên, nói chung, nó không có khả năng đối phó với những tình huống nghiêm trọng như vậy. Do đó, chúng tôi luôn khuyên bạn nên sao lưu các tệp PST theo định kỳ, như vậy bạn có thể khôi phục dữ liệu PST từ các bản sao lưu như một cái nút chai. Nếu không, bạn phải dựa vào một công cụ bên ngoài chuyên dụng, 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 phục hồi 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