Después de completar una tarea en Outlook, es posible que muchos usuarios deseen enviar un correo electrónico de notificación para notificar a alguien, como el superior. Enviar el correo electrónico manualmente llevará mucho tiempo. Este artículo presentará un método rápido para enviar automáticamente este tipo de correos electrónicos.
Del artículo "4 pasos rápidos para asignar tareas a otros en su Outlook”, puede saber que si su superior le asigna la tarea y ha solicitado un informe de estado por adelantado, como la captura de pantalla a continuación, podrá recibir un correo electrónico de informe automáticamente.
Sin embargo, si la tarea la crea usted mismo, Outlook nunca enviará un correo electrónico de notificación a nadie cuando la marque como completa. En este caso, si desea enviar un correo electrónico de notificación para informar sobre su trabajo, debe hacerlo manualmente. Pero con los siguientes códigos VBA, puede dejar que Outlook lo logre automáticamente.
Enviar automáticamente un correo electrónico de notificación cuando se complete una tarea específica
- En primer lugar, debes abrir Outlook y cambiar a la pestaña "Desarrollador".
- Luego ubique y haga clic en el botón "Visual Basic". Aparecerá una nueva ventana de "Microsoft Visual Basic para aplicaciones".
- Después de eso, haga doble clic en el proyecto "ThisOutlookSession" para abrirlo y luego copie los siguientes códigos VBA en él.
Public WithEvents olItems As Outlook.Items
Private Sub Application_Startup()
Set olItems = Session.GetDefaultFolder(olFolderTasks).Items
End Sub
Private Sub olItems_ItemChange(ByVal Item As Object)
Dim obApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim Recip As String
'Replace "test" as per your needs
If InStr(LCase(Item.Subject), "test") > 0 And Item.Complete = True Then
'Replace with your desired contact
Recip = "John Smith"
If MsgBox("Do you want to send a report to " & Recip & " ?", vbYesNo + vbQuestion, "Confirm Sending Report") = vbYes Then
Set obApp = Outlook.Application
Set olMail = obApp.CreateItem(olMailItem)
With olMail
.To = Recip
.Subject = "Complete: " & Item.Subject
.Body = "Dear Mr. Smith" & vbCrLf & "I've completed this task in " & DateDiff("d", Item.CreationTime, Now) & " day" & Chr(40) & "s" & Chr(41) & "." & vbCrLf & vbCrLf & "Task Name: " & Item.Subject & vbCrLf & "Start Date: " & Item.StartDate & vbCrLf & "Due Date: " & Item.DueDate & vbCrLf & "Creation Time: " & Item.CreationTime & vbCrLf & "Completed Time: " & Now & vbCrLf & vbCrLf & "Task Details: " & vbCrLf & Item.Body
.ReadReceiptRequested = True
'To directly send it,use ".Send" instead
.Display
End With
End If
End If
End Sub
- Posteriormente, proceda a firmar este código y cambie la configuración de la macro para permitir solo macros firmadas digitalmente.
- Finalmente, puede salir de la ventana actual e intentarlo.
- Cuando marques una tarea como completa, recibirás un mensaje, como la siguiente imagen:
- Cuando haga clic en el botón "Sí", se abrirá un nuevo mensaje, como se muestra en la imagen a continuación:
Nota: Si reemplaza la línea ".display" con ".Send", este correo electrónico se enviará directamente sin aparecer.
Preste atención a los mensajes de direcciones de correo electrónico desconocidas
Debe haber recibido muchos correos electrónicos de direcciones desconocidas. Es recomendable tener cuidado con este tipo de correos electrónicos. Es porque pueden parecer inofensivos pero contienen enlaces, archivos adjuntos o macros maliciosos. Una vez que haga clic en ellos o los abra, su Outlook puede infectarse. En ese momento, para recuperar sus datos de Outlook, no tiene más remedio que utilizar un estelar utilidad de corrección de datos de Outlook dañados, como DataNumen Outlook Repair.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparar problema SQL mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com