"Niels" <noway> wrote in news:3d57b624$0$27685
$edfadb0f@dspool01.news.tele.dk:
> Nogle der har eksempler på hvordan man læser data fra en
> Lotus Notes?
Denne kode forudsætter, at Notes er installeret på maskinen,
eller at Notes' object-filer er tilgængelige.
Husk at lave en reference til Lotus Domino Objetcs.
-- Kode start --
Dim s As NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Dim iLoop As Integer
' Opret en ny notes session.
Set s = New NotesSession
' Før du kan bruge din notes session, skal den
' initialiseres.
' Der skal være en notes.ini på harddisken
' (helst i notes-mappen), der angiver den aktive
' bruger.
' Du kan eventuelt som parameter til Initialize sende
' passwordet med, ellers får du en inputboks, der
' beder om password (hvis der er password på den id-fil,
' der er angivet i notes.ini).
s.Initialize
' Hent den database du skal bruge.
Set db = s.GetDatabase("Server", "database")
' Lav en samling af alle dokumenter (man har sjælendt
' brug for at arbejde på alle dokumenter, så du bør nok
' lave en søgning med db.Search eller fra et view).
Set col = db.AllDocuments
' Løb alle dokumenter igennem...
For iLoop = 1 To col.Count
Set doc = col.GetNthDocument(iLoop)
' Gør hvad du skal med dokumentet...
Next
' Ryd op.
Set doc = Nothing
Set col = Nothing
Set db = Nothing
Set s = Nothing
--
Vh Morten
