E-mail automatique avec Corps du texte = contenu Listbox

Bonjour,

Je vous sollicite car je bloque sur mon application qui entre autre vise à envoyer automatiquement des e-mails.

Mon code se situe ci-dessous. Je bloque au niveau du corps de texte: je souhaite y insérer les valeurs contenues dans une listbox (listAttestations) contenues dans un USF fmMail or j'arrive seulement à insérer une seule valeur de ma listBox. Une idée??

Sub MailST()

Dim OutApp As Object

Dim OutMail As Object

Dim adresse As String

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

adresse = fmMail.txtMail.Value

With OutMail

.To = adresse

.CC = ""

.BCC = ""

.Subject = "Rappel validité papier"

.Body = "Bonjour, merci de bien vouloir nous faire parvenir les attestations suivantes qui ne sont plus à jour:" & vbCrLf _

& fmMail.listAttestations.Value

.Display

'.Send

[End With

'OutApp.Quit

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

End Sub

Hello,

Essaie comme ceci... (pour 1 ligne et 5 colonnes)...

Sub MailST()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim adresse, txt As String

    Set OutApp = CreateObject("Outlook.Application")

    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next

    adresse = fmMail.txtMail.Value

    For col = 0 To 5
        With OutMail
            .To = adresse
            .CC = ""
            .BCC = ""
            .Subject = "Rappel validité papier"
            txt = txt & fmMail.listAttestations.List(0, col) & " / "
            .Body = "Bonjour, merci de bien vouloir nous faire parvenir les attestations suivantes qui ne sont plus à jour :" & vbCrLf & vbCrLf & txt
            .Display
            '.Send
        End With
    Next col

    'OutApp.Quit

    On Error GoTo 0

    Set OutMail = Nothing

    Set OutApp = Nothing

End Sub

Je te remercie c'est exactement ce à quoi je voulais arriver. J'ai juste modifié ton code qui travaillait pour une ligne et 5 colonnes en fonction de mon besoin: valeurs sur 1 colonne et 5 lignes comme ci-dessous.

For ligne = 0 To 5

With OutMail

.To = adresse

.CC = ""

.BCC = ""

.Subject = "Rappel validité papier"

txt = txt & fmMail.listAttestations.List(ligne, 0) & " / "

Merci pour la réactivité

Erwan