[VBA] Envoi d'un mail avec Access VB par Lotus Notes
Bonjour,
Je voudrai envoyer un mail avec Lotus :
J'ai trouvé sur Internet le code nécessaire :
***************************
Code:
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,
