Cara Memindahkan Item Secara Otomatis dalam Folder ke Folder Induknya sebelum Menghapusnya di Outlook

Secara default, di Outlook, saat Anda menghapus folder, itemnya juga akan dipindahkan ke folder "Item yang Dihapus". Jika Anda ingin Outlook memindahkan item dalam folder ke folder induknya secara otomatis sebelum menghapusnya, Anda dapat menggunakan cara yang dibagikan di artikel ini.

Saat Anda menghapus folder, Outlook akan memperingatkan Anda bahwa semua isinya akan dipindahkan ke folder "Item yang Dihapus" juga. Tapi, most sering kali, Anda hanya ingin menghapus folder ini, tidak termasuk item yang disimpan di dalamnya. Oleh karena itu, Anda berharap item tersebut dapat dipindahkan secara otomatis ke folder induk folder. Di sini kami akan mengajari Anda cara mewujudkannya melalui VBA. Jika Anda tidak tahu apa-apa tentang VBA, Anda dapat membaca artikel saya sebelumnya - “Cara Menjalankan Kode VBA di Outlook Anda".

Pindahkan Item Secara Otomatis dalam Folder ke Folder Induknya sebelum Menghapusnya

1. Untuk memulainya, akses editor Outlook VBA melalui "Alt + F11".
2. Kemudian, di jendela baru, buka proyek "ThisOutlookSession".
3. Selanjutnya, salin dan tempel kode VBA berikut ke dalam proyek ini.

'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. Setelah itu, Anda dapat mencobanya sekarang.
5. Pertama, klik kanan subfolder yang ingin Anda hapus.
6. Kemudian, dari menu konteks, pilih opsi "[Smart] Hapus Folder".
7. Outlook akan segera menghapus folder tersebut dan memindahkan itemnya ke folder induknya.
8. Dalam contoh saya, saya menghapus subfolder "Kepada Bob". Folder induknya adalah "Item Terkirim". Oleh karena itu, semua itemnya telah dipindahkan ke "Item Terkirim", seperti gambar layar berikut.

Ingatlah bahwa Outlook Rentan

Anda harus mengingat fakta yang tidak perlu dipertanyakan lagi - Outlook rentan terhadap kesalahan atau kerusakan. Dengan demikian, Anda harus berhati-hati terhadap semua potensi ancaman di sekitar file data Outlook Anda, termasuk virus, keluar yang tidak benar, dan sebagainya. Selain itu, Anda sebaiknya menyiapkan alat perbaikan Outlook yang kuat dan kredibel, seperti DataNumen Outlook Repair. Ini dapat membantu Anda perbaiki Outlook masalah dalam beberapa menit

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com