Перейти до основного матеріалу

Як перемістити повідомлення електронної пошти до вказаної папки після читання в Outlook?

Переміщення повідомлення електронної пошти до вказаної папки після прочитання - найкращий спосіб підтримувати чистоту папки "Вхідні" в Outlook. Для багатьох користувачів Outlook вони схильні створювати правило для переміщення цих прочитаних електронних листів. Насправді Outlook не підтримує цей процес роботи майстра правил. У цій статті ми покажемо вам, як перемістити повідомлення електронної пошти до вказаної папки після читання за допомогою коду VBA в Outlook.

Перемістіть повідомлення електронної пошти до вказаної папки після прочитання в Outlook

Вкладка Office - увімкніть редагування та перегляд із вкладками в Microsoft Office, що полегшить роботу
Kutools для Outlook - покращте Outlook за допомогою 100+ розширених функцій для надзвичайної ефективності
Покращіть свій Outlook 2021 - 2010 або Outlook 365 за допомогою цих розширених функцій. Насолоджуйтесь повною 60-денною безкоштовною пробною версією та покращте роботу електронної пошти!

стрілка синя права міхурПеремістіть повідомлення електронної пошти до вказаної папки після прочитання в Outlook

Ви можете переміщати повідомлення електронної пошти до вказаної папки після читання із запущеним кодом VBA в Outlook.

1. По-перше, вам потрібно створити нову назву папки “Відгук”У папці Вхідні.

2. Відкрийте папку "Вхідні", а потім натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. Потім двічі клацніть, щоб розгорнути Project1 > Об'єкти Microsoft Outlook > ThisOutlookSession відкрити VbaProject.OTM редактор.

4. Потім скопіюйте та вставте наведений нижче код VBA у редактор VbaProject.OTM, як показано на скріншоті вище.

Код VBA: переміщення повідомлень після прочитання

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5 Потім натисніть на зберегти , щоб зберегти код VBA, а потім закрити Microsoft Visual Basic для додатків вікна.

6. Клацніть правою кнопкою миші Панель швидкого доступу, і виберіть Налаштування панелі швидкого доступу з меню правої клавіші миші. Дивіться знімок екрана:

7 В Параметри Outlook у діалоговому вікні потрібно:

1). Виберіть Макрос в Виберіть команди з випадаючий список;

2). Виберіть Проект1. ThisOutlookSession у вікні під Виберіть команди з випадаючий список;

3). Клацніть на додавати кнопка;

4). Клацніть на OK кнопки.

8. Тоді ви можете побачити Macro кнопка, що відображається в Панель швидкого доступу. Переконайтеся, що ви знаходитесь у папці "Вхідні", з якої ви хочете перемістити всі прочитані повідомлення, а потім клацніть на Macro для запуску коду VBA всередині папки "Вхідні".

примітки:

1. Цей код VBA можна застосувати в Outlook 2007, 2010 та 2013; Але в Outlook 2007 ви можете натиснути безпосередньо на прогін для запуску коду.

2. Якщо у вашому Outlook існує кілька облікових записів електронної пошти, код VBA може застосовуватися лише в тому обліковому записі, файл даних якого встановлено за замовчуванням. Ви можете перевірити файл даних за замовчуванням, натиснувши філе > інформація > Налаштування облікового запису > Налаштування облікового запису відкрити Налаштування облікового запису діалогове вікно. Тоді перейдіть до Файл даних на вкладці ви побачите файл даних за замовчуванням позначений раніше.

3. Якщо ви хочете змінити файл даних за замовчуванням на інший обліковий запис електронної пошти, виберіть та виділіть обліковий запис, який потрібно встановити за замовчуванням, а потім натисніть Встановити за замовчуванням в Налаштування облікового запису діалогове вікно.

4. Під час першого запуску коду VBA та виявлення, що прочитані повідомлення не переміщуються одразу, продовжуйте натискати кнопку «Макрос», доки всі прочитані повідомлення у папці «Вхідні» не будуть переміщені.


Найкращі інструменти продуктивності офісу

Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення ProПакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

 

 

 

Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
This comment was minimized by the moderator on the site
has anyone had this not work the second time you tried to apply it?
This comment was minimized by the moderator on the site
Buongiorno


Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
This comment was minimized by the moderator on the site
What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
This comment was minimized by the moderator on the site
Where's all the Dim's?????????????????????/ o.0
This comment was minimized by the moderator on the site
I tried the above method but nothing happens. I verified the folder name was accurate and in the right location. I also set my main account as default, where i will be moving read messages from. I click on the Macro button...nothing. Help. Did I miss something.
This comment was minimized by the moderator on the site
You have to activate the references in VBA
This comment was minimized by the moderator on the site
Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations