Generovanie e-mailových oznámení pre aktualizáciu hárkov programu Excel

Pri práci na zdieľanej sieti je veľmi bežné, že viacerí zamestnanci majú prístup k bežným súborom počas celého dňa a menia ich. Tento článok bude vysvetľovať, ako implementovať makro v programe Microsoft Excel, ktorý pošle automatizovaný e-mail zakaždým, keď sa vykoná zmena spoločného dokumentu.

Zmeny makra programu Excel na zmeny dokumentu

Toto makro môžete naprogramovať na odosielanie e-mailov konkrétnym členom tímu, aby ste ich upozornili na zmeny v sieťovom súbore.

 Súkromné ​​Sub Workbook_BeforeSave (ByVal SaveAsUI ako boolean, _
Zrušiť ako boolean)
Dim odpoveď ako String
answer = MsgBox ("Toto je miesto, kde ste vložili text, ktorý vyzve používateľa, ak chce uložiť alebo nie" vbYesNo, "tu je názov tohto poľa")
Ak odpoveď = vbNo Potom Cancel = True
Ak odpoveď = vbYes Potom
'otvoriť výhľad typu veci
Nastaviť OutlookApp = CreateObject ("Outlook.Application")
Nastaviť OlObjects = OutlookApp.GetNamespace ("MAPI")
Nastaviť newmsg = OutlookApp.CreateItem (olMailItem)
'pridať príjemcov
'newmsg.Recipients.Add ("Názov tu")
newmsg.Recipients.Add (" ")
'pridať predmet
newmsg.Subject = "Seminár riadku automatického e-mailu tu"
'pridať telo
newmsg.Body = "telo automatického e-mailu tu"
display '
newmsg.Send 'poslať správu
„uveďte konformitu odoslanej správy
MsgBox "tu vložte testovací box na potvrdenie", "názov potvrdzovacieho poľa"
Koniec Ak
'Uložte dokument
, Me.Worksheets.Save
End Sub