如何在 Outlook 中自動開啟來自特定寄件人的所有郵件？
在我們的日常工作當中，可能有很多郵件進入到我們的 Outlook 中，在這種情況下，您可能會忽略來自某個特定寄件人的重要郵件。為了避免錯過某些重要郵件，您可以設置郵件在進入您的 Outlook 時自動打開。本文將介紹一段 VBA 程式碼，用於自動打開來自特定寄件人的所有郵件。
使用 VBA 程式碼自動打開來自特定寄件人的所有郵件
要自動打開來自特定寄件人的郵件，以下 VBA 程式碼可以幫助您，請按照以下步驟操作：
1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。
2. 在 Microsoft Visual Basic for Applications 視窗中，雙擊 Project1(VbaProject.OTM) 窗格中的 ThisOutlookSession 以打開模組，然後將以下程式碼複製並粘貼到空白模組中。
VBA 程式碼：自動打開來自特定寄件人的所有郵件：
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 = "yy@addin99.com;applemiemie@163.com"
If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
xMailItem.Display
End Sub
便簽：在上述程式碼中，您可以將寄件人的地址更改為您自己的地址。
3. 接著，保存並關閉此程式碼視窗。重新啟動 Outlook 以使程式碼生效，從現在開始，當指定寄件人的郵件到達時，它們將會自動打開。請參見截圖：
最佳辦公室生產力工具
最新消息：Kutools for Outlook 推出免費版本！
體驗全新 Kutools for Outlook，超過100項精彩功能！立即下載！
🤖 Kutools AI ：採用先進的AI技術輕鬆處理郵件，包括答覆、摘要、優化、擴充、翻譯及撰寫郵件。
📧 郵件自動化：自動回覆（支援POP及IMAP） / 排程發送郵件 / 發送郵件時根據規則自動抄送密送 / 自動轉發（高級規則） / 自動添加問候語 / 自動分割多收件人郵件為個別郵件 ...
📨 郵件管理：撤回郵件 / 根據主題等方式阻止詐騙郵件 / 刪除重複郵件 / 高級搜索 / 整合文件夾 ...
📁 附件專業工具：批量保存 / 批量拆離 / 批量壓縮 / 自動保存 / 自動拆離 / 自動壓縮 ...
🌟 介面魔法：😊更多精美與酷炫表情符號 /重要郵件來臨時提醒 / 最小化 Outlook 而非關閉 ...
👍 一鍵便利：帶附件全部答復 / 防詐騙郵件 / 🕘顯示發件人時區 ...
👩🏼🤝👩🏻 聯絡人與日曆：從選中郵件批量添加聯絡人 / 分割聯絡人組為個別組 / 移除生日提醒 ...
以您偏好的語言使用 Kutools，支援英語、西班牙語、德語、法語、中文及超過40種其他語言！
只需點擊一次，即可立即解鎖 Kutools for Outlook。別等了，現在下載提升您的工作效率！
🚀 一鍵下載 — 獲取全部 Office 插件
強力推薦：Kutools for Office（5合1）
一鍵下載五個安裝程式，包括 Kutools for Excel, Outlook, Word, PowerPoint及 Office Tab Pro。 立即下載！
- ✅ 一鍵便利：一次操作即可下載全部五套安裝包。
- 🚀 隨時處理任何 Office 任務：安裝您需求的插件，隨時隨地。
- 🧰 包含：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint