Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

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

Author Siluvia Last modified

A veces, es posible que necesite crear automáticamente una tarea de un correo electrónico al enviarlo en Outlook. Aquí le proporcionamos un método para que pueda hacerlo rápidamente.

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 basada en un correo electrónico enviado en Outlook. Por favor, siga los siguientes pasos.

1. Abra su Outlook, presione "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. En la ventana "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
the screenshot of step about creating a task when sending email in outlook 1

Nota: Los destinatarios del mensaje y el cuerpo del mensaje se agregarán automáticamente al cuerpo de la tarea. La fecha de inicio de la tarea será la fecha de envío del mensaje, y la tarea vencerá en 3 días. Se le recordará la tarea a las 9 am al día siguiente. Puede cambiarlos según sea necesario.

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

4. A partir de ahora, cuando haga clic en el botón "Enviar" en una ventana de correo nuevo o respondido, aparecerá un cuadro de diálogo "Crear Tarea" como se muestra en la captura de pantalla a continuación; haga clic en "Sí" para enviar el correo y crear una tarea automáticamente, o haga clic en "No" para enviar el correo sin crear la tarea.

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

Las mejores herramientas de productividad para Office

Noticia de última hora: ¡Kutools para Outlook lanza su versión gratuita!

¡Descubre el nuevo Kutools para Outlook con más de100 increíbles funciones! Haz clic para descargar ahora.

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar tus correos electrónicos sin esfuerzo: responder, resumir, optimizar, ampliar, traducir y redactar correos.

📧 Automatización de correo electrónico: Respuesta automática (disponible para POP e IMAP) / Programar envío de correo electrónico / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con múltiples destinatarios en emails individuales...

📨 Gestión de correo electrónico: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros filtros / Eliminar duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan emails importantes / Minimizar Outlook en vez de cerrar...

👍 Funciones en un clic: Responder a Todos con Adjuntos / Correos antiphishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contacto en lote desde emails seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Utiliza Kutools en tu idioma preferido — disponible en Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales.

Activa Kutools para Outlook al instante con un solo clic. No esperes más, descarga ahora y maximiza tu productividad.

kutools for outlook features1 kutools for outlook features2

🚀 Descarga con un solo clic — Consigue todos los complementos para Office

Muy recomendado: Kutools para Office (5 en1)

Descarga los cinco instaladores a la vez con solo un clic — Kutools para Excel, Outlook, Word, PowerPoint y Office Tab Pro. Haz clic para descargar ahora.

  • Comodidad en un solo clic: Descarga los cinco paquetes de instalación en una sola acción.
  • 🚀 Listo para cualquier tarea en Office: Instala los complementos que necesites cuando los necesites.
  • 🧰 Incluye: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint