我想在公司内部局域网环境下实现网页上自动发送mail。公司mail服务器是exchange。每位员工都有自己的邮箱帐号和密码，但不能上外网。用以下代碼發送不出去Mail

Set jmail = Server.CreateObject("JMAIL.Message") 
jmail.silent = true 
Jmail.logging = true 
jmail.Charset = "GB2312" 
jmail.ContentType = "text/html" 
jmail.AddRecipient "yw.z@yy2a.yydg.com.cn" 
jmail.From = "yw.z@yy2a.yydg.com.cn" 
jmail.MailServerUserName = "dgmail\yw.z" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "dgmail" '登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" 
jmail.Body = "Mail Body" 
if jmail.Send("YYDGVS3.yydg.com.cn") 
    response.write "Pass"
else
    response.write "fail"
end if
jmail.Close() 
set jmail = nothing

MailServerUserName我試過
yw.z
yw.z@yy2a.yydg.com.cn
dgmail\yw.z
dgmail\yw.z@yy2a.yydg.com.cn
我電腦上用outlook登錄的賬號是dgmail\yw.z


我在DOS下用執行smtpdiag yw.z@yy2a.yydg.com.cn yw.z@yy2a.yydg.com.cn
結果如下:
正在搜尋 Exchange 外部 DNS 設定值。
電腦名稱為 SIMON[color=FF0000]。[這個是我的電腦名稱][/color]
無法連接網域控制站。錯誤: 8007054b

正在檢查 yy2a.yydg.com.cn 的 SOA。
正在檢查外部 DNS 伺服器。
正在檢查內部 DNS 伺服器。
SOA 序號相符: 通過。

正在檢查本機網域記錄。
正在使用 TCP 檢查 MX 記錄: yy2a.yydg.com.cn。
正在使用 UDP 檢查 MX 記錄: yy2a.yydg.com.cn。
TCP 及 UDP 查詢均成功。本機 DNS 測試通過。

正在檢查遠端網域記錄。
正在使用 TCP 檢查 MX 記錄: yy2a.yydg.com.cn。
正在使用 UDP 檢查 MX 記錄: yy2a.yydg.com.cn。
TCP 及 UDP 查詢均成功。遠端 DNS 測試通過。

正在檢查 yw.z@yy2a.yydg.com.cn 列出的 MX 伺服器。
在通訊埠 25 上連線到 yydgvs4.yydg.com.cn [172.17.5.29]。
錯誤: 預期是 "220"。伺服器不接受連線。
無法將郵件提交到 yydgvs4.yydg.com.cn。
在通訊埠 25 上連線到 yydgvs3.yydg.com.cn [172.17.5.27]。
錯誤: 預期是 "220"。伺服器不接受連線。
無法將郵件提交到 yydgvs3.yydg.com.cn。

請教各位高手指點我該如何做