Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
With oBjMail
.To = dest ' le destinataire
.cc = destcc
.Subject = "RAPPORT MAINTENANCE REGION " & reg ' l'objet du mail
.Body = "Ici le texte du mail " 'le corps du mail ..son contenu
.Attachments.Add nomfich '"C:\Data\essai.txt" ' ou Nomfichier
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.send
End With
ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing