Hallo Zusammen,
ich muss ein wenig weiter ausholen:
ich administriere in einem sog. Share-Point eine Exel-Datei, in der mehrere, von einander unabhängige Abteilungen, Teilnehmer für zukünftige Beschulungsmaßnahmen eintragen. Von meiner Abteilung werden dann zeitgerecht vor Termin die Teilhnehmer aus dieser Liste heraus eingetragen.
Letzte Tage hatte mir ein "Fachmann" einmal die komplette Tabelle geleert und anschließend natürlioch gespeichert. Da die Datei auf einem entfernten Server liegt, kann ich persönlich auch nicht mal (so eben) eine Wiederherstellung fahren.
Jetzt habe ich einen VBA-Code, der mir beim Öffnen immer einen "Ist-Zustand-vor-Bearbeitung" der Datei per Email schickt.
So kann ich immer sehen, wer die Datei als letztes bearbeitet hat, und nötigenfalls sofort wieder herstellen.
Dieser VBA-Code läuft natülich auch ab, wenn ich die Datei öffne.
Private Sub Workbook_Open()
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Dim Anhang As String
Anhang = ThisWorkbook.FullName
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
.To = "vorname.namer@meineadresse.de"
.Subject = "Massnahmei.xlsm"
.Body = " wurde bearbeitet."
.attachments.Add Anhang
'.Body = "Mailtext" & vbCrLf & vbCrLf
'.Display
.Send
'End With
SendKeys "%s", True
SendKeys "^{ENTER}", True
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
End Sub
Gibt es eine einfache Möglichkeit, dass ich mir selber keine Email schicke?
Danke vorab
|