¿Cómo recibir una notificación por correo electrónico cuando un destinatario abre tu archivo adjunto de Excel?
Al enviar información importante en un archivo adjunto de Excel, puede ser útil saber si el destinatario ha abierto el archivo. Con VBA, puedes crear un código que active una notificación por correo electrónico automática que se te envíe tan pronto como el destinatario abra el libro de trabajo. Esta guía te mostrará cómo configurar esta funcionalidad en Excel, permitiéndote recibir confirmación cada vez que se acceda al archivo adjunto.
Desencadenar una notificación por correo electrónico cuando se abre un archivo adjunto de Excel usando código VBA
Nota: Este método solo está disponible cuando usas Outlook como programa de correo.
Antes de enviar este archivo de Excel, debes crear un código de la siguiente manera:
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Luego haz doble clic en ThisWorkbook bajo la sección VBAProject para abrir un módulo en blanco, y luego copia y pega el siguiente código en el módulo:
Código VBA: Enviar un correo electrónico cuando se abre el archivo de Excel:
Private Sub Workbook_Open()
'Updateby Extendoffice
Dim olkObj As Object
Dim olkEm As Object
Dim strbody As String
Set olkObj = CreateObject("Outlook.Application")
Set olkEm = olkObj.CreateItem(0)
strbody = "Hi there" & vbNewLine & vbNewLine & _
ThisWorkbook.Name & vbNewLine & _
"was opened by" & vbNewLine & _
Environ("username")
On Error Resume Next
With olkEm
.To = ""
.CC = ""
.BCC = ""
.Subject = "File opened"
.Body = strbody
.Send
End With
On Error GoTo 0
Set olkEm = Nothing
Set olkObj = Nothing
End Sub
Nota: En el código anterior, debes cambiar la dirección de correo electrónico a tu propia dirección donde deseas recibir el correo de aviso, y cambiar el asunto según tus necesidades.
3. Luego guarda este libro como tipo de archivo Libro de Excel Habilitado para Macros, ver captura de pantalla:
4. Y luego envía un mensaje con este archivo adjunto a los destinatarios que necesites; cuando los destinatarios descarguen y abran este archivo de Excel y activen el código, se te enviará automáticamente un correo de aviso indicándote quién abrió el archivo, como se muestra en la siguiente captura de pantalla:
Las mejores herramientas de productividad para Office
Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!