Come creare automaticamente un’attività in Outlook all’invio di un’e-mail?

A volte potrebbe essere utile creare automaticamente un’attività da un’e-mail direttamente al momento dell’invio in Outlook. Ecco un metodo rapido per farlo.

Crea automaticamente un'attività all'invio di un'email in Outlook con VBA

---

Crea automaticamente un'attività all'invio di un'email in Outlook con VBA

Con il codice VBA riportato di seguito, puoi creare automaticamente un’attività basata su un’e-mail in fase di invio in Outlook. Segui le istruzioni indicate.

1. Avvia Outlook e premi «Alt» + «F11» per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di «Microsoft Visual Basic for Applications», copia il seguente codice VBA nella finestra del codice «ThisOutlookSession».

Codice VBA: crea automaticamente un'attività all'invio di un'email in Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

Nota: i destinatari e il corpo del messaggio verranno aggiunti automaticamente al contenuto dell’attività. La data di inizio dell’attività corrisponderà alla data di invio del messaggio e la scadenza sarà fissata tra 3 giorni. Riceverai un promemoria per l’attività alle 9:00 del giorno successivo. Puoi personalizzare questi parametri in base alle tue esigenze.

3. Salva il codice e premi «Alt» + «Q» per chiudere la finestra di Microsoft Visual Basic for Applications.

4. D'ora in poi, ogni volta che fai clic sul pulsante «Invia» in una nuova email o in una risposta, si aprirà la finestra di dialogo «Crea attività» mostrata nello screenshot seguente: clicca su «Sì» per inviare l’email e creare automaticamente un’attività, oppure su «No» per inviare l’email senza creare l’attività.