Come creare automaticamente un'attività quando si invia un'email in Outlook?

Author: Siluvia Last Modified: 2025-08-06

A volte, potrebbe essere necessario creare automaticamente un'attività da un'email al momento dell'invio in Outlook. Qui ti forniamo un metodo per farlo rapidamente.

Creazione automatica di un'attività durante l'invio di email in Outlook con VBA

Creazione automatica di un'attività durante l'invio di email in Outlook con VBA

Con il seguente codice VBA, puoi creare automaticamente un'attività basata su un'email in uscita in Outlook. Procedi come segue.

1. Avvia Outlook, premi "Alt" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

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

Codice VBA: Creazione automatica di un'attività quando si invia 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

the screenshot of step about creating a task when sending email in outlook 1

Nota: I destinatari del messaggio e il corpo del messaggio verranno aggiunti automaticamente al corpo dell'attività. La data di inizio dell'attività sarà la data di invio del messaggio e l'attività scadrà tra 3 giorni. Riceverai un promemoria dell'attività alle 9:00 del mattino successivo. Puoi modificarli secondo necessità.

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

4. Da ora in poi, quando fai clic sul pulsante "Invia" in una nuova email o in una finestra di risposta, apparirà una finestra di dialogo "Crea attività" come mostrato nello screenshot sottostante; fai clic su "Sì" per inviare l'email e creare automaticamente un'attività, oppure fai clic su "No" per inviare l'email senza creare l'attività.