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
Partager