ouverture d'une mailbox

[fongyr]

Bonjour

je recherche une formule qui me permet d'ouvrir une mailbox.
La mailbox est sous lotus

[abertisch]

Salut,

Quelque chose comme ça :

Code : Tout sélectionner


Dim iMailBoxNr As Integer
Dim se As notessession
Dim dbMail As NotesDatabase
Dim db As NotesDatabase

Set se = New NotesSession
Set db = se.currentdatabase
Set dbMail = New NotesDatabase(db.Server, "mail.box")
         
         iMailBoxNr = 0
         Do While Not dbMail.IsOpen
            iMailBoxNr = iMailBoxNr + 1
            Set dbMail =  New NotesDatabase(db.Server, "mail" & Trim(Str(iMailBoxNr)) & ".box")         
         Loop

[roubech]

la file d'attente sur le serveur : mail.box
si plusieurs file d'attente sur ton serveur : mail1.box mail2.box ...
d'où le code de abertisch

maintenant, si tu veux parler de la boite mail d'un utilisateur, en général la base est dans le répertoire mail, mais tu n'as pas forcément le nom et le chemin complet, donc pour l'utilisateur courant, regarder notesDatabase.OpenMail
http://publib.boulder.ibm.com/infocente ... ETHOD.html
sinon, pour un autre utilisateur, rechercher la personne dans l'annuaire pour avoir le nom du serveur et le chemin comlet