Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Tommy B am 09.08.05 - 14:50:35
-
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
-
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).
-
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
-
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
-
???
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
-
Und wo setzt Du Type ??
-
:) ;) :) ;) :) ;) :) ;) :) tolll klappt ja
WOOOWWWW
Danke!!!!!uups(übersehen)
-
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
-
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.
-
Zu Beachten: Eine Standardwindowsinstallation von Notes läuft unter dem Systemaccount, daher hat Notes keinen Zugriff auf "\\SErver\Shares" .
gruss
umi