Làm cách nào để tự động mở tất cả các email đến từ một người cụ thể trong Outlook?

Trong công việc hàng ngày của chúng ta, có thể có nhiều email đến trong Outlook của chúng ta, trong trường hợp này, bạn có thể bỏ qua một số email quan trọng từ một người cụ thể. Để tránh bỏ lỡ một số email quan trọng từ ai đó, bạn có thể mở email tự động khi truy cập vào Outlook của mình. Trong bài viết này, tôi sẽ giới thiệu một mã VBA để mở tất cả các email từ một người gửi cụ thể.

Tự động mở tất cả các email đến từ một người cụ thể bằng mã VBA

Tự động mở tất cả các email đến từ một người cụ thể bằng mã VBA

Để tự động mở email từ một người cụ thể, mã VBA sau có thể giúp bạn, vui lòng thực hiện như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp ĐâyOutlookSession từ Project1 (VbaProject.OTM) để mở chế độ, sau đó sao chép và dán mã sau vào mô-đun trống.

Mã VBA: Tự động mở tất cả email từ một người cụ thể:

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = ";"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

doc mở email của người gửi 1

Chú thích: Trong đoạn mã trên, bạn có thể thay đổi địa chỉ của người gửi thành địa chỉ của riêng bạn.

3. Sau đó, lưu và đóng cửa sổ mã này. Khởi động lại Outlook để mã có hiệu lực, kể từ bây giờ, khi email đến từ những người bạn đã chỉ định, tất cả chúng sẽ được mở tự động. Xem ảnh chụp màn hình:

doc mở email của người gửi 2