Cum să trimiteți memento sau notificare prin e-mail dacă registrul de lucru este actualizat în Excel?
În unele cazuri, poate fi necesar să declanșați o notificare prin e-mail către un destinatar specificat dacă există date actualizate în registrul de lucru pe care l-ați trimis. Acest articol vă va arăta metoda de realizare.
Trimiteți un memento sau o notificare prin e-mail dacă registrul de lucru este actualizat cu codul VBA
Vă rugăm să procedați după cum urmează pentru a trimite un memento sau o notificare prin e-mail dacă registrul de lucru este actualizat.
1. În registrul de lucru, deschideți o foaie de lucru specificată, veți trimite o notificare prin e-mail pe baza datelor actualizate din interior.
2. Faceți clic dreapta pe fila foaie și selectați Afișați codul din meniul cu clic dreapta. Vedeți captura de ecran:
2. În Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți următorul cod în fereastra codului. Vedeți captura de ecran:
Cod VBA: trimiteți un memento sau o notificare prin e-mail dacă registrul de lucru este actualizat
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
notițe: Înlocuiți adresa de e-mail cu adresa de e-mail a destinatarului în linie .To = "Adresă de e-mail". Și schimbați Cc, Subiect, precum și câmpurile de corp din codul VBA după cum aveți nevoie.
3. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.
4. După editarea unei celule din foaia de lucru, a Kutools pentru Excel se va afișa caseta de dialog așa cum se arată în imaginea de mai jos. Dacă doriți să atașați registrul de lucru actualizat în e-mail, faceți clic pe Da buton. Dacă nu, faceți clic pe Nu butonul.
5. Apoi, un e-mail este creat automat cu sau fără registrul de lucru actualizat atașat. Și toate câmpurile specificate sunt, de asemenea, listate în e-mail. Vă rugăm să faceți clic pe Trimiteți pentru a-l trimite.
notițe: Codul VBA funcționează numai atunci când utilizați Outlook ca program de e-mail.
Legate de articole:
- Cum să trimiteți automat e-mailuri pe baza valorii celulei din Excel?
- Cum să trimiteți un e-mail prin Outlook când registrul de lucru este salvat în Excel?
- Cum să trimiteți e-mail dacă o anumită celulă este modificată în Excel?
- Cum să trimiteți e-mail dacă se face clic pe buton în Excel?
- Cum să trimiteți e-mail dacă data limită a fost respectată în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!