Generování e-mailových oznámení pro aktualizaci Excel listů

Při práci na sdílené síti je velmi běžné, že více zaměstnanců přistupuje a mění běžné soubory po celý den. Tento článek vysvětlí, jak implementovat makro v aplikaci Microsoft Excel, který odešle automatický e-mail při každé změně společného dokumentu.

Změny makra Excel na signální dokument

Toto makro můžete naprogramovat tak, aby odesílalo e-maily konkrétním členům týmu a upozorňovalo je na změny v síťovém souboru.

 Private Sub Workbook_BeforeSave (ByVal SaveAsUI jako logický, _
Zrušit jako logický)
Dim odpověď jako řetězec
answer = MsgBox ("Toto je místo, kde vložíte text, aby vyzval uživatele, pokud chce uložit nebo ne" vbYesNo, "zde je název tohoto pole")
Pokud odpověď = vbNo Pak Cancel = True
Pokud odpověď = vbYes Pak
'Otevřít výhled typu věci
Nastavit OutlookApp = CreateObject ("Outlook.Application")
Nastavit OlObjects = OutlookApp.GetNamespace ("MAPI")
Nastavit newmsg = OutlookApp.CreateItem (olMailItem)
'přidat příjemce
'newmsg.Recipients.Add ("zde název")
newmsg.Recipients.Add (" ")
'přidat předmět
newmsg.Subject = "Zde je řádek automatického e-mailu"
'přidat tělo
newmsg.Body = "tělo automatického e-mailu zde"
display '
poslat zprávu newmsg.Send
'uveďte konformaci odeslané zprávy
MsgBox "zde vložte testovací pole s potvrzením" název "potvrzovacího pole"
Konec Pokud
'uložte dokument
'Me.Worksheets.Save
End Sub