Come creare automaticamente un'attività durante l'invio di e-mail in Outlook?

A volte, potrebbe essere necessario creare automaticamente un'attività di un'e-mail quando viene inviata in Outlook. Qui ti stiamo fornendo un metodo per farlo rapidamente.

Crea automaticamente un'attività durante l'invio di e-mail in Outlook con VBA

Crea automaticamente un'attività durante l'invio di e-mail in Outlook con VBA

Con il codice VBA di seguito, puoi creare un'attività automaticamente in base a un messaggio di posta elettronica in Outlook. Si prega di fare quanto segue.

1. Avvia Outlook, premi il pulsante altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, copia il codice VBA sottostante nel file Questa sessione di Outlook finestra del codice.

Codice VBA: crea automaticamente un'attività durante l'invio di e-mail 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

Note:: I destinatari del messaggio e il corpo del messaggio verranno aggiunti automaticamente al corpo dell'attività. La data di inizio dell'attività è la data di invio del messaggio e l'attività scadrà tra 3 giorni. Ti verrà ricordato il compito alle 9 del mattino dopo un giorno. Puoi cambiarli secondo le tue necessità.

3. Salvare il codice e premere il tasto altro + Q tasti per chiudere la finestra di Microsoft Visual Basic, Applications Edition.

4. D'ora in poi, quando si fa clic su Invia pulsante in una finestra di posta elettronica nuova o con risposta, a Crea attività verrà visualizzata la finestra di dialogo come mostrato nell'immagine sottostante, fare clic su Sì per inviare l'email e creare un'attività automaticamente oppure fare clic su Non per inviare l'email senza creare attività.