Discussion :

[arkhang]

Bonjour à tous !

Je dois créer une fonction qui, après le découpage d'un fichier excel en différentes feuilles, envoie (prépare) un mail selon certaines conditions avec certaines pj, mais j'en suis encore loin. À peine commencé, je rencontre un problème. Ayant une signature automatique pour l'envoi de mail, le corps de mon message (body) se place en FIN du mail, et donc, après la signature ... Ce qui est assez dérangeant dans le sens où la macro est censé faire gagner du temps ...
Je comprends à peu près le fonctionnement de la fonction (récupéré sur la toile) mais je ne comprends pas comment gérer ce problème.
Voici le code:

Code vb :

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
 
Private Sub UseLotus()
 
    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 Dir.OPENMAIL
 
    'Creation d'un document
    Set Doc = Dir.CREATEDOCUMENT
 
    Doc.form = "Memo"
    Doc.Subject = "Sujet du mail"
    Doc.SendTo = "Receiver@mail.com"
    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

Y'aurait-il une solution à ce problème assez dérangeant ?

Merci d'avance, cdt, Arkhang

[lowno]

Salut.

Essaye ce-ci pour constituer ton message :

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
' Constitution du message      
        '
        Set MailDoc = Maildb.CREATEDOCUMENT
        MailDoc.Form = "memo"
 
 
        MailDoc.Sendto = "ton destinataire" '
 
        MailDoc.Subject = "ton titre d'objet mail"
 
        ' body
 
        Set objNotesField = MailDoc.CREATERICHTEXTITEM("Body")
        With objNotesField
        .AppendText MESSAGE ' tu doit déclarer MESSAGE ex : MESSAGE = range("c19").value
        End With
        MailDoc.SaveMessageOnSend = SaveIt
        MailDoc.PostedDate = Now() 
        MailDoc.Send 0, Recipient
        '

Tu n'aura plus la signature au début du mail (mais malheuresement à la fin non plus). Personnelement j'ai juste ajouté une ligne à la fin du body avec ma signature ....

[arkhang]

Bonjour lowno,

Je n'arrive pas bien à intégrer ton code avec le mien, ça me met des erreurs, j'ai pourtant changé les variables "MailDoc" en "Doc", comme elles étaient définit sur mon code, mais ça me met toujours une erreur, et étant loin d'être expert, je ne comprends pas où est le problème.

Voici ton code combiné au mien :

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
Sub UseLotus()
 
    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 Dir.OPENMAIL
 
    'Constitution du message
    '
    Set Doc = Dir.CREATEDOCUMENT
    Doc.Form = "memo" 
    Doc.Sendto = "ton destinataire" 
    Doc.Subject = "ton titre d'objet mail"
 
    'body
    Message = "coucou"
    Set objNotesField = Doc.CREATERICHTEXTITEM("Body")
    With objNotesField
    .AppendText Message ' tu doit déclarer MESSAGE ex : MESSAGE = range("c19").value
    End With
    Doc.SaveMessageOnSend = SaveIt
    Doc.PostedDate = Now()
    Doc.Send 0, Recipient    
 
    '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