Excel - teavitage posti teel jagatud töövihiku värskendamisest
Probleem
Mul on Exceli töövihik, mis on salvestatud võrgudraivile ja mida kasutavad mitmed kasutajad. Mul on vaja makro, mis saadab teate (posti teel) iga kord, kui keegi Exceli lehte värskendab. Kuidas seda rakendada?Lahendus
See makro saadab automaatselt e-kirja mis tahes aadressile / aadressidele, kui töövihik on salvestatud:Privaatne alltöövihik_BeforeSave (ByVal SaveAsUI kui loogiline, _Tühista kui loogiline)
Vastus vastusena stringina
answer = MsgBox ("See on koht, kus paned teksti kasutajale, kui ta soovib salvestada või mitte", on siin selle kasti pealkiri ")
Kui vastus = vbNo Siis Tühista = Tõsi
Kui vastus = vbYes, siis
Avatud väljavaate tüübi asjad
Määra OutlookApp = CreateObject ("Outlook.Application")
Määra OlObjects = OutlookApp.GetNamespace ("MAPI")
Set newmsg = OutlookApp.CreateItem (olMailItem)
'adressaatide lisamine
'newmsg.Recipients.Add ("Nimi siin")
newmsg.Recipients.Add (" ")
lisada teema
newmsg.Subject = " Automaatse e-kirja teemarida siin "
'lisage keha
newmsg.Body = "auto e-posti aadress siin"
newmsg.Display 'kuva
newmsg.Send 'saatke sõnum
„andke saadetud sõnumi vorming
MsgBox "siia kinnitage kinnituskasti test", "kinnituse kasti pealkiri"
Lõpeta kui
salvestage dokument
'Me.Worksheets.Save
Lõpeta alam
Tänu shark2000brile selle otsa eest.