Bernard-Louis
XLDnaute Occasionnel
Bonjour le forum,
Cette macro envoi des mails a partir d'Excel.
Est il possible d'integrer la valeur de cellules dans le corps du mail ?
Après de nombreux essais ce code ne fonctionne pas.
Y aurait il une solution ?
Merci pour l'aide et bonne journée
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