¿Cómo crear una tarea automáticamente al enviar un correo electrónico en Outlook?

A veces, es posible que necesite crear automáticamente una tarea a partir de un correo electrónico al enviarlo en Outlook. Aquí le ofrecemos un método para lograrlo de forma rápida y sencilla.

Crear automáticamente una tarea al enviar un correo electrónico en Outlook con VBA

---

Crear automáticamente una tarea al enviar un correo electrónico en Outlook con VBA

Con el siguiente código VBA, puede crear automáticamente una tarea en Outlook basada en un correo electrónico que esté enviando. Siga estos pasos:

1. Inicie Outlook y pulse «Alt» + «F11» para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de «Microsoft Visual Basic para Aplicaciones», copie el siguiente código VBA en la ventana de código «ThisOutlookSession».

Código VBA: Crear automáticamente una tarea al enviar un correo electrónico en 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: Los destinatarios y el cuerpo del mensaje se incluirán automáticamente en la tarea. La fecha de inicio será la del envío del mensaje, y la tarea vencerá en 3 días. Recibirá un recordatorio a las 9:00 h del día siguiente. Puede ajustar estos valores según sus necesidades.

3. Guarde el código y pulse «Alt» + «Q» para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.

4. A partir de ahora, al hacer clic en el botón «Enviar» en una ventana de correo nuevo o respondido, aparecerá el cuadro de diálogo «Crear tarea», como se muestra en la siguiente captura de pantalla. Haga clic en «Sí» para enviar el correo electrónico y crear la tarea automáticamente, o en «No» para enviarlo sin crear la tarea.