Note: The other languages of the website are Google-translated. Back to English

¿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

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


Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

  • Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
  • Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
  • Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
  • Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
  • Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 
Comentarios (3)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna manera de modificar esto para incluir más de un enlace al correo enviado que solo destinatarios y asunto? es decir. agregar el correo enviado como archivo adjunto?
Este comentario fue minimizado por el moderador en el sitio
HOLA,

Esto funcionó durante unos días y ahora ya no funciona.

¿Hay una razón?
Este comentario fue minimizado por el moderador en el sitio
Hola Terri Amos,
Habilite la opción Habilitar todas las macros y la opción Aplicar la configuración de seguridad de macros a los complementos instalados, como se muestra en la siguiente captura de pantalla. Después de eso, reinicie Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
No hay comentarios publicados aquí todavía

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL