[VBA]Boucle et Pièces Jointes sur mailing list
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:
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 |
:marteau:
F (il fait très beau aux Marquises) !!!
Pièce jointe dans boucle email
Bonjour,
Je reviens vers vous après quelques jours en mer. Les sirènes ne m'ont guère inspiré... Définitivement, j'ai un problème de conception dans ma boucle et je n'arrive pas à attacher ma pièce jointe 1 avec mon escorte 1, PJ2 avec escorte 2... Je tourne en rond (pas dans le Pacifique heureusement). Je suis revenu au point de départ. Quelqu'un peut il me mettre sur la voie pour savoir quoi et où insérer le code dans mon code déjà existant ?
Merci
