როგორ ავტომატური გადატანა საქაღალდეში არსებული ელემენტები მის მშობელ საქაღალდეში Outlook-ში წაშლის წინ

ნაგულისხმევად, Outlook-ში, როდესაც თქვენ წაშლით საქაღალდეს, მისი ელემენტები ასევე გადავა საქაღალდეში „წაშლილი ელემენტები“. თუ გსურთ Outlook-მა ავტომატურად გადაიტანოს საქაღალდეში არსებული ელემენტები მის მთავარ საქაღალდეში მის წაშლამდე, შეგიძლიათ გამოიყენოთ ამ სტატიაში გაზიარებული საშუალებები.

როდესაც საქაღალდეს წაშლით, Outlook გაფრთხილებთ, რომ მისი მთელი შინაარსი ასევე გადავა „წაშლილი ელემენტების“ საქაღალდეში. თუმცა, უმეტეს შემთხვევაში, თქვენ უბრალოდ გსურთ ამ საქაღალდის წაშლა, მასში შენახული ელემენტების გარეშე. ამიტომ, იმედოვნებთ, რომ ელემენტები ავტომატურად გადავა საქაღალდის მშობელ საქაღალდეში. აქ ჩვენ გასწავლით, თუ როგორ განახორციელოთ ეს VBA-ს საშუალებით. თუ VBA-ს შესახებ არაფერი იცით, შეგიძლიათ წაიკითხოთ ჩემი წინა სტატია - „როგორ გაუშვათ 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

4. ამის შემდეგ, თქვენ შეგიძლიათ გასროლა ახლა.
5. თავდაპირველად, დააწკაპუნეთ მარჯვენა ღილაკით ქვესაქაღალდეზე, რომლის წაშლა გსურთ.
6. შემდეგ, კონტექსტური მენიუდან აირჩიეთ „[Smart] Delete Folder“ ვარიანტი.
7. Outlook ერთბაშად წაშლის საქაღალდეს და გადაიტანს მის ელემენტებს მის მშობელ საქაღალდეში.
8. ჩემს შემთხვევაში, მე ვშლი "ბობის" ქვესაქაღალდე. მისი მთავარი საქაღალდე არის "გაგზავნილი ნივთები". ამიტომ, მისი ყველა ელემენტი გადატანილია „გაგზავნილ ნივთებში“, როგორც შემდეგი ეკრანის სურათი.

გაითვალისწინეთ, რომ Outlook დაუცველია

თქვენ უნდა გაითვალისწინოთ უდავო ფაქტი - Outlook არის მიდრეკილი შეცდომების ან კორუფციის მიმართ. ამრიგად, თქვენ უნდა უფრთხილდეთ ყველა პოტენციურ საფრთხეს თქვენი Outlook მონაცემთა ფაილის გარშემო, მათ შორის ვირუსი, არასწორი გასვლა და ა.შ. გარდა ამისა, უმჯობესია მოამზადოთ მძლავრი და სანდო Outlook-ის გამოსწორების ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair. მას შეუძლია დაგეხმაროთ Outlook-ის შესწორება საკითხები წუთებში

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის mdf შესწორება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად