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
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
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:
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:
Opombe: Ta metoda je na voljo samo, če Outlook uporabljate kot poštni program.
Najboljša pisarniška orodja za produktivnost
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...
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!