Generer e-mail-meddelelser til opdateringer af Excel-arkiver

Når du arbejder på et fælles netværk, er det meget almindeligt, at flere medarbejdere får adgang til og ændrer almindelige filer hele dagen. Denne artikel vil forklare, hvordan man implementerer en makro i Microsoft Excel, der sender en automatisk email, hver gang der foretages en ændring af et fælles dokument.

Excel makro til ændringer i signaldokumentet

Du kan programmere denne makro til at sende e-mails til bestemte teammedlemmer for at advare dem om ændringer i en netværksfil.

 Privat Sub Workbook_BeforeSave (ByVal SaveAsUI Som Boolean, _
Annuller som boolsk)
Dim svar som streng
answer = MsgBox ("Dette er her du lægger teksten for at spørge brugeren, hvis han vil gemme eller ej" vbYesNo, her er titlen på den boks ")
Hvis svaret = vbNo Så Cancel = True
Hvis svaret = vbYes Så
'åbne outlook type ting
Indstil OutlookApp = CreateObject ("Outlook.Application")
Indstil OlObjects = OutlookApp.GetNamespace ("MAPI")
Indstil newmsg = OutlookApp.CreateItem (olMailItem)
'Tilføj modtagere
'newmsg.Recipients.Add ("Name Here")
newmsg.Recipients.Add (" ")
'tilføj emne
newmsg.Subject = "Emnelinje for automatisk email her"
'Tilføj krop
newmsg.Body = "body of auto email here"
newmsg.Display 'display
newmsg.Send 'send besked
'give konformation af sendte besked
MsgBox "indsæt bekræftelsesboks test her",, "titel af bekræftelsesboks"
Afslut Hvis
'Gem dokumentet
'Me.Worksheets.Save
Slutdel