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

Prejšnji Članek Naslednji Članek

Top Nasveti