Domino 9 und frühere Versionen > ND6: Entwicklung

Import einer ASCII-Datei in Pers. Adressbuch

(1/2) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite