Excel - wordt per e-mail op de hoogte gesteld wanneer de gedeelde werkmap is bijgewerkt
Kwestie
Ik heb een Excel-werkmap opgeslagen op een netwerkstation en gebruikt door meerdere gebruikers. Ik heb een macro nodig die een melding (per e-mail) verzendt telkens wanneer iemand het Excel-blad bijwerkt. Hoe kan dit worden geïmplementeerd?Oplossing
Deze macro stuurt automatisch een e-mail naar elk adres / adres wanneer de werkmap wordt opgeslagen:Private Sub Workbook_BeforeSave (ByVal SaveAsUI als Boolean, _Annuleren als Boolean)
Dim antwoord als string
answer = MsgBox ("Dit is waar je de tekst plaatst om de gebruiker te vragen of hij wil opslaan of niet" vbYesNo, "hier is de titel van dat vakje")
Als answer = vbNo Then Cancel = True
Als antwoord = vb Ja dan
'open outlook type dingen
Stel OutlookApp = CreateObject ("Outlook.Application") in
OlObjects = OutlookApp.GetNamespace ("MAPI") instellen
Stel newmsg = OutlookApp.CreateItem (olMailItem) in
'voeg ontvangers toe
'newmsg.Recipients.Add ("Name Here")
newmsg.Recipients.Add (" ")
'Voeg een onderwerp toe
newmsg.Subject = " Onderwerpregel van automatische e-mail hier "
'voeg lichaam toe
newmsg.Body = "body van automatische e-mail hier"
newmsg.Display 'display
newmsg Stuur bericht verzenden
'geef vorm aan het verzonden bericht
MsgBox "test hier de bevestigingstest invoegen",, "titel van bevestigingsvak"
Stop als
'bewaar het document
'Me.Worksheets.Save
End Sub
Bedankt aan shark2000br voor deze tip.