Excel - biti obaviješten putem pošte kada se dijeli radna knjiga ažurira
Problem
Imam Excelovu radnu knjigu pohranjenu na mrežnom pogonu koju koristi više korisnika. Trebam makronaredbu koja će poslati obavijest (poštom) svaki put kad netko ažurira Excelov list. Kako se to može provesti?Riješenje
Ova makronaredba automatski će poslati e-poštu na bilo koju adresu / adrese svaki put kada se radna knjiga sprema:Privatna pod radna knjiga_BeforeSave (ByVal SaveAsUI kao logički, _Otkaži kao logično)
Dim odgovor kao niz
answer = MsgBox ("Ovo je mjesto gdje tekst postavlja upit korisniku ako želi spremiti ili ne" vbYesNo, "ovdje je naslov tog okvira")
Ako je odgovor = vbNo onda Cancel = True
Ako je odgovor = vbYes Onda
'otvoreni izgled tipa stvari
Postavi OutlookApp = CreateObject ("Outlook.Application")
Postavi OlObjects = OutlookApp.GetNamespace ("MAPI")
Postavi newmsg = OutlookApp.CreateItem (olMailItem)
'dodajte primatelje
'newmsg.Recipients.Add ("Naziv ovdje")
newmsg.Recipients.Add (" ")
'dodajte predmet
newmsg.Subject = " Redak teme e-pošte ovdje "
'dodajte tijelo
newmsg.Body = "tijelo e-pošte ovdje"
Prikazuje se newmsg.Display
newmsg.Send 'pošalji poruku
'dati potvrdu poslane poruke
MsgBox "umetnite potvrdni test ovdje",, "naslov potvrdnog okvira"
Završi ako
'spremite dokument
„Me.Worksheets.Save
Kraj pod
Zahvaljujući shark2000br za ovaj savjet.