Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս խմբաքանակով ջնջել Outlook- ի բոլոր դատարկ թղթապանակները:

Ենթադրենք, որ Outlook- ի փոստի պանակի տակ տասնյակ դատարկ թղթապանակներ կան, ընդհանուր առմամբ, մենք կարող ենք մեկ-մեկ ջնջել դատարկ թղթապանակները ՝ մկնիկի աջ կտտոցի վրա: Բազմիցս աջ կտտացնելու համեմատ, այս հոդվածը կներկայացնի VBA ՝ արագորեն ջնջելու մեկ Outlook թղթապանակի բոլոր դատարկ ենթապանակները զանգվածաբար:

VBA- ի հետ միասին խմբաքանակով ջնջեք Outlook- ի բոլոր դատարկ թղթապանակները

Office Tab - Միացնել ներդիրներով խմբագրումն ու զննարկումը գրասենյակում, և աշխատանքը շատ ավելի դյուրին դարձրեք ...
Kutools for Outlook - 100 հզոր առաջադեմ առանձնահատկություններ է բերում Microsoft Outlook- ին
  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ էլ-նամակներ կանոններով; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում եք պատասխանել բոլորին, եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում. Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) բոլոր կցորդներով փոստի խոսակցությունում; Միանգամից պատասխանեք շատ նամակների. Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավտոմատ ավելացրեք ամսաթիվը և ժամանակը թեմայի մեջ ...
  • Կցման գործիքներԱվտոմատ անջատել, սեղմել բոլորը, վերանվանել բոլորը, ինքնաբերաբար պահպանել բոլորը ... Արագ հաշվետվություն, Հաշվել ընտրված նամակները, Հեռացնել կրկնօրինակ նամակները և կոնտակտները ...
  • Ավելի քան 100 առաջադեմ գործառույթներ կանեն լուծեք ձեր խնդիրների մեծ մասը Outlook 2021 - 2010 կամ Office 365-ում: Ամբողջական հնարավորություններ 60-օրյա անվճար փորձարկում:

նետ կապույտ աջ պղպջակVBA- ի հետ միասին խմբաքանակով ջնջեք Outlook- ի բոլոր դատարկ թղթապանակները

Որոշակի Outlook թղթապանակի բոլոր դատարկ ենթապանակները հեռացնելու համար խնդրում ենք անել հետևյալը.

1. Մամուլ ալտ + F11 Microsoft Visual Basic հավելվածների համար պատուհանը բացելու ստեղները:

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք ներքևում VBA կոդի նոր մոդուլի պատուհանում:

VBA. Deleteնջեք որոշակի Outlook պանակի բոլոր դատարկ ենթապանակները զանգվածաբար

Public Sub DeletindEmtpyFolder()
Dim xFolders As Folders
Dim xCount As Long
Dim xFlag As Boolean
Set xFolders = Application.GetNamespace("MAPI").PickFolder.Folders
Do
FolderPurge xFolders, xFlag, xCount
Loop Until (Not xFlag)
If xCount > 0 Then
MsgBox "Deleted " & xCount & "(s) empty folders", vbExclamation + vbOKOnly, "Kutools for Outlook"
Else
MsgBox "No empty folders found", vbExclamation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

Public Sub FolderPurge(xFolders, xFlag, xCount)
Dim I As Long
Dim xFldr As Folder 'Declare sub folder objects
xFlag = False
If xFolders.Count > 0 Then
For I = xFolders.Count To 1 Step -1
Set xFldr = xFolders.Item(I)
If xFldr.Items.Count < 1 Then 'If the folder is empty check for subfolders
If xFldr.Folders.Count < 1 Then 'If the folder contains not sub folders confirm deletion
xFldr.Delete 'Delete the folder
xFlag = True
xCount = xCount + 1
Else 'Folder contains sub folders so confirm deletion
FolderPurge xFldr.Folders, xFlag, xCount
End If
Else 'Folder contains items or (subfolders that may be empty).
FolderPurge xFldr.Folders, xFlag, xCount
End If
Next
End If
End Sub

3. Մամուլ F5 Բանալին կամ Վազում այս VBA կոդը գործարկելու կոճակը:

4, Ընտրված պանակ երկխոսության պատուհանում դուրս գալուց հետո ընտրեք այն հատուկ պանակը, որի դատարկ ենթապանակները մեծ մասամբ կջնջեք և կտտացրեք OK կոճակ Տեսեք,

5, Այժմ դուրս է գալիս Kutools for Outlook երկխոսության տուփը և ցույց է տալիս, թե քանի դատարկ ենթապանակներ են ջնջվել: Սեղմիր OK այն փակելու կոճակը:

Մինչ այժմ նշված Outlook պանակի բոլոր ենթապանակներն արդեն ջնջվել են զանգվածաբար:


նետ կապույտ աջ պղպջակԱռնչվող հոդվածներ

Outlook- ում գտեք պանակը (պանակի լրիվ ուղին) ՝ ըստ պանակի անվան


Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (10)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փայլուն !!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վերը նշվածը գործարկելիս ես ստանում եմ հետևյալ սխալը: Գործարկման ժամանակի սխալ '-2147352567 (80020009)' Հնարավոր չէ ջնջել այս թղթապանակը: Աջ սեղմեք թղթապանակի վրա, այնուհետև կտտացրեք հատկությունները՝ թղթապանակի համար ձեր թույլտվությունները ստուգելու համար: Տեսեք թղթապանակի սեփականատիրոջը կամ ձեր ադմինիստրատորը փոխելու ձեր թույլտվությունները»

Թվում է, թե սկրիպտը տեղափոխում է 1 տարր ջնջված թղթապանակ և այնուհետև սխալվում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Համաձայն եմ - ես ստանում եմ նույն սխալը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սցենարը փորձում է ջնջել արդեն ջնջված թղթապանակը:
Ես xFlag = False-ից հետո տող եմ ավելացրել այս բովանդակությամբ.
սխալի վրա վերսկսել հաջորդը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկապես, ավելացրեք.

Ս.թ. սխալի Ռեզյումե Next

Հետո:

Dim x Fldr As Folder «Հայտարարել ենթաթղթապանակի օբյեկտները
xFlag = Սխալ

Դա պետք է նման լինի:

Dim x Fldr As Folder «Հայտարարել ենթաթղթապանակի օբյեկտները
xFlag = Սխալ
Ս.թ. սխալի Ռեզյումե Next
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստանում եմ նույն սխալը, ինչպես Բրայանը... և հիմա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սցենարը փորձում է ջնջել արդեն ջնջված թղթապանակը:
Ես xFlag = False-ից հետո տող եմ ավելացրել այս բովանդակությամբ.
սխալի վրա վերսկսել հաջորդը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սուպեր հեշտ և աներևակայելի օգտակար: Շնորհակալություն!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ջնջվել է 74 դատարկ թղթապանակ, բայց, ցավոք, ջնջվել է նաև 109 թղթապանակ, որոնք չեն ջնջվել: Մյուս դատարկ թղթապանակները մնացել են անձեռնմխելի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ինձ համար հիանալի աշխատեց: Շնորհակալություն. Որոշ թղթապանակներ չեն կարող ջնջվել, քանի որ դրանք բնօրինակ են Outlook-ում, սակայն ենթապանակները հիանալի են աշխատում:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից