Envoi d'un mail à une liste de distribution outlook

[eric87]

Bonjour,

Grâce au code de MichelXLD, je suis parvenu à envoyer une feuille de mon classeur avec outlook.

J'aimerai aller plus loin en envoyant ce mail à une liste de distribution de Outlook (creée dans outlook) et egalement inserer un texte dans le corps du mail.

voici mon code :

Sub ENREGISTRE_SYNTHESE()
'copie des infos
Sheets("synthese").Range("D6:M75").Value = ActiveSheet.Range("D6:M75").Value

'enregistrement dans nouveau classeur
Dim Nom As String
Nom = [E8]
Sheets("synthese").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "c:\Synthese du" & Nom

'envoi email
ActiveWorkbook.SendMail Recipients:="nom@provider.com" 'envoi Mail
ActiveWorkbook.Close ' ferme le classeur créé après l'envoi
Application.DisplayAlerts = True
ThisWorkbook.Activate
End Sub

merci de votre aide

eric

 

[Staple1600]

Re : Envoi d'un mail à une liste de distribution outlook

Bonjour


Peut-être la lecture de es fils t'aidera

https://www.excel-downloads.com/threads/envoi-dun-mail-depuis-une-liste-sur-excel.94376/

https://www.excel-downloads.com/threads/envoi-mail-a-2000-destinataires.92902/

 

[eric87]

Re : Envoi d'un mail à une liste de distribution outlook

Bonjour Staple1600,

Oui j'avais vu ces fils, mais je ne trouve rien qui evoque le fait d'utiliser une liste de distribution existente dans outlook !

merci


eric

 

[Staple1600]

Re : Envoi d'un mail à une liste de distribution outlook

Re

Dans ce cas pourquoi ne pas utiliser la fonction publipostage de Word
(par mail)

en sa basant sur ta liste de distribution?

 

[eric87]

Re : Envoi d'un mail à une liste de distribution outlook

Ah, Word n'est pas diponible sur le poste de travail :

eric