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
- For a start, go to “File” menu.
- Then, shift to “Open” tab and select “Import”.
- Next, in “Import and Export Wizard”, choose “Export to a file” and hit “Next”.
- In the subsequent “Export a file” screen, select “Outlook Data File (.pst)” and click “Next”.
- Later, in “Export Outlook Data File” screen, pitch on a task folder and check “Include Subfolders” option and click “Next”.
- Finally, specify “Save exported file as” and click “Finish” button.
Method 2: Back up All Tasks in All Task Folders via Outlook VBA
- At the very outset, go to Outlook VBA editor via “Alt + F11”.
- 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
- After that, click into the first subroutine and tap “F5” key button.
- When macro finishes with a “Complete” prompt, you can go to “Tasks” pane.
- 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.
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