18-2.txt

来自「开发王代码 代码」· 文本 代码 · 共 36 行

TXT
36
字号
<body>
<script type="text/javascript">
<!--
//-----------------第一步    创建对象-------------
var oMsg = new ActiveXObject("CDO.Message"); 
//-----------------第二步    进行设置-------------
//设置发信人的邮箱
oMsg.From = "zhang-yafei@tom.com";
//设置收信人的邮箱
oMsg.To = "zhang.yafei.web@gmail.com";
oMsg.Subject = "这是邮件标题";
oMsg.TextBody = "这是邮件正文,可以多写一点!!!";
//-----------------第三步    远程配置-------------
var oConfig = new ActiveXObject("CDO.Configuration");
var strNameSpace = "http://schemas.microsoft.com/cdo/configuration/";
oConfig.Fields(strNameSpace + "smtpserver") = "smtp.tom.com";
oConfig.Fields(strNameSpace + "smtpserverport") = 25;
oConfig.Fields(strNameSpace + "smtpaccountname") = "zhang-yafei";
//注意下面的配置应该与oMsg.From相同
oConfig.Fields(strNameSpace + "sendemailaddress") = "zhang-yafei@tom.com";
oConfig.Fields(strNameSpace + "smtpauthenticate") = 1; 
oConfig.Fields(strNameSpace + "sendusername") = "zhang-yafei"; 
oConfig.Fields(strNameSpace + "sendpassword") = "verySecret"; 
oConfig.Fields(strNameSpace + "Smtpusessl") = false; 
oConfig.Fields(strNameSpace + "sendusing") = 2;
oConfig.Fields.Update();                        //使配置生效
oMsg.Configuration = oConfig;             //赋给oMsg.Configuration属性
//-----------------第四步    执行发送-------------
oMsg.Send();
//发送成功后释放对象
var oMsg = null;
document.write("成功发送邮件!!!");
-->
</script>
</body>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?