Come convertire rapidamente più appuntamenti in attività in Outlook?

In questo articolo ti mostrerò come convertire rapidamente e facilmente un appuntamento o più appuntamenti in attività direttamente da Outlook.

Convertire un appuntamento in attività tramite trascinamento

Convertire più appuntamenti in attività utilizzando codice VBA

---

Convertire un appuntamento in attività tramite trascinamento

Per convertire un singolo appuntamento in attività, basta trascinarlo direttamente nella cartella delle attività. Segui questi semplici passaggi:

1. Nella finestra «Calendario», seleziona l’appuntamento che desideri convertire in attività e trascinalo sull’icona «Attività» nella parte inferiore di Navigazione, come illustrato nello screenshot seguente:

2. Verrà visualizzata una nuova finestra «Attività». Clicca su «Salva e chiudi» per salvare l’appuntamento come attività.

---

Convertire più appuntamenti in attività utilizzando codice VBA

Se desideri convertire più appuntamenti in attività, il codice VBA riportato di seguito ti sarà di grande aiuto. Procedi come segue:

1. Tenere premuti i tasti «Alt + F11» per aprire la finestra di «Microsoft Visual Basic, Applications Edition».

2. Fare clic su «Inserisci» > «Modulo», quindi copiare e incollare il codice seguente nel modulo vuoto che si apre:

Codice VBA: Convertire più appuntamenti in attività

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. Seleziona gli appuntamenti che desideri convertire in attività, quindi clicca sul pulsante «Esegui macro» per avviare il codice.

4. Verrà visualizzata la finestra di dialogo «Seleziona cartella». Scegli una cartella «Attività» in cui salvare i risultati della conversione.

5. Fare clic sul pulsante «OK»: tutti gli appuntamenti selezionati verranno creati come attività. Successivamente, salvare e chiudere una alla volta la finestra «Attività».

6. Ora puoi accedere alla cartella «Attività»: tutti gli appuntamenti selezionati sono stati salvati come attività.