|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
功能 执行()
发送邮件("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("执行完成.")
结束
|
|