Discussion :

[HABILER]

Bonjour la Communauté,

Avant tout mes meilleurs à tous.

Mon m'affiche une message d'erreur "Problème de création du mail", pourtant il a déjà fonctionneé. J'ai dû faire faire une erreur de manipulation quelque part.

Merci

Habiler

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
 
Private Sub UseLotus_click()
 
    Dim session As Object
    Dim Dir As Object
    Dim doc As Object
    Dim Workspace As Object
    Dim EditDoc As Object
 
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 Workspace.EditDocument(True, Doc, False, , False, True)
    Call Dir.OPENMAIL
 
    'Creation d'un document
    Set doc = Dir.CreateDocument
 
 
    doc.Form = "Memo"
    doc.Subject = "Sujet du mail"
    doc.sendto = "xxx@xxx.be"
    doc.body = "This is the body."
 
    'Affichage du mail dans Lotus Notes
    Set EditDoc = Workspace.EditDocument(True, doc)
 
    Set session = Nothing
    Set Dir = Nothing
    Set doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
 
    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
 
End Sub

[argyronet]

Bonjour,

Pourquoi Dir ?

Il me semble de mémoire que dans ton cas, ce serait quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
On Error Resume Next
      If NoteSession.IsOpen = False Then NoteSession.OPENMAIL
      Set NoteMail = NoteSession.CreateDocument
 
     With NoteMail 
        .Form = "Memo"
        .sendto = "moi@monmail.fr"
        .Subject = "Envoi mail lotus"
        .Body = "Bla bla bla..."
        .SaveMessageOnSend = True
     End With

Argy

[HABILER]

Merci Argy je vais essayer
MErci

Habiler