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 :
merci de votre aide
eric
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