Lecture répertoire sous DOMINORésolu

Question

Bonjour, 
j'ai fais un programme VB6, qui permet de r&#233;cup&#233;rer les messages d'une BAL LOTUS (ceci grace &#224; un code de ce site) et stocke les messages sur un r&#233;pertoire.
Mais j'ai un petit probl&#232;me, dans la BAL lotus, certains messages sont dans des sortes de r&#233;pertoires (ou dossiers). 
Je n'arrive pas &#224; trouver dans l'objet DOMINO, l'objet qui permet de r&#233;cup&#233;rer cette arborescence de r&#233;pertoire que je voudrais recr&#233;er en tant que r&#233;pertoire dans le dossier ou je stock les messages..
Y-a-t-il un moyen??
Est-ce possible??

Merci par avance pour vos r&#233;ponse

Cordialement
Pascal

thierrydelepine · Accepted Answer

inspire toi de ceci cela repondra peut etre a ta question
ce code me permet de parcourir toutes les vues d'une base notes
meme les sous vues (ou dossiers)

Dim session As Object   'NOTESSESSION
Dim db As Object        'NOTESDATABASE
Dim view As Object      'NOTESVIEW
Dim doc As Object       'NOTESDOCUMENT

qq part dans ton code

Set session = CreateObject("Notes.NotesSession", "") 'Ouvre unje session lotus notes
                Set db = session.GetDatabase("", "c:	emp" & objFSO.GetBaseName(Fichier) & " " & Format(Date, "dd mm yyyy") & ".nsf") 'ouvre la base nsf"
                For Each i In db.Views 'liste toutes les vues de la base
                    TOTO (i.Name)
                Next i
                Set db = Nothing
                Set session = Nothing

Private Sub TOTO(MyName As String)


        Set view = db.GetView(MyName)
        On Error GoTo Nodoc_erreur
        Set doc = view.GetFirstDocument
        For Each i In doc.Items
            msgbox i.Name 
        Next i
        Exit Sub


Nodoc_erreur: 'Une erreur survient si la vue n'a pas de document
    
    
End Sub

zerpas · Answer

Merci pour ta r&#233;ponse tr&#233;s rapide.
J'essaye d&#232;s demain

Cordialement
Pascal

zerpas · Answer

Bonjour,
j'ai repris ton code et j'ai juste un petit soucis
&#224; la ligne: For Each i In db.Views 'liste toutes les vues de la base

j'obtiens une erreur 424, un objet est requis.
Je comprends pas cette erreur car j'ai mis exactement ce que tu m'as donn&#233;es.
Si tu as une id&#233;e concernant ce probl&#232;me, je t'en remercie par avance

Cordialement
Pascal

thierrydelepine · Answer

il doit manqu&#233; la reference dans ton projet

pour mon cas je travail sur un notes client donc je fais reference &#224; 

"Lotus Notes Automation class"  (c:\lotus
otes
otes32.tlb)

a voir si c'est la meme reference pour domino par rapport un a simple client notes

zerpas · Answer

Re bonjour
Je travail directement sur les bases du serveur
Et la r&#233;f&#233;rence est d&#233;fini dans mon projet VB.
Jusqu'&#224; pr&#233;sent, je sais lire tous les documents de ma base.

Cordialement
Pascal

thierrydelepine · Answer

desole je ne vois pas pourquoi tu as cette erreur si dans ton projet VB tu  as deja cette reference.

possible que sur le domino on ne travaille pas avec les memes objets que sur un client ("db.view")

moi ca marche sur un client notes avec une appli devellop&#233; sous visual basic 6, j'interroge et liste toutes les vues de la base du client notes sans problemes

zerpas · Answer

Bonjour,
Finalement j'ai r&#233;solu mon probl&#232;me, ton code &#233;tait bon et m'a bien servi.
Il fallait juste bien d&#233;clarer la variable i en variant.
Je te remercie encore.

Cordialement
Pascal

thierrydelepine · Answer

passe la reponse en r&#233;sponse accept&#233;e cela servira pour d'autres

Lecture répertoire sous DOMINO

8 réponses

Discussions similaires