已完成設定email寄發卻無法寄出,請幫忙(編號:8751)

我己經將cdonts.newmail元件設定好了
程式如下
Set memmail = New CDONTS.NewMail
   memmail.From = "測試報"
   memmail.To = "doreen@icode.com.tw"
   memmail.subject = "電子報寄送完成"
   memmail.BodyFormat = 1
   memmail.MailFormat = 0
   memmail.Body = "本日電子報已完全寄出!"
   memmail.Send
 Set memmail = Nothing

但卻無法寄出,一直找不到原因,請求幫助