Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: nolimit am 22.11.05 - 10:58:29
-
Hallo Zusammen,
gibt es eine Möglichkeit die Mail.box per Lotus Script zu sagen das sie die Mails an den Server abgeben soll, ohne auf die Replikatorseite gehen zu müssen.
Mit Datenbanken geht das mit der Replication class.
Leider habe ich nichts gefunden das die Mail.box ansteuert.
Formelsprache kann ich nicht benutzen.
Danke für Hilfe
Reinhard
-
Ich habe zwar keine Ahnung, wofür das gut sein soll, aber Du kannst einfach die Dokumente aus der lokalen MAIL.BOX in die des Servers kopieren und dann lokal löschen.
Bernhard
-
Hallo Bernhard,
wofür ich das brauche, da wäre der Speicherplatz im Forum zu gering, ;)
aber in der kurz vorm:
Notes läuft in der Verkaufsfilialle Lokal (router-lan-) ohne das der Anwender die Möglichkeit an die Replikationseite zu kommen.(Portallösung)
Da die Nächtliche Replikation nicht immer läuft (Replizierungsplan) soll der Anwender. bevor die Verkaufsstelle Öffnet, auf einen Schalter Klicken der dann in der Replikationshistory schaut ob in der letzten Nacht die Replikation gelaufen ist oder nicht. Wenn nicht, dann soll über die Replikation Classe die Datenbanken Replizieren. Das tun sie soweit auch, aber eben nicht die Mail.box. Wegen der Replikationshistory muss ich alles in LS schreiben.
Hoffe das es Irgendwie Verständlich ist .
Vieleicht hast du doch noch etwas in Petto.
herzlichen Dank
Gruß
Reinhard
-
Ich stehe weiterhin zu meiner Antwort oben, ausser dass ich jetzt den Hintergrund besser kenne: Kopier' die Dokumente, und der Fisch ist geputzt.
Bernhard
-
Hallo Bernhard,
jau danke, damit gehts. ;D
hier das script, vieleicht braucht das ja mal jemand.
gruß
Reinhard
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim db2 As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim view As NotesView
Dim collection As NotesViewEntryCollection
Dim entry As NotesViewEntry
Set db = New NotesDatabase("","mail.box")
Set view = db.GetView("Mail")
Set doc = view.GetFirstDocument()
Set db2 = New NotesDatabase("server","mail.box")
Set collection = view.AllEntries
Set entry = collection.GetFirstEntry()
While Not(doc Is Nothing)
Call doc.CopyToDatabase(db2)
Set doc = view.GetNextDocument(doc)
Wend
While Not(entry Is Nothing)
Set doc2 = entry.Document
doc2.Remove(True)
Set entry = collection.GetNextEntry(entry)
Wend
End Sub