Как да преместя имейл съобщение в определена папка след четене в Outlook?
Преместването на имейл съобщение в определена папка след прочитане е най-добрият начин да поддържате папката Inbox чиста в Outlook. За много потребители на Outlook те са склонни да създават правило за преместване на тези прочетени имейли. Всъщност Outlook не поддържа този процес на съветника за правила. В тази статия ще ви покажем как да преместите имейл съобщения в определена папка след четене с VBA код в Outlook.
Преместване на имейл съобщение в определена папка след четене в Outlook
- Автоматизирайте изпращането на имейл с Автоматично CC/BCC, Автоматично препращане по правила; изпрати Автоматичен отговор (Извън офиса) без да е необходим сървър за обмен...
- Получавайте напомняния като BCC Предупреждение когато отговаряте на всички, докато сте в списъка BCC, и Напомняне при липсващи прикачени файлове за забравени прикачени файлове...
- Подобрете ефективността на имейл с Отговор (на всички) с прикачени файлове, Автоматично добавяне на поздрав или дата и час в подпис или тема, Отговорете на няколко имейла...
- Опростете изпращането на имейл с Извикване на имейли, Инструменти за прикачване (Компресиране на всички, автоматично запазване на всички...), Премахване на дубликати, и Бърз доклад...
Преместване на имейл съобщение в определена папка след четене в 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. След това кликнете върху Save бутон, за да запазите VBA кода и след това да затворите Microsoft Visual Basic за приложения прозорец.
6. Щракнете с десния бутон върху Лента с инструменти за бърз достъп, и изберете Персонализирайте лентата с инструменти за бърз достъп от менюто с десен бутон. Вижте екранна снимка:
7. В Outlook Options диалогов прозорец, трябва да:
1). Изберете Макроси в Изберете команди от падащ списък;
2). Изберете Проект1. ThisOutlookSession в полето под Изберете команди от падащ списък;
3). Щракнете върху Добави бутон;
4). Щракнете върху OK бутон.
8. След това можете да видите Макро бутон, показващ се в Лента с инструменти за бърз достъп. Уверете се, че се намирате във входящата папка, от която искате да преместите всички прочетени съобщения, след което щракнете върху Макро бутон за стартиране на VBA кода във входящата кутия.
бележки:
1. Този VBA код може да се приложи в Outlook 2007, 2010 и 2013; Но в Outlook 2007 можете директно да щракнете върху бягане бутон за изпълнение на кода.
2. Ако във вашия Outlook съществуват няколко имейл акаунта, VBA кодът може да се приложи само в акаунта, чийто файл с данни е зададен като стандартен. Можете да проверите файла с данни по подразбиране, като щракнете досие > Информация > Настройки на профила > Настройки на профила за да отворите Настройки на профила диалогов прозорец. След това отидете на Файл с данни ще видите, че файлът с данни по подразбиране е маркиран с преди.
3. Ако искате да промените файла с данни по подразбиране на друг имейл акаунт, моля, изберете и маркирайте акаунта, който искате да зададете по подразбиране, след което щракнете върху Е активирана по подразбиране в Настройки на профила диалогов прозорец.
4. Когато стартирате кода на VBA за първи път и установите, че прочетените съобщения не са преместени всички наведнъж, моля, продължете да щраквате върху бутона Макро, докато всички прочетени съобщения във входящата кутия бъдат преместени.
Най-добрите инструменти за продуктивност в офиса
Kutools за Outlook - Над 100 мощни функции, за да заредите вашия Outlook
🤖 AI Mail Assistant: Незабавни професионални имейли с AI магия - с едно щракване до гениални отговори, перфектен тон, многоезично владеене. Трансформирайте имейла без усилие! ...
📧 Автоматизиране на имейли: Извън офиса (налично за POP и IMAP) / График за изпращане на имейли / Автоматично CC/BCC по правила при изпращане на имейл / Автоматично пренасочване (разширени правила) / Автоматично добавяне на поздрав / Автоматично разделяне на имейлите с множество получатели на отделни съобщения ...
📨 Управление на Email: Лесно извикване на имейли / Блокиране на измамни имейли по теми и други / Изтриване на дублирани имейли / подробно търсене / Консолидиране на папки ...
📁 Прикачени файлове Pro: Пакетно запазване / Партидно отделяне / Партиден компрес / Автоматично запазване / Автоматично отделяне / Автоматично компресиране ...
🌟 Магия на интерфейса: 😊 Още красиви и готини емотикони / Увеличете продуктивността на Outlook с изгледи с раздели / Минимизирайте Outlook, вместо да затваряте ...
???? Чудеса с едно кликване: Отговорете на всички с входящи прикачени файлове / Антифишинг имейли / 🕘Показване на часовата зона на подателя ...
👩🏼🤝👩🏻 Контакти и календар: Групово добавяне на контакти от избрани имейли / Разделете група контакти на отделни групи / Премахнете напомнянията за рожден ден ...
Над 100 Характеристики Очаквайте вашето проучване! Щракнете тук, за да откриете повече.