Salt la conținutul principal

Cum să mutați mesajul de e-mail în folderul specificat după ce ați citit în Outlook?

Mutarea mesajului de e-mail într-un folder specificat după citire este cel mai bun mod de a păstra folderul Inbox curat în Outlook. Pentru mulți utilizatori Outlook, ei tind să creeze o regulă pentru aceste e-mailuri citite în mișcare. De fapt, Outlook nu acceptă acest proces de asistență pentru reguli. În acest articol, vă vom arăta cum să mutați mesajele de e-mail în folderul specificat după ce ați citit cu codul VBA în Outlook.

Mutați mesajul de e-mail în folderul specificat după ce ați citit în Outlook

Office Tab - Activați editarea cu file și navigarea în Microsoft Office, făcând munca o briză
Kutools pentru Outlook - Îmbunătățiți Outlook cu peste 100 de caracteristici avansate pentru o eficiență superioară
Îmbunătățiți-vă Outlook 2021 - 2010 sau Outlook 365 cu aceste funcții avansate. Bucurați-vă de o perioadă de încercare gratuită cuprinzătoare de 60 de zile și îmbunătățiți-vă experiența prin e-mail!

săgeată albastru dreapta balonMutați mesajul de e-mail în folderul specificat după ce ați citit în Outlook

Puteți muta mesajele de e-mail într-un folder specificat după ce ați citit cu rularea codului VBA în Outlook.

1. În primul rând, trebuie să creați un nou nume de folder „Reviewed”Din folderul Mesaje primite.

2. Deschideți folderul Inbox, apoi vă rugăm să apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. Apoi faceți dublu clic pentru a extinde Project1 > Obiecte Microsoft Outlook > Această sesiune Outlook pentru a deschide VbaProject.OTM Editor.

4. Apoi copiați și lipiți codul VBA de mai jos în editorul VbaProject.OTM așa cum se arată în captura de ecran de mai sus.

Cod VBA: mutați mesajele după citire

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. Apoi faceți clic pe Economisiți pentru a salva codul VBA și apoi pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

6. Faceți clic dreapta pe Bara de instrumente pentru acces rapidȘi selectați Personalizați bara de instrumente cu acces rapid din meniul cu clic dreapta. Vedeți captura de ecran:

7. În Opțiuni Outlook casetă de dialog, trebuie să:

1). Selectați Macrocomenzi în Alegeți comenzi de la lista verticală;

2). Selectați Proiectul 1. ThisOutlookSession în caseta de sub Alegeți comenzi de la lista verticală;

3). Apasă pe Adăuga buton;

4). Apasă pe OK butonul.

8. Apoi puteți vedea Macro butonul care apare în Bara de instrumente pentru acces rapid. Asigurați-vă că localizați în folderul din căsuța de e-mail din care doriți să mutați toate mesajele citite, apoi faceți clic pe Macro butonul pentru a rula codul VBA în interiorul Mesajelor primite.

notițe:

1. Acest cod VBA poate fi aplicat în Outlook 2007, 2010 și 2013; Dar, în Outlook 2007, puteți face clic direct pe Alerga pentru a rula codul.

2. Dacă există mai multe conturi de e-mail existente în Outlook, codul VBA poate fi aplicat numai în contul în care fișierul de date este setat ca implicit. Puteți verifica fișierul de date implicit făcând clic pe Fișier > Informație > Setările contului > Setările contului pentru a deschide Setările contului căsuță de dialog. Apoi du-te la Fișier de date , veți vedea că fișierul de date implicit este marcat de înainte.

3. Dacă doriți să schimbați fișierul de date implicit într-un alt cont de e-mail, selectați și evidențiați contul pe care doriți să-l setați ca implicit, apoi faceți clic pe Setați ca implicit în Setările contului căsuță de dialog.

4. Când rulați codul VBA pentru prima dată și aflați că mesajele citite nu sunt mutate simultan, vă rugăm să continuați să faceți clic pe butonul Macro până când toate mesajele citite din Mesaje primite sunt mutate.


Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

 

 

 

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