/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Lotus Notes
Fra : Ukendt


Dato : 12-08-02 14:24

Nogle der har eksempler på hvordan man læser data fra en Lotus Notes?

--
Niels Henriksen
Softwareudvikler



 
 
Krabsen (12-08-2002)
Kommentar
Fra : Krabsen


Dato : 12-08-02 19:08

Prøv..

Bill Shadish, Fundamental Objects, Inc. (http://www.fo.com)

han har i alt fald lavet et modul til at importere mail fra Notes, og det
virker fint. Formentlig osse fra andet end indbakke


mvh
Krabsen

"Niels" <noway> skrev i en meddelelse
news:3d57b624$0$27685$edfadb0f@dspool01.news.tele.dk...
> Nogle der har eksempler på hvordan man læser data fra en Lotus Notes?
>
> --
> Niels Henriksen
> Softwareudvikler
>
>



Morten Fast (12-08-2002)
Kommentar
Fra : Morten Fast


Dato : 12-08-02 18:51

"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

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste