Bonjour,

Je voudrai envoyer un mail avec Lotus :
J'ai trouvé sur Internet le code nécessaire :
***************************
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Dim Maildb As Object      'La base des mails
    Dim UserName As String    'Le nom d'utilisateur
    Dim MailDbName As String  'Le nom de la base des mails
    Dim MailDoc As Object     'Le mail
    Dim AttachME As Object    'L'objet pièce jointe en RTF
    Dim Session As Object     'La session Notes
    Dim EmbedObj As Object    'L'objet incorporé
 
    'Crée une session notes
    Set Session = CreateObject("Notes.NotesSession")
 
    '*** Cette ligne est réservée aux versions 5.x et supérieur : ***
    Session.Initialize (Password)
 
    'Récupère le nom d'utilisateur et crée le nom de la base des mails
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
 
    'Ouvre la base des mails
    Set Maildb = Session.getDatabase("", MailDbName)
    If Not Maildb.ISOPEN Then Maildb.Openmail
....
***************************
Mais sur la ligne Set Session = CreateObject("Notes.NotesSession"), j'ai l'erreur 429 "Un composant Active X ne peut pas créer d'objet.
Je peux créer des objets Excel, Outlook...
J'ai ajouté dans la liste des réferences la bibliothéque Lotus Notes.

Je pense que le code est bon car trouvé à plusieurs endroits sur le net mais comme je ne peux pas ouvrir de session, le code s'arrete.

Merci d'avance,