Saltar al contenido principal

¿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


flecha azul burbuja derecha 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

doc enviar al abrir el archivo 1

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:

doc enviar al abrir el archivo 2

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:

doc enviar al abrir el archivo 3

Note: Este método solo está disponible cuando usa Outlook como su programa de correo.

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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

Descripción


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you for the above code. I'm just curious. To add a selected range of a specific worksheet too in the body of the email. I have tried using sh.range select method in your code and the email goes out but without the range probably I'm doing something wrong here or missed to add some additional codes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations