VBS引擎。调用VBS发邮件

剑仙十号

//VBS引擎。调用VBS发邮件
var hThread, path
功能 执行()
var SendFrom = "发件账号@163.com"
messagebox("请录入自己的邮箱密码.")
var Password = "请录入自己的邮箱密码."
var SendTo = "收件账号@163.com"
var MailTopic = "主题"
var MailBody = "内容"
var MailAttachment = "d:\\dll\\脚本.bmp"
var text = ""
text = SendFrom & "||" & Password & "||" & SendTo & "||" & MailTopic & "||" & MailAttachment
var ret = SendMail(text, MailBody)
traceprint("发送报告:" & ret)
结束
//
功能 SendMail(text, MailBody)
var str = 数组()
str[0] = "Function SendMail(text,MailBody) :"
str[1] = " Dim arr,ret:"
str[2] = " arr = Split(text, \"||\"):"
str[3] = " Dim SendFrom, Password, SendTo, MailTopic, MailAttachment:"
str[4] = " SendFrom = arr(0):"
str[5] = " Password = arr(1):"
str[6] = " SendTo = arr(2):"
str[7] = " MailTopic = arr(3):"
str[8] = " MailAttachment = arr(4):"
str[9] = " MS_Space = \"http://schemas.microsoft.com/cdo/configuration/\":"
str[10] = " Set Email = CreateObject(\"CDO.Message\"):"
str[11] = " Email.From = SendFrom:"
str[12] = " Email.To = SendTo:"
str[13] = " Email.Subject = MailTopic:"
str[14] = " Email.Htmlbody = MailBody:"
str[15] = "If MailAttachment <> \"\" Then:"
str[16] = "For i=0 to Ubound(Split(MailAttachment,\";\")):"
str[17] = "Email.AddAttachment Split(MailAttachment,\";\")(i):"
str[18] = "Next:"
str[19] = "End If:"
str[20] = " With Email.Configuration.Fields:"
str[21] = "  .Item(MS_Space&\"sendusing\") = 2:"
str[22] = "  .Item(MS_Space&\"smtpserver\") = \"smtp.\"&Split(SendFrom,\"@\",-1, vbTextCompare)(1):"
str[23] = "  .Item(MS_Space&\"smtpserverport\") = 25:"
str[24] = "  .Item(MS_Space&\"smtpauthenticate\") = 1:"
str[25] = "  .Item(MS_Space&\"sendusername\") =Split(SendFrom,\"@\",-1,vbTextCompare)(0):"
str[26] = "  .Item(MS_Space&\"sendpassword\") = Password:"
str[27] = "  .Update:"
str[28] = " End With:"
str[29] = " Err.clear:"
str[30] = " Email.Send:"
str[31] = " If Err.number<>0 Then:"
str[32] = "  SendMail=False:"
str[33] = "  ret = \"发送失败\":"
str[34] = " Else:"
str[35] = "  SendMail=True:"
str[36] = "  ret = \"发送成功\":"
str[37] = " End If:"
str[38] = " Set Email=Nothing:"
str[38] = " SendMail = ret:"
str[39] = "End Function"
var Code = ""
for(var i = 0; i < 数组大小(str); i++)
  Code = Code & str
end
var 脚本引擎 = com("ScriptControl")
脚本引擎.language = "VBScript"
脚本引擎.addcode(Code)
return 脚本引擎.run("SendMail", text, MailBody)

结束

游客，如果您要查看本帖隐藏内容请回复

剑仙十号

二楼，更新信息专用。
tc简单开发_爱好群：
433286131 (491/500)

tc简单开发_兴趣群
143358382 (492/500)

tc简单开发_高级群
891069033(168/200)　　
教程有连接安卓手机，连接安卓模拟器。
有编程四大F：
1、流程控制，2、变量和数组，
3、函数多线程，4、系统 api函数。
每章十多节。本群大神众多，新手众多，群文件内资源海量。希望新手分享出.更多的学习笔记，减少重复造轮子的时间。
共同学习，共同进步。

渊大人

大佬牛哇

渊大人

可是使用失败了，哎哟

剑仙十号

我是用QQ邮箱的，因为QQ它有永久的授权码来着，不然还要换，QQ邮箱它必须要开启ssl才能发送。
.
解决了，我自己加入了一行代码开启ssl，并且把端口改了一下，谢谢大佬的模板！
.

251177962

调用VBS发邮件

bluesky567

谢谢大佬

tiantianwangji1

滴答滴答滴答滴答