XL 2010 envoi mail et message à partir d'une liste excel

[philmaure]

bonjour,

je souhaiterai envoyer un mail aux correspondants enregistrés dans un fichier excel (cellule A1) et y ajouter un message (cellule C1)

La liste des correspondants est susceptible d'évoluer idem pour le message

Merci pour votre aide
Cdlt
Philmaure

 

[philmaure]

re,

Pour info, j'ai trouvé une solution qui fonctionne

Sheets("destinataires").Select
ActiveWorkbook.SendMail Recipients:=Range("A1:A2").Value, _
Subject:=Range("d3").Value, _
ReturnReceipt:=True


A1:A2 : mes é adresses mail
D3 : le message que je met dans le sujet du mail


Par contre je n'ai pas trouvé pour mettre un message dans le corps du message

bonne journée
Cdlt
Philippe

 

[jecherche]

Bonjour,

.Body = source...

Code provenant de : https://openclassrooms.com/forum/sujet/envoie-de-mail-automatique-outlook-via-excel-48202

Sub Mail_small_Text_Outlook()
'Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro


'ici je repère la dernière ligne vide pour la Collections des données
L = Range("B65536").End(xlUp).Row + 1


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = [T]

On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Avertissement sur Tâche"
.Body = strbody
'You can add a file like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Jecherche

 

[philmaure]

bonjour,

un grand merci pour la solution. C'est parfait

Bonne soirée
Cdlt
Philmaure