2 Quick Ways to Batch Convert Multiple Appointments to Tasks in Your Outlook

If you would like to batch convert multiple appointments to tasks in your Outlook, you can refer to this article. Here we will introduce 2 approaches.

At times, you may need to convert multiple appointments to tasks. Of course, you can create new tasks and then copy the information of the source appointments to the new tasks. However, obviously, this method is too tedious and cumbersome. Thus, thereinafter, we’ll share 2 more effective means with you.

Batch Convert Multiple Appointments to Tasks in Your Outlook

Method 1: Convert Multiple Appointments to Tasks by Drag & Drop

  1. At the outset, launch your Outlook program.
  2. Then, access Calendar pane by “Ctrl + 2” key buttons.
  3. Next, select an appointment which you want to turn into task.
  4. Subsequently, drag and drop it to the “Tasks” icon at the bottom of navigation pane, like the following screenshot:Drag & Drop Appointment
  5. After that, a new task will display, which is created from the appointment. Its subject, start and due date and other information are the same as the source appointment.New Task
  6. Finally, you can click “Save & Close” button to save this task
  7. Now, you can use this method to convert the other appointments to separate tasks one by one.

Note: You may think of directly dragging & dropping multiple appointments to the “Tasks” icon meanwhile. However, by this means, these appointments will be merged into only one task, which contains the info of all the appointments in the task body, like the image below.Merged Appointments in One Task

Method 2: Convert Multiple Appointments to Tasks via Outlook VBA

  1. In Outlook main window, press “Alt + F11” to access VBA editor.
  2. Then, put the following code into an unused module.
Sub ConvertAppointmentsToTasks()
    Dim objItemCollection As VBA.Collection
    Dim objActiveWindow As Object
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim objTaskFolder As Outlook.Folder
    Dim objAppointment As Outlook.AppointmentItem
    Dim objTask As Outlook.TaskItem
 
    'Get the source Appointments
    Set objItemCollection = New VBA.Collection
    Set objActiveWindow = Application.ActiveWindow
 
    If objActiveWindow.Class = olInspector Then
       If TypeOf objActiveWindow.CurrentItem Is AppointmentItem Then
          objItemCollection.Add objActiveWindow.CurrentItem
       End If
    Else
       Set objSelection = objActiveWindow.Selection
       If Not (objSelection Is Nothing) Then
          For i = 1 To objSelection.Count
              If TypeOf objSelection(i) Is AppointmentItem Then
                 objItemCollection.Add objSelection(i)
              End If
          Next
       End If
    End If
 
    'Select a target task folder
    Set objTaskFolder = Application.Session.PickFolder
 
    'Convert Appointments to Tasks
    If Not (objTaskFolder Is Nothing) And (objTaskFolder.DefaultItemType = olTaskItem) Then
       For Each objAppointment In objItemCollection
           Set objTask = objTaskFolder.Items.Add("IPM.Task")
           With objTask
                .StartDate = Format(objAppointment.Start, "Short Date")
                .DueDate = Format(objAppointment.End, "Short Date")
                .Subject = objAppointment.Subject & " (From Appt)"
                .Body = objAppointment.Body
                .Save
                .Display
           End With
       Next
    End If
End Sub

VBA Code - Batch Convert Multiple Appointments to Tasks

  1. After that, close the editor and add the new macro to Quick Access Toolbar with reference to the article – “How to Run VBA Code in Your Outlook”.
  2. Eventually, you can take a shot.
  • Firstly, select multiple appointments.
  • Then, click the macro in Quick Access Toolbar.Run Macro on Selected Appointments
  • Subsequently, you will need to select a target Task folder to save the new tasks.Select a Task Folder
  • After clicking “OK” button, macro will run.
  • When macro completes, you can head to the Task folder, where there are the new tasks created from appointments.New Tasks

Combat against Dangerous Factors in Outlook

Outlook can get damaged due to various factors, such as viruses, malware, human errors, software issues and hardware faults, etc. Therefore, you have to try best to fight against these problems. For instance, you ought to get hold of a robust and reliable Outlook fix utility, such as dataumen Outlook repair. It will help you a lot when you intend to recover PST data from damaged Outlook data file.

Author Introduction:

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