1: 公司的防火墙有没有开 LAN 到 WAN 的 25 端口？
2: 你的电脑上的防毒软件有没有禁用邮件发送监控？
3：你有没有安装Jmail组件？
如果上面都 OK
那么用Jmail发邮件就这样：
<%
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
Jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = "Email From for Sender" '发件人的E-MAIL地址
jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" '邮件的标题 
jmail.Body = "Mail Body" '邮件的内容
jmail.Send("Server Address") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
set jmail = nothing
%>

 

有装Jmail组件，端口还没有去看，明天去看一下，你那个不要设哪个服务器发送Mail吗，我的Web服务器跟邮件服务器不是同一台机,你那样的程序我早就有试过，没用

http://www.programfan.com/club/showbbs.asp?id=220288

我不要用163等外部郵件服務器發送，是公司自已的郵件服務器
Exchange

把 mymail.to=写成你服务器邮箱地址看看

我的WEB服務器上有裝Jmail4.3
25端口也有打開，但郵件服務器那邊我不知道，因為在另一地方，不在我這邊，很遠.

下面這個規則前面沒有打勾

要阻檔的端口
                       規則                              端口
   Prevent mass mailing worms from sending mail           25

我是寫的我郵箱服務器的IP地址，Web服務器的SMTP是默認設置

我的代碼是這樣的
Dim iMsg
Dim iConf
Dim Flds

Dim mToMan, mFromMan,mCCMan, mSubject, mUrl

mFromMan = "yw.z@yy2a.yydg.com.cn"
mCCMan = "yw.z@yy2a.yydg.com.cn"
mToMan = "yw.z@yy2a.yydg.com.cn"
mSubject = "Test" 


Set iMsg = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

Flds.Item("cdoSendUsingMethod") = 2 'cdoSendUsingPort
Flds.Item("cdoSMTPServer") = "172.17.5.27"
Flds.Item("cdoSMTPConnectionTimeout") = 3600
Flds.Item("cdoSMTPServerPort") = "25"
Flds.Item("cdoSMTPAuthenticate")= 1 '0:cdoAnonymous, 1:gengeral
Flds.Item("cdoSendUserName") = "dgmail\yw.z"  '我的outlook登錄是這個賬號
Flds.Item("cdoSendPassword") = "dd"
Flds.Item("cdoURLGetLatestVersion") = true
Flds.Update

On Error Resume Next
With iMsg
Set .Configuration = iConf
.BodyPart.Charset = "utf-8"
.To = mtoMan
.From = mfromMan
.CC = mCCMan
.Subject = mSubject
.HtmlBody = "ddddd"
'CdoMHTMLFlags Enum : 0 = CdoSuppressNone (Download all Resources), 31= CdosuppressAll (Do Not download any Resources)

.Send
End With

Set iMsg = Nothing
Set iConf = Nothing

請高手幫我看看啊

有装Jmail组件，你为什么还要使用 CDO.Message?
为避免自己局域网设置的问题，
你可以试一下使用smtp.tom.com作为邮件服务器给自己发一封信
如果成功，你就找你局域网网管，如果失败，你找自己的代码问题

那臺服務器不能上網啊