hallo,
ich hab eine mail datenbank, in die gehen taeglich emails ein. diese emails wiederum gehen in eine ansicht, die heisst "xxx". aus dieser ansicht werden diese emails dann mit diesem script an eine DB geschickt (in einem agent, after new mail has arrived):
Sub Initialize
Dim Session As New Notessession
Dim db As Notesdatabase
Dim uidoc As Notesuidocument
Dim doc As Notesdocument
Dim uiview As Notesuiview
Dim TargetDB As Notesdatabase
Dim TargetDoc As Notesdocument
Dim Temp As String
Set db = session.currentdatabase
Set view = db.GetView( "xxx")
Set doc = view.getfirstdocument
Temp = Cstr(doc.From(0)) + Chr$(9)
Temp = Temp & Cstr(doc.PostedDate(0)) & Chr$(10)
Temp = Temp & Chr$(10)
Temp = Temp & Cstr(doc.Subject(0)) & Chr$(10)
Temp = Temp & Cstr(doc.Body) + Chr$(10)
Set targetdb = New NotesDatabase( "", "SANYOinf.nsf" )
Set targetdoc = New NotesDocument ( targetdb )
targetdoc.Form = "Document"
targetdoc.Body = Temp
targetdoc.info_comment = doc.Subject
Call targetdoc.save(True,True)
End Sub
dieser agent funktioniert auch, aber allerdings nur tagsueber. nachts, wenn mein server unten ist, weil der backupt laeuft, und leute aus den USA schreiben, dann bleibt die email in der mail datenbank drin und geht nicht rueber.
ich dachte, ich kann das so loesen:
hab eine replik von der DB auf meinem cluster server (secln02) und auch eine replik von der mail datenbank auf secln02. ich dachte, dass der agent dann halt vom secln02 aus laeuft, weil der ist ja immer oben. dazu hab ich aber nur die repliken erstellt, weil in dem agent finde ich nirgends, wo ich sagen kann, auf welchem server er das machen soll.
ehrlich gesagt, ich denke mir, dass das ganz was einfaches ist, aber ich steh im moment wie der ochs vorm berg.
bin fuer jeden tip dankbar.
gruss,
daniela