Data Recovery Archive

In Outlook, “Deleted Items” contains not only deleted emails but also deleted tasks, appointment, contacts and other types of items. If you wish to batch delete all items except emails from this folder, you can use the method introduced in this article.

No matter when you delete an email, appointment, task, contact, note or journal, the item will be moved to the “Deleted Items” folder. This is why your “Deleted Items” folder is always stuffed with all kinds of items. In reality, for most users, they simply hope that there are emails only in the “Deleted Items” folder. Hence, they would like to bulk delete all items except emails from “Deleted Items” folder.

Batch Delete All Items Except Emails in "Deleted Items" Folder in Outlook

Without any doubts, it’s very considerably tedious to manually achieve that. Thus, in the followings, we will share a more intelligent way with you. It uses VBA code. As for how to use VBA, you can refer to “How to Run VBA Code in Your Outlook“.

Batch Delete All Items Except Emails in “Deleted Items” Folder

  1. At first, start your Outlook application.
  2. Then, press “Alt + F11” to launch Outlook VBA editor.
  3. Next, in the new window, copy the following VBA code into a module.
Sub DeleteItemsExceptEmailsInDeletedItems()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
    'Process all "Deleted Items" folders in your Outlook
    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            If objFolder.Name = "Deleted Items" Then
               Call ProcessDeletedItemsFolders(objFolder)
            End If
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessDeletedItemsFolders(objCurrentFolder As Outlook.Folder)
    Dim i As Long
    Dim objItem As Object
    Dim objSubfolder As Outlook.Folder
    'Delete all items except emails
    For i = objCurrentFolder.Items.Count To 1 Step -1
        If Not (TypeOf objCurrentFolder.Items(i) Is MailItem) Then
           Set objItem = objCurrentFolder.Items(i)
        End If
    If objCurrentFolder.Folders.Count > 0 Then
       'Delete all subfolders except mail folders
       For Each objSubfolder In objCurrentFolder.Folders
           If objSubfolder.DefaultItemType <> olMailItem Then
           End If
    End If
End Sub

VBA Code - Batch Delete All Items Except Emails in "Deleted Items" Folders

  1. Subsequently, move cursor in the “DeleteItemsExceptEmailsInDeletedItems” subroutine.
  2. Finally, press “F5” key button.
  3. When macro finishes, you get the “Completed” prompt.
  4. Afterwards, you can check your “Deleted Items” folders. All the items except emails must have disappeared, like the following screenshot:All Items Except Emails Are Deleted

Don’t Bypass Any Outlook Errors

Since Outlook errors are common, you have to get some helpful tricks to resolve them as soon as possible. Otherwise, accumulating issues can straightly damage your Outlook data file seriously. At that time, you have to try Outlook recovery. It requires an experienced and superfine PST fix tool, such as DataNumen Outlook Repair. It can help you get back maximum PST data irrespective of how seriously your Outlook data file has been damaged.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server repair and outlook repair software products. For more information visit


Be the first to comment

What Should You Do If Smartphone Data Get Lost?

Posted December 11, 2017 By AuthorZT

One of the worst cases which Smartphone users are unwilling to encounter is data loss. However, in reality, there are a huge number of such cases occurring every day around the world. If you suffer it unfortunately, don’t worry, you can read this post. Here we will tell you what to do.

Nowadays, almost everyone has a smartphone either for business or pleasure. It is unquestionable that smartphone has been a greatly important communication tool for us. Hence, it would be catastrophic if your smartphone corrupts, since in such cases, phone data, including contacts, photos, etc., would be lost.

What Should You Do If Smartphone Data Get Lost?

Have you ever experienced such scenarios? Did you successfully get rid of them? In reality, many users might make some mistakes after realizing smartphone data losses, further leading to complete data disasters. In order to help users prevent unexpected human errors, here we’ll list what to do in case of such data losses.

For Physical Data Losses

First of all, I want to emphasize the phone data loss from physical damages. If a smartphone is damaged, such as broken casing or thorough unbootable, it indeed indicates that the phone has been damaged seriously. Thereby, at this point, you shouldn’t try any DIY recovery tricks on the phone. Your unique resort should be professional recovery experts.

For Logical Data Losses

Aside from physical-level data loss, smartphone can be subject to logical data loss due to app faults, user errors and so on. Generally, at this time, you ought to take the following operations.

1. Restore Data from Available Backups

For a start, you need to check your phone data backups. It’s always suggested to back up all kinds of your data, no matter computer data like PST files or phone data like photos. For example, if you have backed up the PST files, after Outlook corruption, you can readily restore PST data from backups. The same holds true for phone. But, if you have no phone backup, move on to the next step at once.

2. Connect It to Computer

To access internal memory of smartphone, you can connect it to your computer via a USB cable. If PC recognizes the smartphone as a removable drive, then you ought to continue to transfer the left data from the phone to your computer.

3. Make an Image for Phone Memory

After that, you need to create an image for the partition of the phone memory. If it can be detected on PC, you can do it via a third party tool, such as DataNumen Disk Image. Or if it cannot be recognized, it should be routed to create an image and later transfer the image to PC.

4. Attempt Recovery via Software

Finally, you need to attempt logical data recovery. There are a lot of such recovery tools in today’s market. You can select a well-known, qualified and powerful one. Afterwards, you can attempt recovery on the image file. Of course, if it fails, you’d better consult with relevant professionals.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including SQL Server recovery and outlook repair software products. For more information visit

Be the first to comment

If you have many iCalendar (.ics) files in your local drive and would like to batch open them in Outlook, you can read this article. Here we’ll teach you to utilize VBA code to realize it.

Normally, to open an iCalendar (.ics) file in your Outlook, you can easily make use of the “Import” feature. However, if you want to batch open many, “Import” is helpless as it doesn’t support you to select more than one file at once. Hence, you have to use other approaches.

Batch Open Multiple iCalendar (.ics) Files in Your Outlook

If these ics files are stored in the same local folder, you can select them and press “Enter” key to open them in bulk. But, if they’re located in different folders under a drive, the above way is useless as well. In this case, you can use the following method, which can process all folders under a main folder recursively. Now, read on to get its details further.

Batch Open Multiple iCalendar (.ics) Files

  1. For a start, launch your Outlook program.
  2. Then, tap on “Alt + F11” to access VBA editor.
  3. After that, in the new window, input the following VBA code into a module.
Sub BatchOpenMultipleICalendarFiles()
    Dim objShell, objWindowsFolder As Object
    Dim strWindowsFolder As String
    'Select a Windows Folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a folder:", 0, "")
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
       Call LoopFolders(strWindowsFolder)
       MsgBox "Completed!", vbInformation + vbOKOnly, "Open iCalendar Files"
    End If
End Sub

Sub LoopFolders(strFolderPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objICalendarFile As Object
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strFolderPath)
    'Open each iCalendar file
    For Each objFile In objFolder.Files
        If LCase(objFileSystem.GetExtensionName(objFile)) = "ics" Then
           Set objICalendarFile = objFile
           On Error Resume Next
           Application.GetNamespace("MAPI").OpenSharedFolder objICalendarFile.Path
        End If
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubfolder In objFolder.SubFolders
           If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
              Call LoopFolders(objSubfolder.Path)
           End If
    End If
End Sub

VBA Code - Batch Open Multiple iCalendar (.ics) Files

  1. Next, move your cursor in “BatchOpenMultipleICalendarFiles” subroutine.
  2. Ultimately, press “F5” to trigger this macro.
  3. Subsequently, in the popup dialog box, select a Windows folder or drive where the iCalendar files are stored.Select Windows Folder or Drive
  4. When you receive “Completed” message, access “Calendar” pane in Outlook.
  5. You can see that all the iCalendar files in that Windows folder have been over there, like the following screenshot:Opened iCalendar (.ics) Files in Outlook

Prepare a Formidable PST Fix Tool Nearby

Perhaps you have known that Outlook is prone to errors and corruption. Thereby, it is advisable to back up your Outlook data files at regular intervals. In this way, even though your Outlook file becomes compromised, you can simply bring back valuable Outlook data from backups. Yet, if there is no such a backup, you would need to use a remarkable repair tool, like DataNumen Outlook Repair. It can help you to fix Outlook issues like a cork.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including recover mdf and outlook repair software products. For more information visit

Be the first to comment