Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Integrer la valeur de cellules dans le corps d'un mail

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Bernard-Louis

XLDnaute Occasionnel
Bonjour le forum,

Cette macro envoi des mails a partir d'Excel.


Code: 
Sub envoi_mail()

    
    For k = 0 To 1000
    
        ' si la cellule Cells(k + 2, 2) est vide, on arrete
        If Sheets("Messages").Cells(k + 2, 2) = "" Then
            Exit For
        End If
        
    Next k
    
    'pour toute les valeurs de k :
    For i = 2 To k + 1
    
        
        'on crée 2 objets
        Dim ol As Object, NOUVEAU_MESSAGE As Object
        Dim strBody As String
        'ol contient les fonctions d'outlook
        Set ol = CreateObject("outlook.application")
       
        Set NOUVEAU_MESSAGE = ol.CreateItem(olMailItem)
        
        titre_mail = Sheets("Messages").Cells(i, 4)
        courriel_to = Sheets("Messages").Cells(i, 2)
        courriel_cc = Sheets("Messages").Cells(i, 3)
        
        corps_mail = Sheets("Messages").Cells(i, 5) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 6) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 7) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 8) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 9) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 10) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 11) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 12) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 13) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 14) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 15) & Chr(10)
        '
        
        NOUVEAU_MESSAGE.To = courriel_to
        NOUVEAU_MESSAGE.Subject = titre_mail
        NOUVEAU_MESSAGE.cc = courriel_cc
        NOUVEAU_MESSAGE.Body = corps_mail
        
        
     
            NOUVEAU_MESSAGE.Display
            Application.Wait (Now + TimeValue("00:00:02"))
            
            'on clique sur "entrer"
            SendKeys "^{ENTER}", True
            Application.Wait (Now + TimeValue("00:00:04"))
            
            'on detruit notre message dans la mémoire vive
            Set ol = Nothing
            Set NOUVEAU_MESSAGE = Nothing
        
       Next i
    
    
End Sub

Est il possible d'integrer la valeur de cellules dans le corps du mail ?
Après de nombreux essais ce code ne fonctionne pas.

Code: 
corps_mail = Sheets("Messages").Cells(i, 5) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 6) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 7) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 8) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 9) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 10) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 11) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 12) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 13) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 14) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 15) & Chr(10)

Y aurait il une solution ?
Merci pour l'aide et bonne journée
 

Pièces jointes

Trier par date Trier par votes
Re : Integrer la valeur de cellules dans le corps d'un mail

Bonjour Bernard-Louis

pas ouvert ton fichier, mais petite remarque au passage, dans le code ci-dessous :

Code: 
corps_mail = Sheets("Messages").Cells(i, 5) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 6) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 7) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 8) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 9) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 10) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 11) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 12) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 13) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 14) & Chr(10)
        corps_mail = Sheets("Messages").Cells(i, 15) & Chr(10)

ta variable "corps_mail" prendra la valeur de la dernière cellule testée. Il vaudrait mieux coder ainsi :
Code: 
corps_mail = corps_mail & Sheets("Messages").Cells(i, 15) & Chr(10)

cela permet de concatener les differentes valeurs.

En espérant t'avoir aider un peu à avancer...

bonne journée.
@+
 
Vote positif 0 Vote négatif
Re : Integrer la valeur de cellules dans le corps d'un mail

Merci Pierrot93,

Ta solution est la bonne. Les données sont bien importées.

Par contre j'ai un autre probleme,
Le mail 1 est correct par contre
Dans le mail 2, j'ai les données du mail 1 + mail 2
Dans le mail 3, j'ai les données du mail 1 +mail 2+mail 3

Pour le mail 3 ca donne :

Bonjour
Les fichiers suivants sont OK
AAAAAA
BBBBBB
CCCCCCCC
DDDDDDDD
EEEEEEEE
FFFFFFFF
GGGGGGGGGG
HHHHHHH (pas encore OK)
Cordialement

Bonjour
Veuillez m'adresser le fichier du mois :
decembre 2008
Cordialement

Bonjour
Veuillez m'adresser le fichier du mois :
decembre 2009
le plus rapidement possible
Cordialement


As tu une solution pour eviter ce probleme.
Encore merci !!
 
Vote positif 0 Vote négatif
Re : Integrer la valeur de cellules dans le corps d'un mail

Mille MERCIS Pierrot93, et bonne journée

Ton code fonctionne impeccable.

Voici le code qui fonctionne tres bien, grace a Pierrot93

Code: 
Sub envoi_mail()

    'Faire une boucle
    For k = 0 To 100
    
        ' si la cellule Cells(k + 2, 2) est vide, on arrete
        If Sheets("Messages").Cells(k + 2, 2) = "" Then
            Exit For
        End If
        
    Next k
    
    'pour toute les valeurs de k :
    For i = 2 To k + 1
    'Initialiser la variable au début de la boucle
    corps_mail = ""
        
        'on crée 2 objets
        Dim ol As Object, NOUVEAU_MESSAGE As Object
        Dim strBody As String
        'ol contient les fonctions d'outlook
        Set ol = CreateObject("outlook.application")
       
        Set NOUVEAU_MESSAGE = ol.CreateItem(olMailItem)
        
        titre_mail = Sheets("Messages").Cells(i, 4)
        courriel_to = Sheets("Messages").Cells(i, 2)
        courriel_cc = Sheets("Messages").Cells(i, 3)
        
        'Cela permet de concatener les differentes valeurs (corps_mail = corps_mail & Sheets).
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 5) & Chr(10)
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 6) & Chr(10)
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 7) & Chr(10)
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 8) & Chr(10)
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 9) & Chr(10)
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 10) & Chr(10)
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 11) & Chr(10)
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 12) & Chr(10)
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 13) & Chr(10)
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 14) & Chr(10)
        corps_mail = corps_mail & Sheets("Messages").Cells(i, 15) & Chr(10)
        
        
        
        NOUVEAU_MESSAGE.To = courriel_to
        NOUVEAU_MESSAGE.Subject = titre_mail
        NOUVEAU_MESSAGE.cc = courriel_cc
        NOUVEAU_MESSAGE.Body = corps_mail
        
        
     
            NOUVEAU_MESSAGE.Display
            Application.Wait (Now + TimeValue("00:00:02"))
            
            'on clique sur "entrer"
            SendKeys "^{ENTER}", True
            Application.Wait (Now + TimeValue("00:00:04"))
            
            'on detruit notre message dans la mémoire vive
            Set ol = Nothing
            Set NOUVEAU_MESSAGE = Nothing
        
       Next i
    
    
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Question Question
XL 2016 texte d'images vers excel
Réponses
14
Affichages
269
jurassic pork
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
215
Abi23
A
  • Question Question
XL 2019 HTML Corps de mail
Réponses
6
Affichages
739
My<3
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
254
JJ69
J
G
  • Question Question
Envoi mail avec pièce jointe
Réponses
2
Affichages
1 K
Gwendoline
G
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
  • Question Question
Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre
2 3
Réponses
38
Affichages
3 K
Usine à gaz
I
  • Résolu(e)
Microsoft 365 Récupérer les données des variable dans une autre feuille du classeur
Réponses
3
Affichages
504
Icedarts
I
R
  • Question Question
Microsoft 365 Inserer copie d'ecran ou plage de cellules dans mail
Réponses
4
Affichages
981
romubzh35
R
  • Question Question
XL 2019 Problème avec WorksheetFunction
Réponses
2
Affichages
1 K
cp4
Y
  • Question Question
XL 2013 Envoie de P-J sil existe par mail Macro VBA
Réponses
1
Affichages
712
kiki29
  • Question Question
Microsoft 365 Recherche dans tout le classeur de youky(BJ)
Réponses
6
Affichages
1 K
Usine à gaz
  • Question Question
XL 2016 Boucle ne fonctionne pas lors d'un envoi des plusieurs mail
Réponses
8
Affichages
2 K
JEREMY14210
J
B
  • Question Question
XL 2010 Alimenter une valeur issue d'une base de donnée dans une textbox crée dynamiquement avec variable
Réponses
6
Affichages
1 K
Bob O' Deville
B
  • Résolu(e)
Autres Envoi de mails avec liste de destinataires
Réponses
1
Affichages
1 K
fifounet
S
  • Question Question
Microsoft 365 Changer le compte par defaut VBA
Réponses
10
Affichages
5 K
danielco
D
L
  • Question Question
XL 2019 Problème de boucle ou de variables
Réponses
1
Affichages
1 K
Lucien31
L
C
  • Résolu(e)
Microsoft 365 Formule qui ralenti ma macro
2
Réponses
15
Affichages
3 K
mapomme
T
  • Résolu(e)
XL 2019 Format de date dans ListBox US (MM/JJ/AAAA) à changer en FR (JJ/MM/AAAA).
3 4 5
Réponses
71
Affichages
8 K
job75
E
  • Résolu(e)
Microsoft 365 Insérer plage de cellule dans corps de mail
Réponses
2
Affichages
3 K
ExcLnoob
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…