Przejdź do głównej zawartości

Jak przenieść wiadomość e-mail do określonego folderu po przeczytaniu w Outlooku?

Przeniesienie wiadomości e-mail do określonego folderu po przeczytaniu to najlepszy sposób na utrzymanie czystości folderu Skrzynka odbiorcza w programie Outlook. Dla wielu użytkowników Outlooka mają tendencję do tworzenia reguły dla przenoszenia tych przeczytanych wiadomości e-mail. W rzeczywistości program Outlook nie obsługuje tego procesu kreatora reguł. W tym artykule pokażemy, jak przenieść wiadomości e-mail do określonego folderu po przeczytaniu za pomocą kodu VBA w Outlooku.

Przenieś wiadomość e-mail do określonego folderu po przeczytaniu w programie Outlook

Karta Office — włącz edycję i przeglądanie na kartach w pakiecie Microsoft Office, dzięki czemu praca stanie się o wiele łatwiejsza
Kutools dla programu Outlook - Zwiększ wydajność programu Outlook dzięki ponad 100 zaawansowanym funkcjom zapewniającym najwyższą wydajność
Ulepsz swój program Outlook 2021–2010 lub Outlook 365 dzięki tym zaawansowanym funkcjom. Skorzystaj z kompleksowego, 60-dniowego bezpłatnego okresu próbnego i usprawnij korzystanie z poczty e-mail!

strzałka niebieski prawy bąbelekPrzenieś wiadomość e-mail do określonego folderu po przeczytaniu w programie Outlook

Możesz przenieść wiadomości e-mail do określonego folderu po przeczytaniu z uruchomionym kodem VBA w Outlooku.

1. Po pierwsze, musisz utworzyć nową nazwę folderu „przeglądowi”W folderze Skrzynka odbiorcza.

2. Otwórz folder Skrzynka odbiorcza, a następnie naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3. Następnie kliknij dwukrotnie, aby rozwinąć Project1 > Obiekty programu Microsoft Outlook > Ta sesja programu Outlook otworzyć VbaProject.OTM redaktor.

4. Następnie skopiuj i wklej poniższy kod VBA do edytora VbaProject.OTM, jak pokazano na powyższym zrzucie ekranu.

Kod VBA: przenieś wiadomości po przeczytaniu

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. Następnie kliknij przycisk Zapisz , aby zapisać kod VBA, a następnie zamknij plik Microsoft Visual Basic for Applications okno.

6. Kliknij prawym przyciskiem myszy Pasek narzędzi szybkiego dostępui wybierz Dostosuj pasek narzędzi Szybki dostęp z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

7. w Opcje programu Outlook w oknie dialogowym, musisz:

1). Wybierz Makra Wybierz polecenia z Lista rozwijana;

2). Wybierz Projekt 1. ThisOutlookSession w pudełku pod Wybierz polecenia z Lista rozwijana;

3). Kliknij Dodaj przycisk;

4). Kliknij OK przycisk.

8. Następnie możesz zobaczyć plik Macro przycisk wyświetlany w Pasek narzędzi szybkiego dostępu. Upewnij się, że znajdujesz się w folderze skrzynki odbiorczej, z którego chcesz przenieść wszystkie przeczytane wiadomości, a następnie kliknij Macro przycisk, aby uruchomić kod VBA w skrzynce odbiorczej.

Uwagi:

1. Ten kod VBA można zastosować w programach Outlook 2007, 2010 i 2013; Ale w programie Outlook 2007 możesz bezpośrednio kliknąć plik run przycisk, aby uruchomić kod.

2. Jeśli w programie Outlook istnieje wiele kont e-mail, kod VBA można zastosować tylko na koncie, dla którego plik danych jest ustawiony jako domyślny. Możesz sprawdzić domyślny plik danych, klikając filet > Informacia > Ustawienia konta > Ustawienia konta otworzyć Ustawienia konta Okno dialogowe. Następnie przejdź do Plik danych , zobaczysz, że domyślny plik danych jest oznaczony przez wcześniej.

3. Jeśli chcesz zmienić domyślny plik danych na inne konto e-mail, wybierz i zaznacz konto, które chcesz ustawić jako domyślne, a następnie kliknij Ustaw jako domyślne Ustawienia konta okno dialogowe.

4. Podczas uruchamiania kodu VBA po raz pierwszy i stwierdzenia, że ​​przeczytane wiadomości nie są przenoszone od razu, proszę klikać przycisk Makro, aż wszystkie przeczytane wiadomości w Skrzynce odbiorczej zostaną przeniesione.


Najlepsze narzędzia biurowe

Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy

🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...

📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP)  /  Zaplanuj wysyłanie wiadomości e-mail  /  Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail  /  Automatyczne przewijanie (Zasady zaawansowane)   /  Automatyczne dodawanie powitania   /  Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...

📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili  /  Blokuj oszukańcze wiadomości e-mail według tematów i innych  /  Usuń zduplikowane wiadomości e-mail  /  Wiecej opcji  /  Konsoliduj foldery ...

📁 Załączniki ProZapisz zbiorczo  /  Odłącz partię  /  Kompresuj wsadowo  /  Automatyczne zapisywanie   /  Automatyczne odłączanie  /  Automatyczna kompresja ...

🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów   /  Zwiększ produktywność programu Outlook dzięki widokom na kartach  /  Zminimalizuj program Outlook zamiast go zamykać ...

>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki  /   E-maile chroniące przed phishingiem  /  🕘Pokaż strefę czasową nadawcy ...

👩🏼‍🤝‍👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili  /  Podziel grupę kontaktów na pojedyncze grupy  /  Usuń przypomnienia o urodzinach ...

O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.

 

 

 

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