台州温岭做网站请找我们 (专业建站 | 诚信服务) 13958630945 在线客服 联系技术

佳源设计|台州网站建设|佳源网页设计

网站当前位置: 首页>>做网站步骤>>阿里云虚拟主机 Asp 465端口发信代码
建站流程
 
建站知识
 
网站建站疑难
 
网站设计_图象处理
 
网站设计_Css样式
 
网站建设_Flash疑难
 
手机网站建设
 
 建站知识搜索
 

台州网站建设
 
网站优化
 
提交疑问
 做网站步骤 > 阿里云虚拟主机 Asp 465端口发信代码

阿里云虚拟主机 Asp 465端口发信代码

605次浏览
2019-03-30


Sub Email(temail,mailcontent)
Set Mail = CreateObject("CDO.Message")
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") =xxx.163.com"  '服务器发信地址
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="xx@52-life.net"   '服务器发信账号
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="xxx"   '服务器发信密码
Mail.Configuration.Fields.Update 
Mail.Subject="xxx"  '发信主题
Mail.From="xx@52-life.net"  '发信人
Mail.To=temail  '接收人
Mail.HtmlBody=mailcontent
Mail.Send 
Set Mail = Nothing
End Sub


mailcontent=11111
Company_Email="xxx@xx.com"

Call Email(Company_Email,mailcontent)


页面所在本站地址: http://www.52-life.net/N_CDOMessage.htm
上一篇 >>mysql中怎么重置清空id,id从1开始自动递增方法
下一篇 >>微信小程序开发笔记:wx.request