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 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!
