Note: The other languages of the website are Google-translated. Back to English
English English

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 per inviare l'email e creare un'attività automaticamente oppure fare clic su Non per inviare l'email senza creare attività.


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (3)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
C'è un modo per modificarlo in modo da includere più link alla posta inviata oltre ai destinatari e all'oggetto? cioè. aggiungere la mail inviata come allegato?
Questo commento è stato fatto dal moderatore sul sito
CIAO,

Questo ha funzionato per alcuni giorni e ora non funziona più.

C'è una ragione?
Questo commento è stato fatto dal moderatore sul sito
Ciao Terri Amos,
Abilita l'opzione Abilita tutte le macro e Applica le impostazioni di sicurezza delle macro ai componenti aggiuntivi installati come mostrato nello screenshot seguente. Successivamente, riavvia Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite