Hogyan küldhetünk e-mailes emlékeztetőt vagy értesítést, ha a munkafüzet frissül az Excel programban?
Bizonyos esetekben előfordulhat, hogy e-mail értesítést kell küldenie egy megadott címzettnek, ha az elküldött munkafüzetben frissülnek az adatok. Ez a cikk bemutatja az elérés módját.
Küldjön e-mailes emlékeztetőt vagy értesítést, ha a munkafüzet frissül VBA kóddal
Küldjön e-mailes emlékeztetőt vagy értesítést, ha a munkafüzet frissül VBA kóddal
Kérjük, tegye a következőket e-mailes emlékeztető vagy értesítés küldéséhez, ha a munkafüzet frissül.
1. Nyissa meg a munkafüzetben egy meghatározott munkalapot, amelyről e-mailben értesítést küld a benne lévő frissített adatok alapján.
2. Kattintson a jobb gombbal a lap fülre, és válassza a lehetőséget Kód megtekintése a jobb egérgombbal a menüből. Lásd a képernyőképet:
2. Ban,-ben Microsoft Visual Basic for Applications ablakba, másolja és illessze be a következő kódot a kódablakba. Lásd a képernyőképet:
VBA kód: E-mailes emlékeztető vagy értesítés küldése, ha frissül a munkafüzet
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
Dim xYesOrNo As Integer
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
If xYesOrNo = 6 Then ActiveWorkbook.Save
If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.cc = ""
.Subject = "email notification test"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
If xYesOrNo = 6 Then .Attachments.Add xName
.Display
End With
xMailItem = Nothing
xOutApp = Nothing
End Sub
Megjegyzések: Cserélje ki az e-mail címet a címzett e-mail címére a sorban .To = "E-mail cím". És szükség szerint módosítsa a Vc kódban a Cc, Subject és a body mezőket.
3. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.
4. A munkalap cellájának szerkesztése után a Kutools az Excel számára párbeszédpanel jelenik meg, az alábbi képernyőképen látható. Ha hozzá szeretné csatolni a frissített munkafüzetet az e-mailhez, kattintson a gombra Igen gomb. Ha nem, kattintson a gombra Nem gombot.
5. Ezután automatikusan létrehoz egy e-mailt a frissített munkafüzettel együtt vagy anélkül. És az összes megadott mező szerepel az e-mailben is. Kattintson a gombra Küldés gombra a küldéséhez.
Megjegyzések: A VBA kód csak akkor működik, ha az Outlook programot használja e-mail programként.
Kapcsolódó cikkek:
- Hogyan küldhetünk automatikusan e-mailt az Excel cellája alapján?
- Hogyan küldhetünk e-mailt az Outlookon keresztül, amikor a munkafüzet mentésre kerül az Excelbe?
- Hogyan lehet e-mailt küldeni, ha egy bizonyos cellát módosítanak az Excelben?
- Hogyan küldhetünk e-mailt, ha az Excel gombra kattintunk?
- Hogyan lehet e-mailt küldeni, ha az Excel határidejét betartotta?
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!