¿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
Últimas noticias: ¡Kutools para Outlook lanza una versión gratuita!
¡Descubre el nuevo Kutools para Outlook con más de100 funciones increíbles! ¡Haz clic para descargarlo ahora!
📧 Automatización de Email: Respuesta automática (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente correos con varios destinatarios en mensajes individuales ...
📨 Gestión de Email: Recuperar correos electrónicos / Bloquear correos sospechosos por asunto y otros criterios / Eliminar correos electrónicos 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 de la Interfaz: 😊Más emojis atractivos y geniales / Recibe avisos cuando lleguen emails importantes / Minimiza Outlook en vez de cerrarlo ...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos Anti-Phishing / 🕘Mostrar la zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar en lote contactos de correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños ...
Utiliza Kutools en tu idioma preferido; ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!
