Hallo!
Bin neu hier und ein ziemlicher Notesanfänger!
Ich soll jetzt einträge von einer Datenbank makieren und diese dann in eine andere Datenbank verschieben,
die ich aber vorher ausgewählen kann.........
Kann mir jemand sagen wie ich mit Lotusscript!!mache..???
Gruß
Esc86
dim session as New NotesSession
dim ws as New NotesUIWorkSpace
dim db as NotesDatabase ' Quell-DB
dim db2 as New NotesDatabase(ServerName, DBPfadUndName) ' Ziel-DB
Dim doc As NotesDocument
Dim doc_temp As NotesDocument
Dim doc2 As NotesDocument
dim dc as NotesDocumentCollection
set db = session.CurrentDatabase
set dc = db.UnprocessedDocuments
set doc = dc.GetFirstDocument
While not doc is Nothing
Set doc_temp = dc.GetNextDocument(doc)
set doc2 = Nothing
set doc2 = doc.CopyToDatabase( db2 )
If Not doc2 is Nothing then
doc.Remove ' Dokument nur löschen, wenn auch kopiert
End If
set doc = doc_temp
WendGruß
Dirk
hey danke für die schnelle antwort
bei
"doc.Remove ' Dokument nur löschen, wenn auch kopiert"
sagt er mir den fehler
MISSING ARGUMENT FOR REMOVE
??????????
hi,
du musst die Dokumente vorher markieren. In Ansichten hast du die Möglichkeit Dokumente durch einen Haken zu markieren.
Das kannst du ganz links vor den Dokumenten machen. Einfach mal klicken, dann wirst du fündig.
Gruß,
devileye1
ich muss das im Agenten unter initialize eingeben oder?
Weil von dort aus kann ichs ja nicht speichern, da er mir immer nen error bringt
und muss ich hier noch was ändern?
Dim db2 As New NotesDatabase(ServerName, DBPfadUndName) ' Ziel-DB
Muss ich da meinen Servernamen einfügen????????
den Servernamen und DBPfadUndNamen musst Du natürlich noch anpassen, die kann ich nicht kennen.
Der Code muss ins initialize.
Schalte mal den Debugger ein und zeige in welcher Zeile der Agent hängt.
Gruß
Dirk
genau da liegt das problem!
ich will eben die Zieldatenbank nicht fest in den Code mit rein bauen sondern selber auswählen können!
Müsste mit
Dim ws As New NotesUIWorkSpace
ws.Prompt( 13, "ybc ", "asdf" )
gehen????????????
den Servernamen und den DatenbankPfad kannst Du natürlich über ein Prompt eingeben lassen.
Gruß
Dirk
find ja super das ihr mir helft aber ich brings einfach net hin *hilfe*
1. wie muss ich dann promt einbauen
ZitatAlles anzeigen
Dim session As New NotesSession
Dim workspace As New NotesUIWorkSpace
Dim db As NotesDatabase ' Quell-DB
Dim retValue As Variant
Dim db2 As New NotesDatabase
retValue = workspace.Prompt( 13, "abc", "abcd" )
Dim doc As NotesDocument
Dim doc_temp As NotesDocument
Dim doc2 As NotesDocument
Dim dc As NotesDocumentCollection
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
While Not doc Is Nothing
Set doc_temp = dc.GetNextDocument(doc)
Set doc2 = Nothing
Set doc2 = doc.CopyToDatabase( db2 )
If Not doc2 Is Nothing Then
doc.Remove ' Dokument nur löschen, wenn auch kopiert
End If
Set doc = doc_temp
Wend
2. Der AGent hängt in dieser Zeile
doc.Remove ' Dokument nur löschen, wenn auch kopiert
FEHLER: fertig: Terminate 26: Missing argument for REMOVE
und hier jetzt auch noch
doc.Remove ' Dokument nur löschen, wenn auch kopiert
FEHLER: fertig: Terminate 7: Missing argument for constructor for: Notesdatabase
zu 1.)
retValue = workspace.Prompt( 13, "abc", "abcd" )
SrvName = ' hier aus Deinem retValue den Server extrahieren
DBName = ' hier aus Deinem retValue den DBName extrahieren
Dim db2 As New NotesDatabase(SrvName, DBName)
zu 2.)
doc.Remove true
Gruß
Dirk
danke!! Ihr seit echt super!!!
Hat geklappt! *freu*
Schönen Tag noch @all .......
Ich geb euch bei gelegeneheit mal nen Bier aus :pint: