Sub SendEmail(TypeCreation,FichierAttachement)
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'autorisation d'affichage de message d'alerte
'Application.DisplayAlerts = True
'sujet de l'email
ESubject = CorpsDeEmail
'destinataire de l'email
sendto = AdresseDestinataire
'destinataire copie de l'email
CCTo = AdresseDestinataireCopie
End If
'corps du texte de l'email
Ebody = CorpsDeEmail
'nom du fichier d'attachement à l'email
'NewFileName = DirDemandeDeCodification & TypeCreation & ".xls"
'AttachementDoc = Dossier
Application.DisplayAlerts = False
'lancement de l'application outlook pour envoyer l'email
Set App = CreateObject("Outlook.Application")
'création de l'email
Set Itm = App.CreateItem(0)
With Itm
.Subject = ESubject
.To = sendto
.CC = CCTo
.Body = Ebody
'mon fichier est enregistré dans WorkDir sous le nom NewFileName
.Attachments.Add (WorkDir & NewFileName) ' Must be complete path
'.Display ' This property is used when you want
' the user to see email and manually send. Then
' comment out rest of code except “End With” statement
' and "End Sub" statement.
'évite l'apparition d'une fenêtre demandant si un logiciel externe
'est autorisé à envoyer des emails avec outlook
.send
End With
'fermeture de l'application après l'envoi de l'email
Set App = Nothing
Set Itm = Nothing
Application.DisplayAlerts = True
End Sub
