Outlook бағдарламасында оны жоймас бұрын, қалтадағы элементтерді негізгі қалтаға қалай автоматты түрде жылжыту керек

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Әдепкі бойынша, Outlook бағдарламасында қалтаны жойған кезде оның элементтері «Жойылған элементтер» қалтасына жылжытылады. Егер сіз Outlook бағдарламасына оны жоймас бұрын қалтадағы элементтерді негізгі қалтаға автоматты түрде жылжытқыңыз келсе, сіз осы мақалада бөлісілген құралдарды пайдалана аласыз.

Қалтаны жойған кезде, Outlook бағдарламасы оның барлық мазмұны «Жойылған элементтер» қалтасына да жылжытылатыны туралы ескертеді. Бірақ көбінесе сіз бұл қалтаны жойғыңыз келеді, онда сақталған элементтерді қоспайсыз. Сондықтан, элементтерді қалтаның ата-аналық қалтасына автоматты түрде жылжытуға болады деп үміттенесіз. Мұнда біз сізге оны VBA арқылы қалай жүзеге асыру керектігін үйретеміз. Егер сіз VBA туралы ештеңе білмесеңіз, алдымен менің алдыңғы мақаламды оқи аласыз – «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.Outlook бағдарламасында оны жоймас бұрын, қалтадағы элементтерді негізгі қалтаға автоматты түрде жылжытыңыз

Қалтадағы заттарды жоймас бұрын оны негізгі қалтасына автоматты түрде жылжытыңыз

  1. Бастау үшін Outlook VBA редакторына «Alt + F11» арқылы кіріңіз.
  2. Содан кейін жаңа терезеде «ThisOutlookSession» жобасын ашыңыз.
  3. Содан кейін келесі VBA кодын көшіріп, осы жобаға қойыңыз.
'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

Кодты ThisOutlookSession жобасына көшіріңіз

  1. Осыдан кейін сіз қазір атып ала аласыз.
  2. Алдымен жойғыңыз келетін ішкі қалтаны тінтуірдің оң жағымен нұқыңыз.
  3. Содан кейін мәтінмәндік мәзірден «[Ақылды] Қалтаны жою» опциясын таңдаңыз.Ақылды қалтаны жою
  4. Бірден Outlook қалтаны жояды және оның элементтерін негізгі қалтасына жылжытады.
  5. Менің мысалымда «To Bob» ішкі қалтасын жоямын. Оның негізгі қалтасы «Жіберілген элементтер». Сондықтан оның барлық элементтері келесі скриншот сияқты «Жіберілген элементтерге» ауыстырылды.Элементтер автоматты түрде негізгі қалтаға жылжытылды

Outlook әлсіз екенін ескеріңіз

Сіз күмәнсіз фактіні есте ұстағаныңыз жөн - Outlook қателіктерге немесе сыбайлас жемқорлыққа бейім. Осылайша, сіз Outlook деректер файлының айналасындағы барлық ықтимал қауіп-қатерлерден, соның ішінде вирус, дұрыс шықпау және тағы басқалардан сақ болуыңыз керек. Сонымен қатар, сіз сияқты күшті және сенімді Outlook түзету құралын дайындағаныңыз жөн DataNumen Outlook Repair. Бұл сізге көмектесе алады Outlook бағдарламасын түзетіңіз бірнеше минут ішінде шығарады

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.