Bonjour bonjour,

J'ai un souci lors d'une liaison entre LotusNote et Excel. J'aimerai pouvoir envoyer des mail depuis une macro sur Excel. En parcourant le forum et le site j'ai trouvé des pistes pour y arriver.

Tout fonctionne bien sauf l'envoi de mail en lui même. Je bugue toujours au niveau de la sub EnvoieLeMail pile à la ligne "objDocument.send true".
J'ai l'erreur suivante : "Runtime Error Automation Error".

Je ne comprends pas la raison de ce bug. Est ce que quelqu'un pourrait m'expliquer l'origine et comment le corriger? (je met l'ensemble du code de la classe)

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim objMaSessionLotus As NotesSession
Dim objDir As NotesDbDirectory
Dim objLotusDB As NotesDatabase
Dim objDocument As Object
 
Private Sub Class_initialize()
Set objMaSessionLotus = New NotesSession
Dim stPassWord As String
stPassWord = "unmotdepasse"
 
With objMaSessionLotus
  .Initialize stPassWord
  Set objDir = .GetDbDirectory(stMonServeur)
End With
 
Set objLotusDB = objDir.OpenMailDatabase
Set objDocument = objLotusDB.CreateDocument
 
End Sub
 
Public Sub EnvoieLeMail(ByRef stMonSujet As String, ByRef stMonCorpsDeMail As String, ByRef stMonAdressMail As String)
Dim ritem As NotesRichTextItem
 
With objDocument
  .AppendItemValue "Form", "Memo"
  .AppendItemValue "Sendto", stMonAdressMail
  .AppendItemValue "subject", stMonSujet
  .SaveMessageOnSend = True
  Set ritem = .CreateRichTextItem(stMonCorpsDeMail)
  .Send True
End With
 
Set ritem = Nothing
 
End Sub