Envoi d'un mail à une liste de distribution outlook

eric87

XLDnaute Nouveau
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 :

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
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson