Kako poslati e-poštni opomnik ali obvestilo, če je delovni zvezek posodobljen v Excelu?
V nekaterih primerih boste morda morali sprožiti e-poštno obvestilo določenemu prejemniku, če so v poslanem delovnem zvezku posodobljeni podatki. Ta članek vam bo pokazal način, kako to doseči.
Pošljite e-poštni opomnik ali obvestilo, če je delovni zvezek posodobljen s kodo VBA
Pošljite e-poštni opomnik ali obvestilo, če je delovni zvezek posodobljen s kodo VBA
Če posodobite delovni zvezek, po e-pošti pošljite opomnik ali obvestilo.
1. V delovnem zvezku odprite določen delovni list in na podlagi posodobljenih podatkov v njem boste poslali e-poštno obvestilo.
2. Z desno miškino tipko kliknite jeziček lista in izberite Ogled kode v meniju z desnim klikom. Oglejte si posnetek zaslona:
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite naslednjo kodo v okno kode. Oglejte si posnetek zaslona:
Koda VBA: Če je delovni zvezek posodobljen, pošljite e-poštni opomnik ali obvestilo
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 SubOpombe: E-poštni naslov zamenjajte z e-poštnim naslovom prejemnika v vrstici .To = "E-poštni naslov". In spremenite polja Cc, Subject in body v kodo VBA, kot potrebujete.
3. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.
4. Po urejanju celice na delovnem listu a Kutools za Excel Pojavi se pogovorno okno, kot je prikazano spodaj. Če želite v e-poštno sporočilo priložiti posodobljeni delovni zvezek, kliknite Da . Če ne, kliknite Ne gumb.
5. Nato se samodejno ustvari e-poštno sporočilo s priloženo posodobljeno delovno knjigo ali brez nje. Vsa navedena polja so navedena tudi v e-pošti. Kliknite Pošlji gumb, da ga pošljete.
Opombe: Koda VBA deluje samo, če Outlook uporabljate kot svoj e-poštni program.
Sorodni članki:
- Kako samodejno poslati e-pošto na podlagi vrednosti celice v Excelu?
- Kako poslati e-pošto prek Outlooka, ko je delovni zvezek shranjen v Excelu?
- Kako poslati e-pošto, če je določena celica spremenjena v Excelu?
- Kako poslati e-pošto, če v Excelu kliknemo na gumb?
- Kako poslati e-pošto, če je bil datum izpolnjen v Excelu?
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
