Auto. Benachrichtigung wenn E.Datei sich ändert!
16.01.2007 13:57:56
Wolfgang
vielen Dank. Durch Eure Hilfe habe ich dann doch das Makro hinbekommen.
Jetzt gibt es noch ne winzige Kleinigkeit zu verbessern.
Kann man das Makro so erstellen das die Benachrichtigung nur erfolgt wenn das Dokument mit der Änderung gespeichert wird?
Zur Zeit wird die Benachrichtigung auch Versand wenn die Änderung im Dokument nicht wirksam ist, sprich die Änderung nicht gespeichert wird.
Vielleicht mit einer Messagebox die Abfragt ob ich den Verteiler informieren will?
Vielen Dank für Eure Hilfe.
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 3) 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 = "Das Absprachen Dokument hat sich geändert."
recipients(1) = "x"
recipients(2) = "y"
recipients(3) = "z"
MailDoc.send 0, recipients
Set LNSession = Nothing
Set LNDb = Nothing
Set MailDoc = Nothing
End If
End Sub