mail.box per script ansteuern

[nolimit]

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

[koehlerbv]

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

[nolimit]

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

[koehlerbv]

Ich stehe weiterhin zu meiner Antwort oben, ausser dass ich jetzt den Hintergrund besser kenne: Kopier' die Dokumente, und der Fisch ist geputzt.

Bernhard

[nolimit]

Hallo Bernhard,

jau danke, damit gehts.
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