Ինչպե՞ս խմբաքանակով ջնջել Outlook- ի բոլոր դատարկ թղթապանակները:
Ենթադրենք, որ Outlook- ի փոստի պանակի տակ տասնյակ դատարկ թղթապանակներ կան, ընդհանուր առմամբ, մենք կարող ենք մեկ-մեկ ջնջել դատարկ թղթապանակները ՝ մկնիկի աջ կտտոցի վրա: Բազմիցս աջ կտտացնելու համեմատ, այս հոդվածը կներկայացնի VBA ՝ արագորեն ջնջելու մեկ Outlook թղթապանակի բոլոր դատարկ ենթապանակները զանգվածաբար:
VBA- ի հետ միասին խմբաքանակով ջնջեք Outlook- ի բոլոր դատարկ թղթապանակները
- Ավտոմատացնել էլ Auto CC / BCC, Ավտոմեքենաների փոխանցում կանոններով; ուղարկել Ավտոմատ պատասխան (Offoff Office) առանց փոխանակման սերվեր պահանջելու...
- Ստացեք նման հիշեցումներ Նախազգուշացում BCC- ի համար երբ պատասխանում եք բոլորին, երբ դուք BCC ցուցակում եք, և Հիշեցրեք հավելվածները բաց թողնելիս մոռացված հավելվածների համար...
- Բարելավել էլփոստի արդյունավետությունը Պատասխանել (Բոլորը) Հավելվածներով, Ավտոմատ ավելացրեք ողջույն կամ ամսաթիվ և ժամ ստորագրության կամ թեմայի մեջ, Պատասխանել բազմաթիվ էլ...
- Հեշտացնել էլփոստի ուղարկումը Վերհիշել նամակները, Կցման գործիքներ (Սեղմել բոլորը, ավտոմատ պահել բոլորը...), Հեռացնել կրկնօրինակները, եւ Արագ հաշվետվություն...
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- ում գտեք պանակը (պանակի լրիվ ուղին) ՝ ըստ պանակի անվան
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: