Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս տեղափոխել էլփոստի հաղորդագրությունը նշված թղթապանակ Outlook- ում կարդալուց հետո:

Կարդալուց հետո էլփոստի հաղորդագրությունը նշված թղթապանակ տեղափոխելը Outbox- ում Inbox թղթապանակը մաքուր պահելու լավագույն միջոցն է: Outlook- ի շատ օգտվողների համար նրանք հակված են կանոն ստեղծել այս ընթերցված էլ-նամակների տեղափոխման համար: Իրականում, Outlook- ը չի աջակցում այս կանոնի կախարդի գործընթացին: Այս հոդվածում մենք ձեզ ցույց կտանք, թե ինչպես տեղափոխել էլփոստի հաղորդագրությունները նշված թղթապանակ Outlook- ում VBA կոդով կարդալուց հետո:

Outlook- ում կարդալուց հետո էլփոստի հաղորդագրությունը տեղափոխեք նշված թղթապանակ

Office Tab - Միացրեք ներդիրներով խմբագրումը և զննարկումը Microsoft Office-ում, ինչը հեշտացնում է աշխատանքը
Kutools Outlook-ի համար - Բարձրացրեք Outlook-ը 100+ առաջադեմ հատկություններով բարձր արդյունավետության համար
Ամրապնդեք ձեր Outlook 2021 - 2010 կամ Outlook 365 այս առաջադեմ գործառույթները: Վայելեք համապարփակ 60-օրյա անվճար փորձարկումը և բարձրացրեք ձեր էլփոստի փորձը:

նետ կապույտ աջ պղպջակOutlook- ում կարդալուց հետո էլփոստի հաղորդագրությունը տեղափոխեք նշված թղթապանակ

Outlook- ում VBA կոդով աշխատելուց հետո կարող եք էլփոստի հաղորդագրությունները տեղափոխել նշված թղթապանակ:

1. Նախ, անհրաժեշտ է ստեղծել նոր պանակի անուն «Վերանայվեն»Մուտքի արկղի պանակի տակ:

2. Բացեք Մուտքի արկղի պանակը, այնուհետև սեղմեք կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3. Ապա կրկնակի կտտացրեք ՝ ընդլայնելու համար Project1 > Microsoft Outlook օբյեկտներ > ԱյսOutlookSession- ը բացելու համար 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) Ընտրեք Projectրագիր 1: ԱյսOutlookSession- ը տուփի տակ Ընտրեք հրամաններ բացվող ցուցակ;

3) Սեղմիր Ավելացնել կոճակ;

4) Սեղմիր OK կոճակը:

8. Ապա դուք կարող եք տեսնել այն Մակրո կոճակը ցույց է տալիս Արագ մուտք Գործիքադարակը, Համոզվեք, որ գտնվում եք մուտքի արկղի այն թղթապանակում, որտեղից ցանկանում եք տեղափոխել կարդացած բոլոր հաղորդագրությունները, այնուհետև կտտացրեք այն Մակրո կոճակը մուտքի արկղում VBA կոդի գործարկման համար:

Notes:

1. Այս VBA կոդը կարող է կիրառվել Outlook 2007, 2010 և 2013 թվականներում. Բայց Outlook 2007-ում դուք կարող եք ուղղակիորեն սեղմել այն Վազում կոդ ՝ կոդն աշխատեցնելու համար:

2. Եթե ձեր Outlook- ում առկա են էլփոստի մի քանի հաշիվներ, VBA կոդը կարող է կիրառվել միայն այն հաշվի մեջ, որի տվյալների ֆայլը նախադրված է որպես լռելյայն: Կարող եք ստուգել տվյալների լռելյայն ֆայլը ՝ կտտացնելով Ֆայլ > Info > Հաշվի կարգավորումները > Հաշվի կարգավորումները բացելու համար Հաշվի կարգավորումները երկխոսության տուփ: Հետո գնա դեպի Տվյալների ֆայլ էջանիշ, դուք կտեսնեք, որ տվյալների լռելյայն ֆայլը նշված է նախքան.

3. Եթե ցանկանում եք տվյալների լռելյայն ֆայլը փոխել մեկ այլ էլփոստի հաշվի, խնդրում ենք ընտրել և ընդգծել այն հաշիվը, որը ցանկանում եք տեղադրել որպես լռելյայն, ապա կտտացրեք Սահմանեք որպես Default է Հաշվի կարգավորումները երկխոսության վանդակում:

4. Երբ առաջին անգամ գործարկեք VBA կոդը և պարզեք, որ կարդացված հաղորդագրությունները միանգամից չեն տեղափոխվում, շարունակեք կտտացնել մակրո կոճակին, մինչև ներարկղի բոլոր ընթերցված հաղորդագրությունները տեղափոխվեն:


Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ ProԽմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 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