Import einer ASCII-Datei in Pers. Adressbuch

[Tommy B]

Hallo,
habe folgendes Problem:
möchte in mein persönliches Adressbuch aus einer Excel-Datei die Kontakte importieren lassen.
(Der Import funktioniert über ein Script soweit auch)
Nur sehe ich die importierten Einträge nicht!
Kann mir irgendjemand weiterhelfen an was dies liegen könnte!
Benutze die Schablone (StdR4PersonalAddressBook/de)
Vielen Dank

[Driri]

Meine Kristallkugel rät mir, prüfe ob die Form korrekt gesetzt wird.

Bau Dir zur Not eine Ansicht, die alle Dokumente anzeigt und nach Form sortiert ist. Vermutlich findest Du dort auch deine Einträge. Für diese kannst Du dann ja per Agent das Feld Form umschießen ("Person" heißt die Form).

[umi]

Ausserdem muss das Feld Type glaubs auch noch auf "Person" gesetzt sein, sonst zeigt Notes nichts an.

evtl. gibts noch weitere Felder die unbedingt gesetzt werden müssen.

gruss

umi

[koehlerbv]

Form (für die Maskenauswahl) und Type (für die Ansichtsauswahl) muss zwingend auf "Person" gesetzt werden. Weitere Felder sind nicht zwingend erforderlich.
Damit das Adressieren später aber so funktioniert wie gewohnt, sollte auch InternetAddress (sowieso) und FullName gefüllt sein.

Bernhard

[Tommy B]

 
Nach wie vor das selbe Problem, obwohl ich jetzt alle Felder setze
Ich stell das Script mal rein!

Vielleicht sieht jemand noch ein Fehler!!
Danke
------------------------------
Sub Click(Source As Button)
   'Lotus Notes DB-Klassen Variablen
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim sSuche As String
   
   Set db=s.CurrentDatabase      ' Aktuelle Datenbank bearbeiten
   Set view = db.GetView("People")   ' Aktuelle Ansicht übergeben
   
   Dim sDatei As String
   Dim iDateiNr As Integer
   sDatei ="d:\kundendaten-email.txt"
   iDateiNr = Freefile
   Open sDatei For Input Access Read As iDateiNr
   
                     ' Zugriff auf den ersten Datensatz
   While Not Eof(iDateiNr)
      Input #iDateiNr,sText0,sText1,sText2,sText3,sText4,sText5
      Set doc=view.GetDocumentByKey(sText0,True)
      If doc Is Nothing Then
         Set doc=db.CreateDocument
      End If
      With doc
         .Form="Person"
         .Pos=sText0
         .LastName=sText1
         .FirstName=sText2
         .MailAddress =sText3
         .CompanyName=sText4
         .PhoneNumber=sText5
         .FullName=sText1 + ", "+ sText2
         .InternetAddress=sText3
      End With
      Call doc.Save(True,False)
   Wend
   Close iDateiNr
End Sub

[koehlerbv]

Und wo setzt Du Type ??

[Tommy B]

  tolll klappt ja
WOOOWWWW
Danke!!!!!uups(übersehen)

[Tommy B]

Hallo zusammen,
hab jetzt noch ne Frage, betrifft der Pfad der Datei!
sDatei ="d:\kundendaten-email.txt"

Die Datei liegt zurzeit lokal auf meinem Rechner, sollte aber unbedingt auf dem Server liegen!
Kann mir jemand sagen wie dann der Eintrag auszusehen hat?
DANKE

[Driri]

Kommt drauf an, um was für ein OS es sich handelt uns wo der Agent rennt.

Wenn es Windows-Server ist und der Agent periodisch auf dem Server läuft, sieht die Pfadangebe identisch aus.

Wird der Agent lokal ausgeführt, mußt Du eine Verknüpfung zum Serververzeichnis haben und dann z.B. den UNC-Pfad angeben.

[umi]

Zu Beachten: Eine Standardwindowsinstallation von Notes läuft unter dem Systemaccount, daher hat Notes keinen Zugriff auf "\\SErver\Shares" .

gruss
umi