Bonsoir,

avec l'aide de tous , je suis arrivé à cette macro qui permet d'envoyer des mails via excel avec lotus note 8,

elle fonctionne sur mon poste de travail, sur celui de certains collègues et pas sur d'autres

nous avons tous les mêmes versions de lotus et d'xcel

quelqu'un a t il une explication à ce problème ?

merci

François

Private Sub CommandButton1_Click()
Dim Session As Object
    Dim Dir As Object
    Dim Doc As Object
    Dim Workspace As Object
    Dim EditDoc As Object
    ListeMails = Range("A2:A20").Value
    listecopymails = Range("D2:D20").Value
     

   
         
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.sendto = ListeMails
    Doc.copyto = listecopymails
    
    'Affichage du mail dans Lotus Notes
    Call Workspace.EditDocument(True, Doc, False, , False, True)
    
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
     Range("A2:A20", "D2:D20").ClearContents
    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
     

Unload choix
End Sub