Sub Fermer_Outlook_Sendkey_Version2007()
Application.SendKeys ("%{tab}"), True
attente = 3: newHour = Hour(Now()): newMinute = Minute(Now()): newSecond = Second(Now()) + attente: waitTime = TimeSerial(newHour, newMinute, newSecond): Application.Wait waitTime
Application.SendKeys ("%(f)"), True
attente = 3: newHour = Hour(Now()): newMinute = Minute(Now()): newSecond = Second(Now()) + attente: waitTime = TimeSerial(newHour, newMinute, newSecond): Application.Wait waitTime
Application.SendKeys ("t"), True
End Sub