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