2 Quick Methods to Back up All Tasks in Your Outlook

If you would like to back up all tasks in your Outlook, you can read this article. Here we will show you 2 quick methods. You can choose either to your liking.

At times, you may want to back up a specific type of items in your Outlook, such as backing up all Tasks. For instance, if you want to transfer all tasks to another computer, you may want to back up them to a separate Outlook data file and then move the file to the target computer. Now, in the followings, we will share 2 quick approaches to achieve it.

Method 1: “Export” All Tasks in a Task Folder & Its Subfolders

1. For a start, go to “File” menu.
2. Then, shift to “Open” tab and select “Import”.
3. Next, in “Import and Export Wizard”, choose “Export to a file” and hit “Next”.
4. In the subsequent “Export a file” screen, select “Outlook Data File (.pst)” and click “Next”.
5. Later, in “Export Outlook Data File” screen, pitch on a task folder and check “Include Subfolders” option and click “Next”.
6. Finally, specify “Save exported file as” and click “Finish” button.

Method 2: Back up All Tasks in All Task Folders via Outlook VBA

1. At the very outset, go to Outlook VBA editor via “Alt + F11”.
2. Then, copy and paste the following VBA code into a module.

Dim objBackupFile As Outlook.Folder
Dim objBackupFolder As Outlook.Folder

Sub BackupAllTasks()
    Dim objStores As Outlook.Stores
    Dim n As Long
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
 
    'Create a new PST file for backup
    strNewOutlookFile = "E:\Backups\Tasks" & " (" & Format(Now, "YYYYMMDDHHMMSS") & ").pst"
    Outlook.Application.Session.AddStoreEx strNewOutlookFile, olStoreUnicode
    Set objBackupFile = Session.Folders.GetLast()
    'Create a Task folder
    Set objBackupFolder = objBackupFile.Folders.Add("Tasks", olFolderTasks)
 
    'Process all PST Files in your Outlook
    Set objStores = Application.Session.Stores
    For n = 1 To (objStores.Count - 1)
        Set objStore = objStores(n)
        Set objOutlookFile = objStore.GetRootFolder
        Call ProcessFolders(objOutlookFile.Folders)
    Next
 
    MsgBox "Complete!"
End Sub

Sub ProcessFolders(ByVal objFolders As Outlook.Folders)
    Dim objFolder As Outlook.Folder
    Dim i As Long
    Dim objCopiedTask As Outlook.TaskItem
 
    For Each objFolder In objFolders
        If objFolder.DefaultItemType = olTaskItem Then
           'Copy all Tasks to Backup file
           For i = objFolder.Items.Count To 1 Step -1
               Set objCopiedTask = objFolder.Items(i).Copy
               objCopiedTask.Move objBackupFolder
           Next
        End If
 
        'Process subfolders recursively
        If objFolder.Folders.Count > 0 Then
           Call ProcessFolders(objFolder.Folders)
        End If
    Next
End Sub

3. After that, click into the first subroutine and tap “F5” key button.
4. When macro finishes with a “Complete” prompt, you can go to “Tasks” pane.
5. A new Task folder is over there, which contains all backed up Tasks.

Get Rid of Frustrating PST Troubles

It isn’t rare to encounter miscellaneous problems in your Outlook. Thus, you have to make some precautions to avoid catastrophic Outlook data loss. First of all, you ought to make regular data backups. Besides, you need to get hold of a robust and reliable external PST fix utility, such as DataNumen Outlook Repair. It’ll help you a lot in the event of both backup restoration and Scanpst failures.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql corruption and outlook repair software products. For more information visit www.datanumen.com