Auto. Benachrichtigung wenn E.Datei sich ändert!
08.01.2007 15:37:45
Wolfgang
Punkt 1 meiner Anfrage von Samstag habe ich selbst lösen können.
Bleibt Punkt 2 übrig.
Hier das Makro.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'wird nur gesendet, wenn seit letztem Speichern Änderungen in Datei vorgenommen wurden
If Not ThisWorkbook.Saved Then
Dim MailDoc As Object, OutApp As Object
'Set OutApp = CreateObject("Notes.Application")'
Dim recipients(1 To x) As String
'Gibt an wieviele Personen die Benachrichtigung bekommen sollen
Set LNSession = CreateObject("Notes.NotesSession")
Set LNDb = LNSession.GetDatabase("DERUEMA03/M/GMSERVER/GMC", "MAIL\E\FZHR7L.nsf")
Set MailDoc = LNDb.CREATEDOCUMENT
'Set maildoc = LNDb.NotesDocument(LNDb)
MailDoc.Form = "Memo"
MailDoc.Subject = "Meldung von Excel" & Date & Time
MailDoc.Body = "Test"
recipients(1) = "x"
recipients(2) = "x"
recipients(3) = "x"
MailDoc.send 0, recipients
Set LNSession = Nothing
Set LNDb = Nothing
Set MailDoc = Nothing
End If
End Sub
Zur Zeit werden x Personen informiert wenn sich die Datei ändert.
Aber nur wenn die Änderung von
Set LNDb = LNSession.GetDatabase("DERUEMA03/M/GMSERVER/GMC", "MAIL\E\FZHR7L.nsf")
ausgeführt wird.
Wie muß ich das Makro erweitern wenn auch User
("DERUEMA04/M/GMSERVER/GMC", "MAIL\K\ZZt1zp.nsf")bzw. andere User
Änderungen vornimmt / vornehmen.
VG
Wolfgang