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.
Method 1: Convert Multiple Appointments to Tasks by Drag & Drop
- At the outset, launch your Outlook program.
- Then, access Calendar pane by “Ctrl + 2” key buttons.
- Next, select an appointment which you want to turn into task.
- Subsequently, drag and drop it to the “Tasks” icon at the bottom of navigation pane, like the following screenshot:
- 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.
- Finally, you can click “Save & Close” button to save this task
- 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.
Method 2: Convert Multiple Appointments to Tasks via Outlook VBA
- In Outlook main window, press “Alt + F11” to access VBA editor.
- 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
- 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”.
- Eventually, you can take a shot.
- Firstly, select multiple appointments.
- Then, click the macro in Quick Access Toolbar.
- Subsequently, you will need to select a target Task folder to save the new tasks.
- 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.
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
Leave a Reply