Як автоматично відкрити всі вхідні електронні листи від певної особи в Outlook?
У нашій щоденній роботі, можливо, у наш Outlook надходить багато електронних листів, у цьому випадку ви можете ігнорувати деякі важливі електронні листи від конкретної особи. Щоб уникнути пропускання важливих електронних листів від когось, ви можете зробити так, щоб електронні листи відкривалися автоматично при надходженні у ваш Outlook. У цій статті я представив код VBA для відкриття всіх листів від конкретного відправника.
Автоматично відкривайте всі вхідні електронні листи від конкретної особи за допомогою коду VBA
Автоматично відкривайте всі вхідні електронні листи від конкретної особи за допомогою коду VBA
Щоб автоматично відкрити електронні листи від певної особи, вам може допомогти наступний код VBA, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2, в Microsoft Visual Basic для додатків вікно, двічі клацніть ThisOutlookSession від Проект1 (VbaProject.OTM) , щоб відкрити режим, а потім скопіюйте та вставте наступний код у порожній модуль.
Код 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 = ";"
If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
xMailItem.Display
End Sub
примітки: У наведеному вище коді ви можете змінити адреси відправників на власні.
3. Потім збережіть і закрийте це вікно коду. Перезапустіть Outlook, щоб набув чинності код, відтепер, коли електронні листи, що надходять від вказаних вами осіб, усі вони будуть відкриватися автоматично. Дивіться знімок екрана:
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.