¿Cómo crear automáticamente una tarea al enviar un correo electrónico en Outlook?
A veces, es posible que deba crear automáticamente una tarea de un correo electrónico cuando lo envíe en Outlook. Aquí le proporcionamos un método para que lo haga 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 una tarea automáticamente basada en un correo electrónico enviado en Outlook. Haz lo siguiente.
1. Inicie su Outlook, presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, copie el siguiente código VBA en el Esta sesión de Outlook ventana de código.
Código VBA: crea 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
Note: 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 es la fecha de envío del mensaje y la tarea vencerá en 3 días. Se le recordará la tarea a las 9 am después de un día. Puede cambiarlos cuando lo necesite.
3. Guarde el código y presione la otro + Q teclas para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
4. A partir de ahora, al hacer clic en el Enviar en una ventana de correo electrónico nueva o respondida, un crear tarea El cuadro de diálogo aparecerá como se muestra a continuación, haga clic en Sí para enviar el correo electrónico y crear una tarea automáticamente, o haga clic en No para enviar el correo electrónico sin crear tarea.
Las mejores herramientas de productividad de oficina
Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva
🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...
📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP) / Programar envío de correos electrónicos / CC/CCO automático según reglas al enviar correo electrónico / Reenvío automático (reglas avanzadas) / Agregar saludo automáticamente / Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...
📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente / Bloquear correos electrónicos fraudulentos por sujetos y otras personas / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Consolidar carpetas ...
📁 Archivos adjuntos profesionales: Guardar lote / Separación de lotes / Comprimir por lotes / Ahorro automático / Desconexión automática / Autocompresión ...
???? Interfaz mágica: 😊Más emojis bonitos y geniales / Aumente su productividad en Outlook con vistas con pestañas / Minimizar Outlook en lugar de cerrar ...
👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes / Correos electrónicos antiphishing / 🕘Mostrar zona horaria del remitente ...
👩🏼🤝👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorios de cumpleaños ...
Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.