用vbs发送带附件的邮件
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| functionSend_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment) ''codebyNetPatch ''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/" ''这个是必须要的，不过可以放心的事，不会通过微软发送邮件 SetEmail=CreateObject("CDO.Message") Email.From=You_Account ''这个一定要和发送邮件的帐号一样 Email.To=Send_Email''主要邮件地址 IfSend_Email2<>""Then Email.CC=Send_Email2''备用邮件地址 EndIf Email.Subject=Send_Topic''邮件主题 Email.Textbody=Send_Body''邮件内容 IfSend_Attachment<>""Then Email.AddAttachmentSend_Attachment''邮件附件 EndIf WithEmail.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''cdobasec .Item(MS_Space&"sendusername")=You_ID(0)''你的邮件帐号 .Item(MS_Space&"sendpassword")=You_Password''你的邮件密码 .Update EndWith Email.Send ''发送邮件 SetEmail=Nothing ''关闭组件 Send_Mail=True ''如果没有任何错误信息，则表示发送成功,否则发送失败 IfErrThen Err.Clear Send_Mail=False EndIf EndFunction ''以下是利用上面的函数发送带附件的邮件例子 IfSend_Mail("test@163.com","test","test2@163.com","","邮件主题","邮件内容","d:\test.exe")=TrueThen Wscript.Echo"发送成功" Else Wscript.Echo"发送失败" EndIf |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: N年前的两个脚本%5c暴库下一篇: vbs实现压缩文件夹的脚本
关于用vbs发送带附件的邮件的所有评论
