Herbers Excel-Forum - das Archiv

Auto. Benachrichtigung wenn E.Datei sich ändert!

Bild

Betrifft: Auto. Benachrichtigung wenn E.Datei sich ändert!
von: Wolfgang

Geschrieben am: 06.01.2007 12:20:06
Hallo zusammen,
ersteinmal vielen Dank Thorsten. Siehe 02.11.2006 11:31
Mit Hilfe von Kollegen habe wir Dein Makro etwas abgeändert und es läuft soweit.
(Outlook wurde duch Lotos Notes ersetzt)
Hier das Makro
'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 LNSession = CreateObject("Notes.NotesSession")
AWS = ThisWorkbook.FullName
Set LNDb = LNSession.GetDatabase("DERUEMA03/M/GMSERVER/GMC", "MAIL\E\FZHR7L.nsf")
Set MailDoc = LNDb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = "wolfgang"
MailDoc.Subject = "Meldung von Excel" & Date & Time
MailDoc.Body = "Test"
MailDoc.Send 0
Set LNSession = Nothing
Set LNDb = Nothing
Set MailDoc = Nothing
End If
End Sub
Jetzt wollte ich aber noch einige Änderungen vornehmen
die aber nicht funktioneren.
1.
Ich möchte die Änderungsmeldung an mehrere Personen senden
(MailDoc.sendto = "wolfgang" + Boris.
Dabei zeigt er mir aber einen Fehler bei
MailDoc.Send 0
2.
Zur Zeit wird die Änderungsmitteilung nur Versand
wenn diese der Nutzer
Set LNDb = LNSession.GetDatabase "DERUEMA03/M/GMSERVER/GMC", "MAIL\E\FZHR7L.nsf")
ausführt.
Wie muß das Makro aussehen um eine Änderungsmitteilung zu senden, wenn mehrer Personen die sich auf verschiedenen Servern befinden, die Datei ändern?
Gruß und schönes Wochenende
Wolfgang
Bild

Betrifft: AW: Auto. Benachrichtigung wenn E.Datei sich ändert!
von: Oberschlumpf
Geschrieben am: 06.01.2007 12:31:14
Hi Wolfgang
Nur ne Vllt-Lösung für 1.
Versuch es mal so:
MailDoc.sendto = "wolfgang;Boris;usw"
Wenn die Empfänger aus Variablen kommen, dann so:
MailDoc.sendto = var1 & ";" & var2 & ";" var3 usw
Konnte ich helfen?
Ciao
Thorsten
Bild

Betrifft: AW: Auto. Benachrichtigung wenn E.Datei sich ändert!
von: Wolfgang

Geschrieben am: 06.01.2007 13:34:27
Hallo Thorsten,
ne leider nicht. Makro hängt sich immer wieder bei
MailDoc.Send 0
auf. :-((...
Habe auch shon alle möglichen Varianten zur Aufzählung versucht
+ & , : funktioniert nicht.
Vielleich hat ja noch jemand ne Lösungsvorschlag.
Gruß
Wolfgang
 Bild