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

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
 

eric87

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…