紧急求救 紧急求救 服务器自动发送mail有问题

[lovelylulu]

Dim iMsg
Dim iConf
Dim Flds

Dim mToMan, mFromMan,mCCMan, mSubject, mUrl

mFromMan = "[e-mail]"
mCCMan = "[e-mail]"
mToMan = "[e-mail]"
mSubject = "Mailing Test CreateMHTMLBody"


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

Set Flds = iConf.Fields

Flds.Item("cdoSendUsingMethod") = 2 'cdoSendUsingPort
Flds.Item("cdoSMTPServer") = "TESIS3080"
Flds.Item("cdoSMTPConnectionTimeout") = 3600
Flds.Item("cdoSMTPServerPort") = "25"
Flds.Item("cdoSMTPAuthenticate")= 1 '0:cdoAnonymous, 1:gengeral
Flds.Item("cdoSendUserName") = "dd"
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
.CreateMHTMLBody "http://tesis3080/HRMS/", 0,"dd", "dd"
' .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



为什么用 .CreateMHTMLBody "http://tesis3080/HRMS/", 0,"dd", "dd" 发邮件今天突然不行了 前几天还是好好的
用 .HtmlBody = "ddddd" 还是好的

是不是服务器出现问题了啊?

[lovelylulu]

我觉得程序应该没问题 应该是系统上面有问题 可是我不知道 系统哪里出现了问题
有高手能解决吗?

[tigerwen01]

重启一下机器

[lovelylulu]

服务器不能重新启动的啊 重新启动以后很多东西要重新配置 老麻烦的 有什么更好的办法吗?