¿Cómo enviar un recordatorio o una notificación por correo electrónico si el libro de trabajo se actualiza en Excel?
En algunos casos, es posible que deba enviar una notificación por correo electrónico a un destinatario específico si hay datos actualizados en el libro de trabajo que envió. Este artículo le mostrará el método para lograrlo.
Envíe un recordatorio o una notificación por correo electrónico si el libro de trabajo se actualiza con el código VBA
Haga lo siguiente para enviar un recordatorio o una notificación por correo electrónico si el libro de trabajo se actualiza.
1. En el libro de trabajo, abra una hoja de trabajo especificada y enviará una notificación por correo electrónico basada en los datos actualizados que contiene.
2. Haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código desde el menú contextual. Ver captura de pantalla:
2. En el Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en la ventana de código. Ver captura de pantalla:
Código de VBA: envíe un recordatorio o notificación por correo electrónico si el libro de trabajo se actualiza
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End Sub
Note: Reemplace la dirección de correo electrónico con la dirección de correo electrónico del destinatario en línea .To = "Dirección de correo electrónico". Y cambie el Cc, el Asunto y los campos del cuerpo en el código VBA según lo necesite.
3. presione el otro + Q llaves para cerrar el Microsoft Visual Basic para aplicaciones ventana.
4. Después de editar una celda en la hoja de trabajo, Kutools for Excel Aparecerá el cuadro de diálogo como se muestra a continuación. Si desea adjuntar el libro de trabajo actualizado en el correo electrónico, haga clic en el Sí botón. Si no, haga clic en el No del botón.
5. Luego, se crea un correo electrónico automáticamente con o sin el libro de trabajo actualizado adjunto. Y todos los campos especificados también se enumeran en el correo electrónico. Haga clic en el Enviar botón para enviarlo.
Note: El código VBA solo funciona cuando usa Outlook como su programa de correo electrónico.
Artículos relacionados:
- ¿Cómo enviar correos electrónicos automáticamente según el valor de la celda en Excel?
- ¿Cómo enviar un correo electrónico a través de Outlook cuando el libro de trabajo se guarda en Excel?
- ¿Cómo enviar un correo electrónico si una determinada celda se modifica en Excel?
- ¿Cómo enviar un correo electrónico si se hace clic en el botón en Excel?
- ¿Cómo enviar un correo electrónico si se ha cumplido la fecha de vencimiento en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!