Hogyan küldhetünk e-mailt, amikor a címzettek megnyitják a melléklet Excel fájlt?
Legtöbben küldhetünk néhány fontos üzenetet egy Excel fájlmelléklettel ügyfeleinknek, ezért tudnunk kell, hogy a címzett megkapta-e az üzenetet és megnyitotta-e a fájlmellékletet. Ebben az esetben létrehozhat egy VBA kódot az Excel mellékletfájljához, amikor a címzett kinyitja a munkafüzetet és aktiválja a kódot, akkor automatikusan egy gyors e-mailt küldünk Önnek.
Küldjön e-mailt, amikor a csatolt Excel fájlt a címzettek VBA kóddal megnyitják
Küldjön e-mailt, amikor a csatolt Excel fájlt a címzettek VBA kóddal megnyitják
Az Excel fájl elküldése előtt létre kell hoznia egy kódot az alábbiak szerint:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ezután kattintson duplán Ez a munkafüzet alatt a VBAProject szakaszban egy üres modul megnyitásához, majd másolja és illessze be a következő kódot a modulba:
VBA kód: E-mail küldése az Excel fájl megnyitásakor:
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
Megjegyzések: A fenti kódban meg kell változtatnia az e-mail címet a saját címére, amelyre azonnali e-mailt szeretne kapni, és módosítsa a témát az Ön igényeinek megfelelően.
3. Ezután mentse el ezt a munkafüzetet Excel makró-engedélyezett munkafüzet fájlformátum, lásd a képernyőképet:
4. Ezután küldjön egy üzenetet ezzel a fájlmelléklettel a szükséges címzetteknek, amikor a címzettek letöltik és megnyitják ezt az Excel fájlt, és aktiválják a kódot, akkor automatikusan kapunk egy gyors e-mailt, amely azt mondja, hogy a fájlt ki nyitotta meg az alábbiak szerint: bemutatott képernyőkép:
Megjegyzések: Ez a módszer csak akkor érhető el, ha levelezőprogramként az Outlook programot használja.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!