DominoArea.org [Archive]

Code : Tout sélectionner

Private Sub UseLotus()


    Dim Session As Object
    Dim Dir As Object
    Dim Doc As Object
    Dim Workspace As Object
    Dim EditDoc As Object
   
On Error GoTo TraiteErreur
   
    'Création de la session Notes
    Set Workspace = CreateObject("Notes.NotesUIWorkspace")
    Set Session = CreateObject("notes.NOTESSESSION")
    Set Dir = Session.GETDATABASE("", "")
    Call Dir.OPENMAIL
   
    'Creation d'un document
    Set Doc = Dir.CREATEDOCUMENT
   
    Doc.form = "Memo"
    Doc.Subject = "Sujet du mail"
    Doc.SendTo = "Receiver@mail.com"
    Doc.body = "This is the body."
   
    'Affichage du mail dans Lotus Notes
    Set EditDoc = Workspace.EditDocument(True, Doc)
   
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
   
    Exit Sub
   
TraiteErreur:
   
    MsgBox "Problème de création du mail", vbCritical, "Error"
   
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing

End Sub


Code : Tout sélectionner

Call Dir.OPENMAIL

The "Call maildb.OpenMail" line is superfluous - just delete it.
Its function is to return a handle to the mail box of the current user.

Since that is also the function of the preceding 3 lines, you don't need it.

Alternatively delete the preceding 3 lines which do the same thing by a different route, ie by reading Notes.INI and opening the mailbox named there.

The error message is because you can't/shouldn't open a database that is already open.

NB: There's a typo in line " Messagebox("Please select at least one team member. Exit Sub" where two lines have been rolled into one. I guess this was just a side effect of copying and pasting the code into the forum though.