Discussion :

[timoth]

Bonjour !!

Je cherche à ouvrir un mail sur Lotus et y entrer qq infos (titres, destinataires).

Je suis tombé sur ce sujet dans la faq, mais ce dernier permet d'envoyer le mail directement sans pouvoir le retoucher avant de l'envoyer.

J'ai trouvé ce complément de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set oWorkspace = CreateObject("Notes.NotesUIWorkspace")
Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "Lotus Notes"

mais ça me permet seulement d'appeler Lotus au 1er plan.

Il ne manque probablement pas grand chose mais je n'arrive pas à trouver la commande lotus qui me permettrait d'ouvrir ce mail...

Si vous avez une idée, merci !

[timoth]

En complément:

J'ai essayé un certain nombre de méthodes sur MailDoc (show, activate, view,...) mais sans succés.

Par contre, j'ai trouvé sur un site US le petit bout de code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Dim ws As Object
    Set ws = CreateObject("notes.notesuiworkspace")
    DoEvents
    ws.OpenDatabase serveur, NomBaseDeDonnee
    ws.EDITDOCUMENT True, MailDoc

Je bute sur les variables serveur et NomBaseDeDonnee car en les écrivant directement à la main (variables de type string), ça marche....

La question devient donc, comment récupérer le nom de la base de donnée et du serveur de la base mail.