Paano Mag-auto Ilipat ang mga Item sa isang Folder sa Folder ng Magulang nito bago Tanggalin Ito sa Outlook

Bilang default, sa Outlook, kapag tinanggal mo ang isang folder, ang mga item nito ay ililipat din sa folder na "Tinanggal na Mga Item". Kung nais mong awtomatikong ilipat ng Outlook ang mga item sa isang folder sa folder ng magulang nito bago ito tanggalin, maaari mong gamitin ang pamamaraang ibinahagi sa artikulong ito.

Kapag nagbura ka ng isang folder, babalaan ka ng Outlook na ang lahat ng nilalaman nito ay ililipat din sa folder na "Mga Tinanggal na Item". Ngunit, kadalasan, gusto mo lang burahin ang folder na ito, hindi kasama ang mga item na nakaimbak dito. Samakatuwid, umaasa kang awtomatikong maililipat ang mga item sa parent folder ng folder. Dito ay ituturo namin sa iyo kung paano ito maisasagawa sa pamamagitan ng VBA. Kung wala kang alam tungkol sa VBA, maaari mo munang basahin ang aking nakaraang artikulo – "Paano Patakbuhin ang VBA Code sa Iyong Outlook".

Awtomatikong Ilipat ang mga Item sa isang Folder sa Folder ng Magulang nito bago Tanggalin Ito

1. Upang magsimula, i-access ang editor ng VBA ng Outlook sa pamamagitan ng "Alt + F11".
2. Pagkatapos, sa bagong window, buksan ang proyektong "ThisOutlookSession".
3. Kasunod, kopyahin at i-paste ang sumusunod na VBA code sa proyektong ito.

'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. Pagkatapos nito, maaari kang mag-shot ngayon.
5. Sa una, i-right click ang subfolder na nais mong tanggalin.
6. Pagkatapos, mula sa menu ng konteksto, piliin ang pagpipiliang "[Matalinong] Tanggalin ang Folder".
7. Kaagad, tatanggalin ng Outlook ang folder at ililipat ang mga item nito sa folder ng magulang.
8. Sa aking halimbawa, tinatanggal ko ang subfolder na "To Bob". Ang folder ng magulang nito ay "Mga Naipadala na Item". Samakatuwid, ang lahat ng mga item nito ay inilipat sa "Mga Naipadala na Item", tulad ng sumusunod na screenshot.

Isaisip na ang Outlook Ay Nakakasira

Dapat mong tandaan ang isang hindi napag-uusapan na katotohanan - Ang Outlook ay madaling kapitan ng mga error o katiwalian. Kaya, kailangan mong mag-ingat sa lahat ng mga potensyal na banta sa paligid ng iyong file ng data ng Outlook, kabilang ang virus, hindi tamang paglabas at iba pa. Bukod, mas mahusay mong maghanda ng isang malakas at kapani-paniwala na tool sa pag-aayos ng Outlook, tulad ng DataNumen Outlook Repair. Maaari ka nitong tulungan ayusin ang Outlook mga isyu sa loob ng ilang minuto

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mdf ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa