Ustvarite e-poštna obvestila za Excelove posodobitve listov

Pri delu v omrežju v skupni rabi je za več zaposlenih običajno, da dostopajo do skupnih datotek in jih spreminjajo ves dan. V tem članku je razloženo, kako izvajati makro v programu Microsoft Excel, ki bo pošiljal avtomatizirano e-pošto vsakič, ko se spremeni skupni dokument.

Excelov makro za spreminjanje signalnih dokumentov

Ta makro lahko programirate tako, da pošljete e-poštna sporočila določenim članom skupine in jih opozorite na spremembe v omrežni datoteki.

 Zasebna podpodročnica_BeforeSave (ByVal SaveAsUI kot logična, _
Prekliči kot logično besedilo)
Dim odgovor As String
answer = MsgBox ("To je mesto, kjer besedilo pozove uporabnika, če želi shraniti ali ne" vbYesNo, "tukaj je naslov tega polja")
Če je odgovor = vbNo Potem prekliči = True
Če je odgovor = vbYes Potem
'odprti tipi stvari
Nastavi OutlookApp = CreateObject ("Outlook.Application")
Nastavi OlObjects = OutlookApp.GetNamespace ("MAPI")
Nastavi newmsg = OutlookApp.CreateItem (olMailItem)
"dodaj prejemnike
'newmsg.Recipients.Add ("Ime tukaj")
newmsg.Recipients.Add (" ")
"dodaj predmet
newmsg.Subject = "Zadeva vrstica samodejne e-pošte tukaj"
"dodaj telo
newmsg.Body = "telo avto-pošte tukaj"
zaslon newmsg.Display
newmsg.Send pošlji sporočilo
'navedite potrditev poslanega sporočila
MsgBox "vstavi potrditveno polje tukaj", "naslov potrditvenega polja"
End If
'shranite dokument
"Me.Worksheets.Save
End Sub