Bonjour le forum,
Que faut il modifier a cette macro qui me stocke le mail dans la boite d'envoi au lieu de l'envoyer directement ?
Que faut il rajouter pour que je puisse mettre une phrase de presentation dans le mail ?
Merci pour l'aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub envoimail()
 
'copie la feuille dans un nouveau classeur
ThisWorkbook.Sheets("IDF").Copy
 
'Sauve le classeur
ActiveWorkbook.SaveAs "C:\Temp\IDF.xls"
 
'Envoi le classeur par mail
ActiveWorkbook.SendMail "AAAAAA@free.fr"
 
'Temporisation de 10 sec
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
MsgBox "Le message est envoyé"
 
'Ferme sans sauver
ActiveWorkbook.Close False
 
'Supprime le classeur temp crée
Kill "C:\Temp\*.xls"
 
End Sub