Outlook-da uni o'chirishdan oldin jilddagi elementlarni qanday qilib uning asosiy jildiga avtomatik ko'chirish mumkin

Odatiy bo'lib, Outlook-da, papkani o'chirsangiz, uning elementlari ham "O'chirilgan elementlar" jildiga ko'chiriladi. Agar siz Outlook-dan jilddagi elementlarni o'chirishdan oldin uni asosiy jildga avtomatik ko'chirishni xohlasangiz, ushbu maqolada baham ko'rilgan vositalardan foydalanishingiz mumkin.

Jildni o'chirganingizda, Outlook sizni uning barcha tarkibi "O'chirilgan elementlar" papkasiga ham ko'chirilishi haqida ogohlantiradi. Lekin, ko'p hollarda, siz shunchaki ushbu papkani o'chirishni xohlaysiz, unda saqlangan elementlarni qo'shmasdan. Shuning uchun, elementlar avtomatik ravishda papkaning ota-papkasiga ko'chirilishi mumkinligiga umid qilasiz. Bu yerda biz sizga buni VBA orqali qanday amalga oshirishni o'rgatamiz. Agar siz VBA haqida hech narsa bilmasangiz, avval mening oldingi maqolamni o'qishingiz mumkin - "Outlook-da VBA kodini qanday ishlatish kerak".

Jilddagi elementlarni oʻchirishdan oldin uning asosiy jildiga avtomatik koʻchirish

1. Boshlash uchun Outlook VBA muharririga “Alt + F11” orqali kiring.
2. Keyin, yangi oynada "ThisOutlookSession" loyihasini oching.
3. Keyinchalik, ushbu loyihaga quyidagi VBA kodini nusxa ko'chiring va joylashtiring.

'Display the macro in the context menu
Sub Application_FolderContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Folder As Outlook.Folder)
    Dim objCommandBarButton As Office.CommandBarButton
 
    Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
    With objCommandBarButton
         .Style = msoButtonIconAndCaption
         .Caption = "[Smart] Delete Folder"
         .FaceId = 1668
         .OnAction = "Project1.ThisOutlookSession.DeleteFolder_MoveItemsToParentFolder"
    End With
End Sub

Sub DeleteFolder_MoveItemsToParentFolder()
    Dim objCurrentFolder As Outlook.Folder
    Dim objParentFolder As Outlook.Folder

    Set objCurrentFolder = Outlook.ActiveExplorer.CurrentFolder
    Set objParentFolder = objCurrentFolder.Parent
    
    Dim i As Long
    'Move items to parent folder
    For i = objCurrentFolder.Items.Count To 1 Step -1
        objCurrentFolder.Items.Item(i).Move objParentFolder
    Next
 
    'Delete the current folder
    objCurrentFolder.Delete
End Sub

4. Shundan so'ng, siz hozir otishni o'rganishingiz mumkin.
5. Avval o'chirmoqchi bo'lgan pastki papkani o'ng tugmasini bosing.
6. Keyin kontekst menyusidan “[Smart] papkani oʻchirish” opsiyasini tanlang.
7. Outlook birdaniga jildni o'chiradi va uning elementlarini asosiy jildga ko'chiradi.
8. Mening misolimda, men "To Bob" pastki papkasini o'chirib tashlayman. Uning asosiy papkasi "Yuborilgan narsalar". Shuning uchun, uning barcha elementlari quyidagi skrinshotda bo'lgani kabi "Yuborilgan narsalar" ga ko'chirildi.

Outlook himoyasiz ekanligini yodda tuting

Shubhasiz haqiqatni yodda tutishingiz kerak - Outlook xatolar yoki buzilishlarga moyil. Shunday qilib, siz Outlook ma'lumotlar faylingiz atrofidagi barcha mumkin bo'lgan tahdidlardan, jumladan viruslardan, noto'g'ri chiqishdan va hokazolardan ehtiyot bo'lishingiz kerak. Bundan tashqari, siz kuchli va ishonchli Outlook tuzatish vositasini tayyorlaganingiz ma'qul DataNumen Outlook Repair. Bu sizga yordam berishi mumkin Outlook-ni tuzatish daqiqalar ichida muammolar

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com