Bonjour,

Je souhaiterai envoyer un message utilisant une macro à travers LotusNote:

Voila mon point de départ:

http://access.developpez.com/sources...NoteSauvegarde

j'ai créé un bouton pour lancer la procedure qui possède ce code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub CommandButton1_Click()
 
SendNotesMail Me!txtSubject, Me!txtAttachment, Me!txtTo, _
                Me!txtCC, Me!txtCCC, Me!txtMessage, False
 
End Sub
Voila la tentative d'adaptation que j'ai essayé de faire:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Public Sub SendNotesMail(ByVal Subject As String, _
ByVal Attachment As String, ByVal RECIPIENT As String, _
ByVal CC As String, ByVal BCC As String, _
ByVal BodyText As String, ByVal SaveIt As Boolean)
 
Dim oMaildb As Object
Dim oMailDoc As Object
Dim oAttachME As Object
Dim oSession As Object
Dim oEmbedObj As Object
 
Dim sUserName As String
Dim sMailDbName As String
 
Const STR_ATTACHMENT As String = "Attachment"
 
On Error GoTo L_ErrCannotCreateNotesSession
    Set oSession = CreateObject("Notes.NotesSession")
    sUserName = oSession.sUserName
    sMailDbName = Left$(sUserName, 1) & Right$(sUserName, _
         (Len(sUserName) - InStr(1, sUserName, " "))) & ".nsf"
    DoEvents
    lblStatus.Caption = "Information about sender..."
    Call Sleep(1000)
    Set oMaildb = oSession.GETDATABASE(vbNullString, _
             sMailDbName)
     If oMaildb.IsOpen = True Then
     Else
         oMaildb.OPENMAIL
     End If
    Set oMailDoc = oMaildb.CREATEDOCUMENT
    oMailDoc.Form = "Memo"
    oMailDoc.SENDTO = "CST_BAntoniol@xxxxxxxx.com"
    If Len(CC) = 0 Then
    Else
        oMailDoc.CopyTo = ""
    End If
    If Len(BCC) = 0 Then
    Else
        oMailDoc.blindCopyTo = ""
    End If
    oMailDoc.Subject = "Test"
    oMailDoc.Body = "Essai de message"
    oMailDoc.SAVEMESSAGEONSEND = SaveIt
    DoEvents
    lblStatus.Caption = "Looking for attached files..."
    Call Sleep(1000)
 
    If Attachment <> vbNullString Then
        Set oAttachME = oMailDoc.CREATERICHTEXTITEM(STR_ATTACHMENT)
        Set oEmbedObj = oAttachME.EMBEDOBJECT(1454, _
                vbNullString, Attachment, STR_ATTACHMENT)
        oMailDoc.CREATERICHTEXTITEM _
                (STR_ATTACHMENT)
    End If
    DoEvents
    oMailDoc.PostedDate = Now()
 
 
 'To send the message, remove the quotes characters (') near each line
   lblStatus.Caption = "Sending message..."
   Call Sleep(1000)
  '
   oMailDoc.SEND 0, RECIPIENT
   lblStatus.Caption = "Message sent"
 
   MsgBox "Your message has been sent successfully...", 64, "End"
 
 
L_ExCannotCreateNotesSession:
    Set oMaildb = Nothing
    Set oMailDoc = Nothing
    Set oAttachME = Nothing
    Set oSession = Nothing
    Set oEmbedObj = Nothing
    Exit Sub
L_ErrCannotCreateNotesSession:
  Select Case Err
      Case 429
          MsgBox "Impossible de localiser un Client Notes; " & _
                     "Votre message n'a pas été envoyé !", 16, _
                          "Lotus Notes requis"
      Case Else
        MsgBox "Un erreur a empêché l'envoi du message." & _
                  vbCrLf & "Veuillez en référer à votre administrateur " & _
                      "pour lui soumettre cette erreur..." & vbCrLf & Error, 16, "Error #" & str(Err)
  End Select
  Resume L_ExCannotCreateNotesSession
End Sub
Cependant la procédure d'envoi de message ne se lance pas

Avec Débug puis F8, je n'arrive pas a sortir de la procédure du "bouton_Click()". Un message d'erreur apparait:
"Couldn t find the specific Object"



Je suis dessus depuis ce matin et étant débutant je n'arrive pas à m'en sortir.

auriez vous quelques conseils pour m'aider à résoudre ce problème?

Merci d'avance.

Bruno