Envoi mail sans pièce jointe

Bonjour à toutes et tous !

après avoir recherché sans succès une bonne partie de la matinée, je m'en remets à vous...

je n'arrive pas à trouver le code (simple je suppose) permettant d'envoyer un mail sans pièce jointe, le but étant, à partir d'une liste d'adresse mails se situant sur la plage a1;a50, du sujet saisi en b1 et du corps en c1, d'envoyer le même mail à toute la liste

pour la boucle, il n'y a pas de souci

tout ce que j'ai pu réussir à faire, c'est ça :

Sub Mail()

Dim nBlignes As Integer

Sheets("Feuil1").Range("a1").Select

nBlignes = Range("A1", Selection.End(xlDown)).Cells.Count

For i = 1 To nBlignes

ActiveWorkbook.SendMail Recipients:=ActiveCell.Value, _

Subject:=Range("b1").Value, _

ReturnReceipt:=True

ActiveCell.Offset(1, 0).Select

Next i

End Sub

Ca fonctionne très bien mais :

1 - je ne veux pas envoyer de pièce jointe

2 - je ne trouve pas le code pour integrer un corps de texte

si quelqu'un peut m'aider, je suis preneur !!

merci d'avance

ju

Bonjour

essaie et adapte ceci

'Macro écrite par maxxx en 2014

'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"

Dim Réponse As String
 Réponse = MsgBox("Vous êtes sur le point d'envoyer un Email" & Chr(10) & "Voulez-vous continuer?", vbYesNo + vbExclamation, "Email")
    If Réponse = vbYes Then

Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String

    Set Ol = New Outlook.Application
    Set Olmail = Ol.CreateItem(olMailItem)
    With Olmail
        .To = "martialpittue@gmail.com"
        .Subject = "Aide concernant votre programme."
        .Body = "(Veuillez effacer pour saisir votre message.)"
        '.Attachments.Add "C:\Documents\.xlsm"  --------- On n'y attache rien
        .Display
        '.Send
        'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
    End With
    If Réponse = vbNo Then Exit Sub
    End If
End Sub

un seul mot... parfait !

avec la petite message box en cadeau, c'est royal

merci énormément !

julien

juicelink a écrit :

un seul mot... parfait !

avec la petite message box en cadeau, c'est royal

merci énormément !

julien