Bonjour tout le monde et merci a ceux qui n'hesite pas a donner un coup de pouce, pour ma part je suis archi nul, donc difficile pour moi de vous donner des conseils, peut etre un jour....... lol, aujourd'hui je peux dire dieu vous le rendra.

Voila je vous explique mon souci, je bosse pour une assoce j'essai de creer une base d'envoi de cv.
Je rapproche les critères des offres d'emploi et des cv et j'aimerais envoyer un mail a l'employeur avec plusieurs cv des candidats susceptibles d'etre embaucher.
J'ai pu recuperer un code qui marche pour ouvrir outlook avec access, je peux envoyer le mail, mais j'ai un probleme pour attacher plusieurs pieces jointes.
Merci a tous ceux qui se pencheront dessus
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
90
91
92
93
94
95
 
 
Private Sub latotale_Click()
 
  ' #######################
  ' # 1. Access via DAO : #
  ' #######################
 
  ' Initialisation :
  Dim ListeEMail As DAO.Recordset
  Dim Listepj As DAO.Recordset
  Dim listecomplete As String
  Dim listecompletepj As String
  Dim Corps As String
 
 
    ' #######################################
  ' # liste pieces jointes : #
  ' #######################################
'    Set Listepj = CurrentDb.OpenRecordset("R_EMailOui")
 ' Listepj.MoveFirst
  'listecompletepj = ""
 
  ' Parcourt de la requête :
  'While Not Listepj.EOF
   ' listecompletepj = listecompletepj & Listepj("pj") & ";"
    'Listepj.MoveNext
  'Wend
 
  ' On enlève le dernier point virgule :
  ' ListeComplete nous sera évidemment utile tout à l'heure :
  'listecompletepj = Left(listecompletepj, Len(listecompletepj) - 1)
 
  ' Stop DAO :
  'Listepj.Close
  'Set Listepj = Nothing
 
 
    ' #######################################
  ' # 2. liste d'E-Mail : #
  ' #######################################
 
 
'  Set ListeEMail = CurrentDb.OpenRecordset("R_EMailOui")
 ' ListeEMail.MoveFirst
  'listecomplete = ""
 
  ' Parcourt de la requête :
  'While Not ListeEMail.EOF
   ' listecomplete = listecomplete & ListeEMail("EMail") & ";"
    'ListeEMail.MoveNext
  'Wend
 
  ' On enlève le dernier point virgule :
  ' ListeComplete nous sera évidemment utile tout à l'heure :
  'listecomplete = Left(listecomplete, Len(listecomplete) - 1)
 
  ' Stop DAO :
  'ListeEMail.Close
  'Set ListeEMail = Nothing
 
 
 
  ' #######################################
  ' # 2. Envoi de l'E-Mail avec Outlook : #
  ' #######################################
 
  ' Initialisation :
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
 
  MonMessage.Display
  ' Préparation du message :
  MonMessage.To = Me.de
 
  ' Récupération de la chaîne d'E-Mails Access :
  MonMessage.Bcc = listecomplete
  MonMessage.Subject = Me.objet
 
'  MonMessage.Attachments.Add = Me.pj
 
 
  Corps = Me.[mailing2].Form![titreobjet]
  Corps = Corps & Chr(13) & Chr(10)
  Corps = Corps & Me.[mailing2].Form![Message]
  MonMessage.Body = Corps
 
  ' C'est parti :
  MonMessage.Send
 
  ' Fermeture de la session Outlook :
  Set MonOutlook = Nothing
End Sub
le chemin des cv est listé dans une table access en format texte, une requete me permets de choisir les candidats correspondant a l'offre.
ensuite je ne sais pas comment recuperer tous les cv afin d'envoyer ce mail
j'ai esssayé de bricoler mais bon, sans succes depuis une semaine
et je remercie la personne qui a fait la source.