CDO.Message 发邮件

剑仙十号

功能 执行()
发送邮件("abc@163.com", "abcdefg", "abc@163.com", "tc简单开发", "tc简单开发,邮件测试", "")
结束

功能 发送邮件(ID帐号, ID密码, 发送地址, 邮件主题, 邮件内容, 邮件附件)
var 网址, arr
网址 = "http://schemas.microsoft.com/cdo/configuration/"
字符串分割(ID帐号, "@", arr)

var em = com("CDO.Message")
//var cfg = com("CDO.Configuration")
var cfg = em.Configuration
var fds = cfg.Fields
fds.Append(网址 & "sendusing", 2)
fds.Append(网址 & "smtpserver", "smtp." & arr[1])
fds.Append(网址 & "smtpserverport", 25)
fds.Append(网址 & "smtpauthenticate", 1)
fds.Append(网址 & "sendusername", arr[0])
fds.Append(网址 & "sendpassword", ID密码)
fds.Update() //更新设置.
traceprint("更新设置.")

em.From = ID帐号
em.CC = 发送地址
em.Subject = 邮件主题
em.TextBody = 邮件内容
if(邮件附件 != "")
  em.AddAttachment(邮件附件)
end
em.Send() //oMsg.Send();//发送
traceprint("执行完成.")
结束

剑仙十号

为何发邮件失败，有大神来讨论下？
TC发不了邮件，不如附件的VBS 代码!

剑仙十号

人工置顶。专业顶贴20年