Macro Mail

Résolu
juju -  
 juju -
Bonjour à tous,

j'utilise excel et je souhaite mettre une macro qui permet d'envoyer un mail.

J'ai réussi à envoyer un mail avec l'objet, le contenue et une seule cellule du tableau excel.

Le problème, c'est que je souhaite inclure plusieurs cellules dans le mail et je n'arrive pas à le faire malgré de nombreuse recherche sur internet.

ma macro que j'ai fait pour envoyer le mail avec une seule cellule est :

     With olMail

.To = maildest
.Subject = " information "
.Body = "bonjour" & vbCrLf & _
& Range("C8").Value

' A choisir entre les deux :

' .Send 'Soit on envoie le mail directement
.Display 'soit on le montre avant de l'envoyer


et ce que je voudrai faire avec une sélection de cellule :

    With olMail

.To = maildest
.Subject = " information "
.Body = "bonjour" & vbCrLf & _
& Range("C8:C11").Value

' A choisir entre les deux :

' .Send 'Soit on envoie le mail directement
.Display 'soit on le montre avant de l'envoyer


Pouvez-vous m'aider?

Par avance, je vous en remercie

2 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    S'il n'y a pas de mise en forme particuliere

    .Body = "bonjour" & vbCrLf & Range("C8") & Range("C9") & Range("C10") & Range("C11")


    Vous pouvez ajouter des " " entre les ranges pour plus de lisibilite
    1
  2. juju
     
    Bonjour,
    merci de votre réponse.

    En fait je voulais faire comme j'avais fait car je voulais faire une sélection et grâce à la fonction target.Address qui donne : "$H$14:$T$31" et le mettre ensuite le texte contenu dans les cellules, dans le mail.
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      Whaoooooooooooooh!
      En fait je voulais faire comme j'avais fait car je voulais faire

      site a voir pour ce que vous demandez
      https://www.rondebruin.nl/win/s1/outlook/bmail2.htm
      0
    2. juju
       
      merci je vais regarder
      0