Dear expert

i have a query that the code for auto send mail which i used in XP version, but now changed pc to windows 7 that was problems when screen locked ?? 

        .Display
        Application.Wait (Now + TimeValue("0:00:01"))
        Application.SendKeys "%s"

Do i need change any else of the wording ?

please help
thanks