Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
COURSE of the MONTH
8 days, 12 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
I want to import address data
Posted on 2000-05-11
I am using Notes 4.6. We have several .csv files that contain address data (the fields and field names are unique in each .csv file). I would like to be able to import each file into my persaonl address book and into a particular category. To further complicate matters I wuld also like the ability to either append or overwrite any data that already exists in that given category. Is this easily doable?
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
3
-
2
6 Comments
Hi
You can do that by using script only, there is no other way to achieve this easily.
If I am correct are you looking for sample code.???
~Hemanth
You can do that by using script only, there is no other way to achieve this easily.
If I am correct are you looking for sample code.???
~Hemanth
I guess I am looking for code or some direction. Assuming the answer is that I can do what i want I then need to know *how* to do it.
Dear Kuba,
This can be done through scripts. First you can archive all the details in the existing address book through the archivedatabase method in lotusscript. This will archive the database(documents created with any specific forms) and then you can create a button in the address book and run an agent in the click event of the button. The agent will open the csv file and then using the input# statement of lotusscript store every value in a separate variable and then you can set doc.form to any form that you want to store the data and then create the document by using the createdocument method. You can find a good example of how to read the .csv file by looking through the notes help under the example for the "open statement". Cut and paste the example in the agent and then change the necessary details and try running it.
I have done the same task myself and it works fine. Hope you are successful in doing this.
This can be done through scripts. First you can archive all the details in the existing address book through the archivedatabase method in lotusscript. This will archive the database(documents created with any specific forms) and then you can create a button in the address book and run an agent in the click event of the button. The agent will open the csv file and then using the input# statement of lotusscript store every value in a separate variable and then you can set doc.form to any form that you want to store the data and then create the document by using the createdocument method. You can find a good example of how to read the .csv file by looking through the notes help under the example for the "open statement". Cut and paste the example in the agent and then change the necessary details and try running it.
I have done the same task myself and it works fine. Hope you are successful in doing this.
Code to archive database
Dim archiveDb As New NotesDatabase( "", "" )
Dim doc As NotesDocument
If ( doc.Form= "Person" ) Then
Call doc.CopyToDatabase( archiveDb )
End If
Code for the agent that reads the csv file
Type RecType
empId As Double
employee As String
End Type
Dim arrayOfRecs() As RecType
Dim txt As String
Dim fileNum As Integer
Dim counter As Integer
Dim countRec As Integer
fileNum% = FreeFile()
counter% = 0
Open "c:\My Documents\Test.csv" For Input As fileNum%
Do While Not EOF(fileNum%)
Line Input #fileNum%, txt$
counter% = counter% + 1
Loop
Seek fileNum%, 1
ReDim arrayOfRecs(1 To counter%)
For countRec% = 1 To counter%
Input #fileNum%, arrayOfRecs(countRec%).emp
arrayOfRecs(countRec%).emp
Employee=arrayofRecs(count
EmpId=arrayofRecs(countRec
dim newdoc as notesdocument
newdoc.form="Person"
newdoc.Firstname(0)=Employ
set newdoc=db.createdocument
call newdoc.save(true,true)
Next
Close fileNum%
Print arrayOfRecs(2).employee$ & " " arrayOfRecs(2).empId#
Hi Kuba,
I have written the code for the agent too. All the best.
Dim archiveDb As New NotesDatabase( "", "" )
Dim doc As NotesDocument
If ( doc.Form= "Person" ) Then
Call doc.CopyToDatabase( archiveDb )
End If
Code for the agent that reads the csv file
Type RecType
empId As Double
employee As String
End Type
Dim arrayOfRecs() As RecType
Dim txt As String
Dim fileNum As Integer
Dim counter As Integer
Dim countRec As Integer
fileNum% = FreeFile()
counter% = 0
Open "c:\My Documents\Test.csv" For Input As fileNum%
Do While Not EOF(fileNum%)
Line Input #fileNum%, txt$
counter% = counter% + 1
Loop
Seek fileNum%, 1
ReDim arrayOfRecs(1 To counter%)
For countRec% = 1 To counter%
Input #fileNum%, arrayOfRecs(countRec%).emp
arrayOfRecs(countRec%).emp
Employee=arrayofRecs(count
EmpId=arrayofRecs(countRec
dim newdoc as notesdocument
newdoc.form="Person"
newdoc.Firstname(0)=Employ
set newdoc=db.createdocument
call newdoc.save(true,true)
Next
Close fileNum%
Print arrayOfRecs(2).employee$ & " " arrayOfRecs(2).empId#
Hi Kuba,
I have written the code for the agent too. All the best.
Featured Post
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
IBM Notes offer Encryption feature using which the user can secure its NSF emails or entire database easily. In this section we will discuss about the process to Encrypt Incoming and Outgoing Mails in depth.
Sometimes clients can lose connectivity with the Lotus Notes Domino Server, but there's not always an obvious answer as to why it happens.
Read this article to follow one of the first experiences I had with Lotus Notes on a client's machine, my…
Michael from AdRem Software outlines event notifications and Automatic Corrective Actions in network monitoring. Automatic Corrective Actions are scripts, which can automatically run upon discovery of a certain undesirable condition in your network.…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB.
How Percona can help
Percona can help you determine if Percona Server for MongoDB is the right solution for …
Suggested Courses
Course of the Month8 days, 12 hours left to enroll
764 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.