Discussion :

[Oulol]

Bonjour à tous et surtout merci de votre présence,

Je me permets de vous envoyer ce message car je bloque sur un code. Je précise que je suis plutôt novice en VBA.
Donc voici mon problème:
L'objectif est d'envoyer automatiquement un fichier Excel et un message joint sur une adresse Lotus Notes 8.5.
Les informations des destinatires et le chemin du fichier à intégrer se trouve dans un fchier Excel.
Une boucle permet de "balayer" l'ensemble des destinataires:

Pour le moment je parviens bien à envoyer les messages automatiquement mais je n'arrive pas à joindre les fichiers.
Je vous joins mon code..

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
Private Sub UseLotus()
 
    Dim Session As Object
    Dim Dir As Object
    Dim Doc As Object
    Dim Workspace As Object
    Dim EditDoc As Object
    Dim stAttachment As String
    Dim noAttachment As Object
 
 
On Error GoTo TraiteErreur
 
 fin = Feuil1.Range("a1").End(xlDown).Row
 For i = 2 To fin
 
    '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 = Feuil1.Range("d" & i).Value
    Doc.SendTo = Feuil1.Range("c" & i).Value
    Doc.Body = Feuil1.Range("e" & i).Value
    stAttachment = Feuil1.Range("f" & i).Value
 
 
 
    'Affichage du mail dans Lotus Notes
    Set EditDoc = Workspace.EditDocument(False, Doc)
    Call Doc.Send(False)
 
 
 
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
 
   Next
 
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

L'objectif est, en lançant la macro d'envoyer automatiquement à l'adresse du destinataire mentionnée en colonne C le fichier joint en colonne F . (Voir le fichier joint: Onglet Tableau Param. Destinataire)
Une boucle est mise en place afin de "balayer" l'ensemble des adresses courrielles.


Je vous remercie de l'aide que vous pouvez m'apporter

Bonne journée à vous,