Hi,

I'm trying to make a procedure which will automatically email the
active workbook using the following code.

ActiveWorkbook.SendMail Recipients:=oReceiver, Subject:=oSubject

Application.Wait (Now + TimeValue("0:00:03"))
Application.SendKeys "%1"


The procedure works perfectly except when the computer is locked (using
Ctrl+alt+del). In this case the email is created but not sent.

I am using Lotus Notes

Thanks in advance for any help.