¿Cómo enviar un correo electrónico cuando los destinatarios abren el archivo adjunto de Excel?
La mayoría de nosotros puede enviar algunos mensajes importantes con un archivo de Excel adjunto a nuestros clientes, por lo que necesitamos saber si el destinatario recibió el mensaje y abrió el archivo adjunto. En este caso, puede crear un código VBA para su archivo adjunto de Excel, cuando el destinatario abra el libro de trabajo y active el código, se le enviará automáticamente un correo electrónico.
Envíe un correo electrónico cuando los destinatarios abran el archivo adjunto de Excel con código VBA
Antes de enviar este archivo de Excel, debe crear un código de la siguiente manera:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Luego haga doble clic ThisWorkbook bajo el Proyecto VBA sección para abrir un módulo en blanco, y luego copie y pegue el siguiente código en el módulo:
Código de VBA: envíe un correo electrónico cuando se abra 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
Note: En el código anterior, debe cambiar la dirección de correo electrónico a su propia dirección en la que desea recibir el correo electrónico de solicitud y cambiar el asunto según sus necesidades.
3. Luego guarde este libro como Libro de Excel habilitado para macros formato de archivo, vea la captura de pantalla:
4. Y luego envíe un mensaje con este archivo adjunto a los destinatarios que necesita, cuando los destinatarios descarguen y abran este archivo de Excel y activen el código, se le enviará automáticamente un mensaje de correo electrónico que le informará que el archivo fue abierto por quién de la siguiente manera captura de pantalla mostrada:
Note: Este método solo está disponible cuando usa Outlook como su programa de correo.
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!