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

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 

這樣加上調試代碼后看看早盤有沒有執行到