Sub envoimail()
'test sur agence d'Auxerre
Workbooks.Open Filename:= _
"C:\Mes Documents\FD\PARIS.xls"
Dim Outlook As Object
Dim Mail As Object
Dim Dest As String
Dim Objet As String
Dim Corps As String
Dest = "papaye@moimeme.com" 'adresse du destinataire
Objet = "Bilan général'"
'Exemple de corps de texte avec texte et sauts de ligne
Corps = "Bonjour, " & _
vbCrLf & vbCrLf & _
"Ci-joint le fichiers des appels du mois passé pour votre agence." & _
vbCrLf & vbCrLf & _
"Nous restons bien entendu à votre disposition pour tout renseignement complémentaire." & _
vbCrLf & vbCrLf & _
"Cordialement." & _
vbCrLf & vbCrLf
Set Outlook = CreateObject("Outlook.Application" )
Set Mail = Outlook.CreateItem(0)
With Mail
.to = Dest
.CC = ""
.BCC = ""
.Subject = Objet
.Body = Corps
.Attachments.Add ActiveWorkbook.FullName
.Display
ActiveWindow.Close
End With
End Sub