Como converter rapidamente várias nomeações em tarefas no Outlook?

Neste artigo, explico como converter uma ou várias nomeações em tarefas de forma rápida e fácil no Outlook.

Converter uma nomeação em tarefa arrastando e largando

Converter várias nomeações em tarefas utilizando código VBA

---

Converter uma nomeação em tarefa arrastando e largando

Para converter uma nomeação numa tarefa, basta arrastá-la para a pasta de tarefas. Siga estes passos:

1. Na janela «Calendar», selecione a nomeação que pretende converter em tarefa e, em seguida, arraste-a e largue-a no ícone «Tasks», na parte inferior da Navegação, conforme ilustrado na imagem seguinte:

2. Será então apresentada uma nova janela «Task». Clique em «Salvar e Fechar» para guardar esta nomeação como tarefa.

---

Converter várias nomeações em tarefas utilizando código VBA

Se tiver várias nomeações que precisa de converter em tarefas, o código VBA abaixo pode ajudá-lo. Siga os passos seguintes:

1. Prima as teclas «Alt + F11» para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em «Inserir» > «Módulo» e copie e cole o código seguinte no módulo em branco que for aberto:

Código VBA: Converter várias nomeações em tarefas

Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
    Set xItem = xActiveWindow.CurrentItem
    If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
    Set xSelection = xActiveWindow.Selection
    If xSelection Is Nothing Then Exit Sub
    For Each xItem In xSelection
        If xItem.Class = olAppointment Then xItemCollection.Add xItem
    Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
    Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
    With xTaskItem
        .StartDate = Format(xAppointmentItem.Start, "Short Date")
        .DueDate = Format(xAppointmentItem.End, "Short Date")
        .Subject = xAppointmentItem.Subject & " (From Appt)"
        .Categories = xAppointmentItem.Categories
        .Body = xAppointmentItem.Body
        .Save
        .Display
    End With
Next
End Sub

3. Selecione as nomeações que pretende converter em tarefas e clique no botão «Run Macro» para executar este código.

4. Será apresentada uma caixa de diálogo «Select Folder». Selecione a pasta «Tasks» onde pretende guardar os resultados convertidos.

5. Clique no botão «OK» e todas as nomeações selecionadas serão convertidas em tarefas. Em seguida, guarde e feche a janela «Task», uma a uma.

6. Agora, pode aceder à pasta «Task»; todas as nomeações selecionadas foram guardadas como tarefas.