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
