Ինչպե՞ս մաքրել բոլոր կատեգորիաները Outlook- ից:
Ենթադրենք, որ ձեր Outlook- ում գույների կատեգորիայի համար կիրառվում են բազմաթիվ իրեր: Եթե ձեզ հարկավոր է այս բոլոր կատեգորիաները մաքրել իրերից, ինչպե՞ս կարող եք արագ և հեշտությամբ զբաղվել այս գործով Outlook- ում:
Մաքրել բոլոր կատեգորիաները որոշակի պանակից `Մաքրել բոլոր կատեգորիաները հնարավորությամբ
Մաքրել բոլոր կատեգորիաները VBA կոդով հատուկ հաշվից
Մաքրել բոլոր կատեգորիաները որոշակի պանակից `Մաքրել բոլոր կատեգորիաները հնարավորությամբ
Եթե պարզապես անհրաժեշտ է որոշակի պանակում մաքրել կատեգորիաները, ապա արեք հետևյալը.
1, Կտտացրեք այն թղթապանակին, որը ցանկանում եք հեռացնել գույների կատեգորիաները, ապա սեղմել Ctrl + A բոլոր կետերը ընտրելու համար:
2, Հետո աջ կտտացրեք, ապա ընտրեք Կատեգորիաներ > Մաքրել բոլոր կատեգորիաները համատեքստային ընտրացանկից տե՛ս նկարը.
3. Եվ հետո, այս հատուկ թղթապանակի բոլոր գույների կատեգորիաները միանգամից մաքրվել են:
Մաքրել բոլոր կատեգորիաները VBA կոդով հատուկ հաշվից
Բոլոր կատեգորիաներից բոլոր տարրերից, ինչպիսիք են էլ. Փոստը, առաջադրանքները, կոնտակտները, գրառումները և այլն, հաշվից մաքրելու համար, ստորև ներկայացված VBA կոդը կարող է ձեզ լավություն բերել.
1, Կտտացրեք այն հաշվի էլ.փոստին, որից ցանկանում եք մաքրել բոլոր կատեգորիաները, այնուհետև պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլներ Պատուհանը:
VBA կոդ. Մաքրել բոլոր կատեգորիաները որոշակի հաշվից.
Sub BatchClearAllCategories_AllOutlookItems()
Dim xCurrentFolder As Outlook.Folder
Dim xFolder As Folder, xCurFolder As Folder
Dim xPos As Integer
Dim xRootFldName As String
Set xCurFolder = Outlook.ActiveExplorer.CurrentFolder
xPos = InStr(3, xCurFolder.FolderPath, "\")
If xPos > 0 Then
xRootFldName = Mid(xCurFolder.FolderPath, 3, xPos - 3)
Else
xRootFldName = Mid(xCurFolder.FolderPath, 3, Len(xCurFolder.FolderPath) - 2)
End If
Set xCurrentFolder = Outlook.Application.Session.Folders(xRootFldName)
For Each xFolder In xCurrentFolder.Folders
Call ProcessFolders(xFolder)
Next
MsgBox "Clear completed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFld As Outlook.Folder)
Dim xItem As Object
Dim i As Integer
Dim xSubfolder As Outlook.Folder
If CurFld.Items.Count > 0 Then
For i = CurFld.Items.Count To 1 Step -1
Set xItem = CurFld.Items.Item(i)
xItem.Categories = ""
xItem.Save
Next
End If
If CurFld.Folders.Count = 0 Then Exit Sub
For Each xSubfolder In CurFld.Folders
Call ProcessFolders(xSubfolder)
Next
End Sub
3, Հետո, սեղմեք F5 այն գործարկելու բանալին, և այնուհետև հայտնվում է հուշման տուփ ՝ հիշեցնելու համար, որ ընտրված հաշվից բոլոր կատեգորիաները մաքրվել են, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: