Preskoči na glavno vsebino

Kako poslati e-poštno sporočilo, ko prejemniki odprejo datoteko Excel s prilogo?

Večina od nas lahko svojim strankam pošlje nekatera pomembna sporočila s prilogo v Excelovi datoteki, zato moramo vedeti, ali je prejemnik prejel sporočilo in odprl prilogo. V tem primeru lahko ustvarite kodo VBA za datoteko priloge Excel, ko prejemnik odpre delovni zvezek in aktivira kodo, nato vam bo samodejno poslano hitro e-poštno sporočilo.

Ko prejemniki s kodo VBA odprejo datoteko Excel, pošljite e-pošto


puščica modri desni mehurček Ko prejemniki s kodo VBA odprejo datoteko Excel, pošljite e-pošto

Pred pošiljanjem te Excelove datoteke ustvarite naslednjo kodo:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Nato dvokliknite Ta delovni zvezek pod VBAProject , da odprete prazen modul, nato pa v modul kopirajte in prilepite naslednjo kodo:

Koda VBA: Pošljite e-poštno sporočilo, ko se odpre datoteka 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 pošlji ob odprtju datoteke 1

Opombe: V zgornji kodi spremenite e-poštni naslov na svoj naslov, na katerega želite prejeti hitro e-poštno sporočilo, in spremenite zadevo po svojih željah.

3. Nato shranite ta delovni zvezek kot Excelov delovni zvezek z omogočeno makro format datoteke, glej posnetek zaslona:

doc pošlji ob odprtju datoteke 2

4. Nato pošljite sporočilo s to prilogo datotek prejemnikom, ki jih potrebujete. Ko bodo prejemniki prenesli in odprli to Excelovo datoteko in aktivirali kodo, vam bo samodejno poslano hitro e-poštno sporočilo in vam sporočilo, da je datoteko odprl kdo, kot sledi prikazan posnetek zaslona:

doc pošlji ob odprtju datoteke 3

Opombe: Ta metoda je na voljo samo, če Outlook uporabljate kot poštni program.

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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