Hallo,
ich benutze für den Import in ein Notes Addressbuch den folgenden Agenten (hier aus dem Forum):
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim fileNum As Integer, cells As Integer, k As Long
Dim fileName As String
Dim InputStr As String, delimiter As String
Dim FieldArray As Variant
Set db = session.currentdatabase
fileNum% = Freefile()
Print "openfile"
' Dateipfad
fileName$ = "E:\Temp\csv1.txt"
' Trennzeichen
delimiter = ","
Open fileName$ For Input As fileNum%
Line Input #1, InputStr$
Do While Not Eof(fileNum%)
' Zeile für Zeile einlesen
'Print InputStr$
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 = "Kontakt"
doc.CompanyName = FieldArray(5)
doc.FirstName = FieldArray(1)
doc.OfficePhoneNumber = FieldArray(6)
doc.FullName = FieldArray(3)
doc.LastName = FieldArray(2)
doc.Title = FieldArray(4)
doc.OfficeZip = FieldArray(12)
doc.OfficeFAXPhoneNumber = FieldArray(7)
doc.OfficeCountry = FieldArray(14)
doc.MailAddress = FieldArray(10)
doc.OfficeStreetAddress = FieldArray(11)
doc.OfficeCity = FieldArray(13)
doc.CellPhoneNumber = FieldArray(
doc.Comment = FieldArray(15)
Call doc.save(1,0)
End Sub
Das Problem das ich habe ist folgendes:
Bei den anschliessend erstellten Dokumenten sind leider die ä ö ü ß nicht in einem lesbaren Format vorhanden.
Das Problem tritt aber nur auf wenn ich eine Datei mit ca. 3500 Datensätzen einlese.
Wenn ich weniger Datensätze in der Datei habe sind die ä ü ö ß wunderbar zu lesen.
Kennt jemand dieses Problem und hat evtl einen Lösung?
Gruß Stefan
