早上不发邮件？　[金字塔]

。。。。。。。。。。。。。 

call application.SetTimer(3,1000)'1000毫秒扫一次

。。。。。。。。。。。。。
  if id=3 then  '发邮件
 if weekday(now)<>1 and weekday(now)<>7 then    
 if  cdate(time)="08:50:00" or  cdate(time)="15:15:00" then
     sendreport
 end if 
 end if
 end if

不知道为什么只有下午发邮件，早上8.50不发邮件？

if  cdate(time)="08:50:00" or  cdate(time)="15:15:00" then
     sendreport

    application.msgout "发了"
 end if 

这样加上调试代码后看看早盘有没有执行到