Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

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:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest · 8 months ago
    For me the code runs again and again, its like never ending loop. I close email it asks again to send it...
  • To post as a guest, your comment is unpublished.
    MJ · 1 years ago
    When I tried to change something in a cell a message prompted for Outlook email configuration and it just keeps on asking for my password.



    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi MJ,
      Which Excel version are you using? Can you provide a screenshot of the prompt?
  • To post as a guest, your comment is unpublished.
    James Crook · 1 years ago
    Sorry, I posted this in the wrong article. I will post in the correct article
  • To post as a guest, your comment is unpublished.
    James Crook · 1 years ago
    Hello there, The code works great. However, when a cell changes to below the threshold point via a macro operation that copies and pastes the lower value into the designated cell, the code doesn't seem to trigger.

    Also, I would like to apply this code to several cells. Can I copy and paste the code several times and change each copied version to fit each cells' needs? Is there a better way to do that. I can't figure that out. Thank you!
  • To post as a guest, your comment is unpublished.
    Juno24 · 2 years ago
    I copied and pasted the code exactly as-is from this page, but when I make a change to my document I get the message "Syntax Error" and this line highlights: Dim xOutApp As Object. Any help would be appreciated.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Judy,
      Would you provide the Excel version you are using? Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Leah · 2 years ago
    Can i CC more than person in this? Thanks
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Leah,
      Please enter the email addresses directly in the .cc="" line and separate them with semicolon, such as .cc = "AAA@gmail.com;BBB@gmail.com"
  • To post as a guest, your comment is unpublished.
    Jake Berger · 3 years ago
    If anyone found this page wondering how to send an email from Excel using CDO, I threw together a Google Doc -- How to Send Email from Excel using Gmail (https://docs.google.com/document/d/1u5VLzCApU3k4-9Vp9LEfqyFZ6u9tAY0avNPYN_1FsN4/edit?usp=sharing) with code on GitHub gist (https://gist.github.com/bergerjac/7355d4e528fa6c64a02dc494f3d241a1)