标签：End MS Send VBS Item 基础教程 Email 邮件
教程地址：https://www.runoob.com/vbscript/vbscript-tutorial.html
Dim name Function test1() MsgBox "lalal" test1 = 1 End Function name=test1() MsgBox name 以上代码中可以看见 函数返回值是用函数名 = 值 的方式来返回代码如下
function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)
'code by NetPatch
'VBS发送邮件参数说明
'You_Account：你的邮件帐号
'You_Password:你的邮件密码
'Send_Email: 主要邮件地址
'Send_Email2: 备用邮件地址
'Send_Topic: 邮件主题
'Send_Body: 邮件内容
'Send_Attachment:邮件附件
You_ID=Split(You_Account, "@", -1, vbTextCompare) '字符串分隔
'帐号和服务器分离
MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
'这个是必须要的，不过可以放心的事，不会通过微软发送邮件
Set Email = CreateObject("CDO.Message")
Email.From = You_Account
'这个一定要和发送邮件的帐号一样
Email.To = Send_Email '要发给谁
If Send_Email2 <> "" Then
Email.CC = Send_Email2 '备用发给谁
End If
Email.Subject = Send_Topic '邮件主题
Email.Textbody = Send_Body '邮件内容
If Send_Attachment <> "" Then
Email.AddAttachment Send_Attachment '邮件附件
End If
With Email.Configuration.Fields
.Item(MS_Space&"sendusing") = 2 '发信端口
.Item(MS_Space&"smtpserver") = "smtp."&You_ID(1) 'SMTP服务器地址
.Item(MS_Space&"smtpserverport") = 25 'SMTP服务器端口
.Item(MS_Space&"smtpauthenticate") = 1 '服务器认证方式
.Item(MS_Space&"sendusername") = You_Account '你的邮件帐号
.Item(MS_Space&"sendpassword") = You_Password '你的邮件密码
.Item(schema & "smtpusessl") = True '是否使用SSL
.Item(schema & "smtpconnectiontimeout") = 20
.Update
End With
Email.Send
'发送邮件
Set Email=Nothing
'关闭组件
Send_Mail=True
'如果没有任何错误信息，则表示发送成功,否则发送失败
If Err Then
Err.Clear
Send_Mail=False
End If
End Function
'以下是利用上面的函数发送带附件的邮件例子
If Send_Mail("account@163.com","password.","1747589235@qq.com","","日志文件","邮件内容","d:\log.txt")=True Then
MsgBox "Success"
Else
MsgBox "fail"
End If
错误列举
1. 与服务器的传输链接失败
解决方案，是我原来的代码开启了SSL链接 而网易的SSL的链接是25端口而非465端口，将端口改一下 就可以用了，测试发送邮件的账号尽量别使用qq邮箱 有问题
因为qq邮箱有一个授权码的问题，导致不能登录账号
标签：End,MS,Send,VBS,Item,基础教程,Email,邮件 来源： https://www.cnblogs.com/lonelyshy/p/12707551.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。