vbs发送邮件(win10环境下成功)

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
'cdobasec
.Item(MS_Space&"sendusername") = You_ID(0)
'你的邮件帐号
.Item(MS_Space&"sendpassword") = You_Password
'你的邮件密码
.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("sss852@163.com","xxxxxx","other@qq.com","","邮件主题","Some code from vbs","")=True Then  Wscript.Echo "发送成功"
Else  Wscript.Echo "发送失败"
End If

vbs发送邮件(win10环境下成功)相关推荐

win10环境下运行debug程序
百度网盘:链接:https://pan.baidu.com/s/1y6omgW6fI-gT3Dp-0hutOg 提取码:iw4l CSDN0积分下载:https://download.csdn. ...
win10环境下如何给visual studio 2013永久配置opencv3.1.0环境
win10环境下如何给visual studio 2013永久配置opencv3.1.0环境本人在给visual studio 2013配置opencv 环境下遇到过一些问题,比如配置不成功或者不能 ...
联想IdeaPad Z460在Win10环境下BIOS刷白名单
联想IdeaPad Z460在Win10环境下BIOS刷白名单时间:2023-01-20 先分享一刷白名单,再分享升级的一些经验,毕竟都11年的电脑了. 最近又琢磨着,上网提提速,毕竟家里换了Wif ...
WIN10环境下配置hadoop+spark并运行实例的教程
WIN10环境下配置 hadoop + spark 并运行开发实例的教程前期准备基本环境配置虚拟机的安装配置虚拟机中的静态网络关闭并禁用防火墙配置主机名编辑host文件使用ssh传输文 ...
win10环境下修改cmd中用户名称为英文
win10环境下修改cmd中用户名称为英文作者亲身使用注意:请完全按照笔者的步骤执行,如因自己原因出错,后果自负,在完成时,请将此页面用另一台设备打开看,后面重启之后可能会有无法找到现在网页的可能性 ...
grafana二次开发在win10环境下的准备
grafana二次开发在win10环境下的准备 1.配置环境安装go语言环境安装git 下载源码安装gcc工具安装node 编译前端代码编译后端部分 1.配置环境安装go语言环境在官网下 ...
Win10环境下如何配置Java JDK系统环境变量【图文教程】
Windows10正式版发布后,不少用户都在第一时间对系统进行了升级.但是,最近有位刚刚升级的用户反映自己因为工作需求要在Windows10环境下配置Java JDK系统环境变量,却不知道该如何操作. ...
在win10环境下安装vmware软件后没有vmnet1、vmnet8虚拟网卡义
1.在win10环境下安装vmware软件后没有vmnet1.vmnet8虚拟网卡义 VMware版本问题!!! 使用window10安装的VMware,发现 "网络连接"只有 v ...
OpenSSL在Win10环境下的安装
Win10环境下OpenSSL的安装 1,前言 2,OpenSSL在Win10环境下的安装 2.1,了解安装OpenSSL所需步骤: 2.2,根据步骤完成前期准备 2.2.1,安装Perl 2.2.2 ...

vbs发送邮件(win10环境下成功)

vbs发送邮件(win10环境下成功)相关推荐

最新文章

热门文章