Discussion :

[Braiice]

Bonjour,

Après quelques recherches infructueuses, je me tourne vers vous chers développeurs.

Je souhaite envoyer par vba un email de relance à un client donné.
Ma question est pour l'objet .Body du mail. Je voudrais intégrer le résultat de mon recordset et je ne trouve pas la syntaxe correcte...
Voici ce que j'ai à l'heure actuelle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'-- Corps de l'email
                .Body = "Madame, Monsieur" & vbCrL & vbCrLf & _
                "Il nous est apparu que les factures suivantes n'ont pas été réglées. Nous vous serions grés de bien vouloir régulariser cette situation au plus vite." & vbCrL & _
                    Do Until .EOF
                    "- " & rstTEMPFACT![LECR] & "  du " & rstTEMPFACT![Date_piece] & "   " & rstTEMPFACT![Montant] & "€")
                    .MoveNext

Pour info je voudrais que cela ressemble à cela :

Il nous est apparu que les factures suivantes n'ont pas été réglées. Nous vous serions grés de bien vouloir régulariser cette situation au plus vite.

- FACTURE N° 1212121212 du 12/12/2012 1212,12€
- FACTURE N° 1313131313 du 13/12/2012 1313,13€

Cordialement,

Je précise que la boucle sur le recordset fonctionne, je ne sais juste pas ajouter chacunes des lignes du recordset au corps de mon mail.

Merci par avance,

Braiice

[Jean-Philippe André]

Salut,

dans l'idée :
- passer par une variable
- faire une boucle avec Do Loop

ca te donnera un code de ce style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim strBoday As String
strBody = "Madame, Monsieur" & vbCrL & vbCrLf & _
                "Il nous est apparu que les factures suivantes n'ont pas été réglées. Nous vous serions grés de bien vouloir régulariser cette situation au plus vite." & vbCrL
Do Until .EOF
     strBody = strBody &             "- " & rstTEMPFACT![LECR] & "  du " & rstTEMPFACT![Date_piece] & "   " & rstTEMPFACT![Montant] & "€" & vbCrL
                    .MoveNext
Loop
 strBody = strBody & "Cordialement,"

[Braiice]

Merci pour ta réponse !
J'ai adapté ton idée et à la compil ca fonctionne !

Bye