¿Cómo crear automáticamente una tarea al enviar un correo electrónico en Outlook?
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

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.

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.
📧 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.


🚀 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