Ինչպե՞ս տեղափոխել էլփոստերը նշված թղթապանակ Outlook- ում որոշակի կատեգորիա հատկացնելուց հետո:
Ենթադրելով, որ ձեր Outlook- ում ստացված էլ.փոստին կատեգորիա եք նշանակել, կատեգորիա նշանակելուց հետո ցանկանում եք, որ այս էլ.փոստը ավտոմատ տեղափոխվի կատեգորիայի անունով նշված որոշակի էլ.փոստի պանակ: Օրինակ ՝ «Մասնավոր» կատեգորիայի հետ կապված էլ. Փոստը ձեր Outlook- ում կտեղափոխվի «Մասնավոր» պանակի անուն: Ինչպե՞ս հասնել դրան: Այս հոդվածի մեթոդը կարող է օգնել ձեզ հեշտությամբ լուծել խնդիրը:
VBA- ով որոշակի կատեգորիա հատկացնելուց հետո էլ-նամակները տեղափոխեք նշված թղթապանակ
VBA- ով որոշակի կատեգորիա հատկացնելուց հետո էլ-նամակները տեղափոխեք նշված թղթապանակ
Ստորև ներկայացված VBA կոդը կարող է օգնել Outlook- ում որոշակի կատեգորիա հատկացնելուց հետո էլ-նամակները ավտոմատ կերպով տեղափոխել նշված թղթապանակ: Խնդրում եմ, արեք հետևյալ կերպ.
1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի կտտացրեք ՝ բացելու պատուհանը ThisOutlookSession (ծածկագիր) պատուհան Դրանից հետո պատճենեք ներքևում գտնվող VBA կոդը պատուհանում: Տեսեք,
VBA կոդ. Որոշակի կատեգորիա հատկացնելուց հետո էլ-նամակները տեղափոխեք նշված թղթապանակ
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. Պահպանեք կոդը և վերագործարկեք Outlook-ը:
4. Այսուհետ, ստացող էլ.փոստին կատեգորիա հատկացնելիս, կատեգորիայի անունով թղթապանակ կստեղծվի ավտոմատ կերպով Մուտքի թղթապանակի տակ, որտեղ էլփոստը տեղափոխվել է: Տես սքրինշոթը.
ՆշումԲոլոր նամակները, որոնք վերագրված են նույն կատեգորիայի, ավտոմատ կերպով կտեղափոխվեն նույն թղթապանակ: Բայց եթե էլփոստին նոր կատեգորիա է հատկացվել, նոր թղթապանակ կստեղծվի ավտոմատ կերպով:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս կատեգորիա նշանակել ելքային էլ. Փոստին Outlook- ում:
- Ինչպե՞ս պահել բնօրինակ կատեգորիաները Outlook- ում էլ-նամակը պատասխանելիս կամ փոխանցելիս:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: