Bonjour,
Comme toujours j'avance dans cette mine de renseignements et de tuyaux qu'est ce forum. Véritablement, cela donne envie de progresser même si parfois le découragement fait place quand on se compare à d'autres. enfin trois mois seulement cela laisse l'espoir !!!

J'ai un formulaire basé sur une requête me permettant de sélectionner les correspondants à qui je veux envoyer un email... J'y joins une pièce jointe personnalisée que je tire d'un lien hypertexte renseigné dans ma table initiale... Tout fonctionne bien sauf qu'il me met pour tous les correspondants sélectionnés la pièce jointe correspondante au premier de la liste !!! c'est un problème de boucle sans doute... mais je ne vois pas la solution... si simple probablement.

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
Private Sub Mail_Click()
Dim olApp As Outlook.Application
  Dim EMail As Outlook.MailItem
  Set olApp = Outlook.Application
  'Déclaration d'une variable ADO :
  Dim bds As New ADODB.Recordset
  bds.Open "R_Sélect_Email", CurrentProject.Connection
 
  ' On se positionne sur le premier enregistrement :
  bds.MoveFirst
  ' Tant que le dernier enregistrement n'est pas atteint :
  While Not bds.EOF
  ' On affiche le contenu du champs NomPrenom et EMail :
    Set EMail = olApp.CreateItem(olMailItem)
   Set myAttachments = EMail.Attachments
 
    With EMail
    .To = bds("E_mail")
    .Subject = "Ma société"
    .Attachments.Add (Forms!Employés1.Fiche_Id.Hyperlink.Address)
    .Body = "Ceci est un test. Nous vous demandons de ne pas répondre à ce message."
    .Display
    '.Send
    End With
    ' On va sur le suivant :
    bds.MoveNext
  Wend
  ' On ferme et on libère la variable :
  bds.Close
  Set bds = Nothing
End Sub

F (il fait très beau aux Marquises) !!!