Vai al contenuto principale

Come inviare un'e-mail quando il file Excel allegato viene aperto dai destinatari?

La maggior parte di noi può inviare alcuni messaggi importanti con un file in allegato Excel ai nostri clienti, quindi dobbiamo sapere se il destinatario ha ricevuto il messaggio e ha aperto il file allegato. In questo caso, puoi creare un codice VBA per il tuo file allegato di Excel, quando il destinatario apre la cartella di lavoro e attiva il codice, ti verrà inviata automaticamente un'e-mail di richiesta.

Invia un'e-mail quando il file Excel allegato viene aperto dai destinatari con codice VBA


freccia blu freccia destra Invia un'e-mail quando il file Excel allegato viene aperto dai destinatari con codice VBA

Prima di inviare questo file Excel, è necessario creare un codice come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi fare doppio clic Questa cartella di lavoro sotto il Progetto VBA sezione per aprire un modulo vuoto, quindi copia e incolla il codice seguente nel modulo:

Codice VBA: invia un'e-mail all'apertura del file 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

invio documento all'apertura del file 1

Note:: Nel codice sopra, è necessario modificare l'indirizzo e-mail con il proprio indirizzo a cui si desidera ricevere l'e-mail tempestiva e modificare l'oggetto in base alle proprie esigenze.

3. Quindi salva questa cartella di lavoro come Cartella di lavoro abilitata per Excel formato di file, vedi screenshot:

invio documento all'apertura del file 2

4. E poi invia un messaggio con questo file allegato ai destinatari di cui hai bisogno, quando i destinatari scaricano e aprono questo file Excel e attivano il codice, ti verrà automaticamente inviata un'e-mail che ti informa che il file è stato aperto da chi come segue screenshot mostrato:

invio documento all'apertura del file 3

Note:: Questo metodo è disponibile solo quando utilizzi Outlook come programma di posta.

I migliori strumenti per la produttività in ufficio

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

scheda kte 201905


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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