Excel - Bli varslet via e-post når delt arbeidsbok er oppdatert
Utgave
Jeg har en Excel-arbeidsbok lagret på en nettverksstasjon og brukt av flere brukere. Jeg trenger en makro som vil sende et varsel (via post) hver gang noen oppdaterer Excel-arket. Hvordan kan dette implementeres?Løsning
Denne makroen sender automatisk en e-post til en hvilken som helst adresse / adresser når arbeidsboken er lagret:Private Sub Workbook_BeforeSave (ByVal SaveAsUI Som Boolean, _Avbryt som boolsk)
Dim svar som streng
answer = MsgBox ("Dette er hvor du legger teksten til å spørre brukeren om han vil lagre eller ikke" vbYesNo, "her er tittelen på den boksen")
Hvis svaret = vbNo deretter Avbryt = True
Hvis svaret = vbYes deretter
'åpne outlook type ting
Sett OutlookApp = CreateObject ("Outlook.Application")
Angi OlObjects = OutlookApp.GetNamespace ("MAPI")
Angi newmsg = OutlookApp.CreateItem (olMailItem)
'legg til mottakere
'newmsg.Recipients.Add ("Name Here")
newmsg.Recipients.Add (" ")
'legg til emne
newmsg.Subject = " Emnelinje for automatisk e-post her "
Legg til kropp
newmsg.Body = "body of auto email here"
newmsg.Display 'display
newmsg.Send 'send melding
'gi konformasjon av sendt melding
MsgBox "sett inn bekreftelsesboks-test her", "tittel på bekreftelsesboks"
Slutt om
'lagre dokumentet
'Me.Worksheets.Save
Slutt Sub
Takk til shark2000br for dette tipset.