Das Notes Forum
Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: alkuhn am 19.10.09 - 10:36:54
-
Hallo,
mit Hilfe des Forums habe ich es hinbekommen, über einen Agenten eine Textdatei in ein Adressbuch zu importieren. Nun wollte ich den Agenten so einstellen, dass er automatisch vom Server ausgeführt wird. Leider funktioniert das nicht und ich vermute, dass im Agenten Script verwendet wird, der vom Server nicht ausgeführt werden kann. Ich selber habe von der Programmierung keine Ahnung und würde mich über Tipps sehr freuen.
Viele Grüße
Sub Initialize
Dim ws As New notesuiworkspace
Dim session As New notessession
Dim db As notesdatabase
Dim dc As notesdocumentcollection
Dim doc As notesdocument
Dim aktfile As String
Dim fileNum As Integer, cells As Integer, k As Long
Dim fileName As String
Dim var As String
Dim InputStr As String, delimiter As String
Dim FieldArray As Variant
Set db = session.currentdatabase
fileNum = Freefile()
delimiter = "#"
aktfile = "D:\ADRESSEN.TXT"
var=Dir$(aktfile)
Set dc = db.allDocuments
If dc.count <> 0 Then
Call dc.removeall(True)
End If
Call ws.viewrefresh
Open aktfile For Input As fileNum%
Line Input #1, InputStr$
Do While Not Eof(fileNum%)
Line Input #1, InputStr$
FieldArray = Split(InputStr$,delimiter)
Call CreateDocument(db, FieldArray)
Loop
Close fileNum%
Exit Sub
End Sub
Sub CreateDocument(db As notesdatabase, FieldArray As Variant)
Dim doc As New notesdocument(db)
doc.Form = "Person"
doc.Type = "Person"
doc.FullName = FieldArray(0)
doc.InternetAddress = FieldArray(1)
doc.FirstName = FieldArray(2)
doc.LastName = FieldArray(3)
doc.OfficePhoneNumber = FieldArray(4)
doc.OfficeFAXPhoneNumber = FieldArray(5)
Call doc.save(1,0)
End Sub
-
Hallo,
Server und Netzwerklaufwerke. (Thema schon sehr oft)
In diesem Fall koennte es aber reichen, in den Agenteneigenschaften im 2. Register (Schluessel) die Sicherheitsstufe auf Stufe 3. zu setzen.
Andreas
-
Auch NotesUIWorkspace mag der Server gar nicht - es ist ein Frontend-Objekt, das er logischerweise nicht ausführen kann.
Bernhard
-
Ok, dann mache ich mich mal auf die Suche nach den Pfaden mit Servern und lösche den Teil mit NotesUIWorkspace raus. Die Sicherheitsstufe habe ich angepasst.
Vielen Dank für Eure schnellen Tipps!!!
-
Hallo,
nachdem ich NotesUIWorkspace entfernt und die Sicherheitsstufe geändert habe, hat der Import funktioniert. Der Pfad war so richtig. Ich werde mich nun noch auf die Suche nach Infos über die Sicherheitsstufen. Ich danke Euch sehr für Eure Hilfe.
Viele Grüße
-
Agentensicherheit im Register "Sicherheit" einrichten - Zu finden in der Desingner Hilfe