导航

首页

实用工具

AI Lab

博文

开源项目

使用微软CDO.Message发送邮件

2020-07-29 01:21:04
黄豆 UsualTool.com
编程思维/ASP 4477

loading

因客户需求在不安装组件的前提下发送邮件，且使用ASP脚本发信，经过查阅资料，决定使用微软自带的CDO组件。

CDO.Message是微软自带的邮件组件，使用其发送邮件是非常快速的，而不需要安装任何组件实现。

然而网上绝大多数CDO例子均是错误的，经过研究并修正才得以成功。

以下附带源码，供大家参考使用：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
response.charset="utf-8"
Session.CodePage=65001
function SendMail(YourSmtp,YourPort,YourAccount,YourPassword,SendEmail,SendEmails,SendTopic,SendBody,SendAttachment)
MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = YourAccount
Email.To = SendEmail
If SendEmails <> "" Then
Email.CC = SendEmails
End If
Email.Subject = SendTopic
Email.HTMLBody = SendBody
'Email.Textbody = SendBody
If SendAttachment <> "" Then
Email.AddAttachment SendAttachment
End If
With Email.Configuration.Fields
.Item(MS_Space&"sendusing") = 2
.Item(MS_Space&"smtpserver") = YourSmtp
.Item(MS_Space&"smtpserverport") = YourPort
.Item(MS_Space&"smtpauthenticate") = 1
.Item(MS_Space&"sendusername") = YourAccount
.Item(MS_Space&"sendpassword") = YourPassword
.Item(MS_Space&"smtpusessl") = True
.Item(MS_Space&"smtpconnectiontimeout") = 20
.Update
End With
Email.BodyPart.Charset = "UTF-8"
Email.Send
Set Email=Nothing
SendMail=True
If Err Then
Err.Clear
SendMail=False
End If
End Function
'调用方法
If SendMail("smtp.xx.com","[email-masked]","465","xxxxxx","[email-masked]","","测试邮件","<font color=red>邮件内容</font>","")=True Then
response.write"发送成功"
Else
response.write"发送失败"
End If
%>

还等什么，试试吧！

感谢您的支持，我会继续努力的！

扫码打赏，你说多少就多少

打开微信扫一扫，即可进行扫码打赏哦!

[关闭打赏窗口]

+分享给朋友+

上一篇:民生处处是科技：关于纯JS电子手写签名

下一篇:又到成都猕猴桃成熟的季节

郑重提醒：部分素材来源于互联网，如果侵犯了您的权利，请及时联络我们更正，谢谢合作，电邮：[email-masked]

◇ 2022-05 [2] 凌晨突发：Apache.org官网被黑？

◇ 2022-04 [2] mssql与mysql数据同步的Kafka实验

◇ 2022-01 [1] Mysql INT字段默认为0且允许为空，传空值却失败？

◇ 2021-10 [1] 解决UT框架更改前端默认模块后后端访问异常

◇ 2021-09 [1] 使用Tesseract架设OCR识别服务

◇ 2021-08 [1] ASP使用.net库进行md5加密

◇ 2021-07 [4] 安装laravel错误问题解决汇总

◇ 2021-06 [2] 鸿蒙DevEco Studio无法安装JS SDK

◇ 2021-05 [1] 正确处理服务器遭遇勒索病毒

◇ 2021-04 [1] H5小程序使用Session保存登录状态的方案

◇ 2021-03 [3] CentOS支持远程桌面连接安装步骤

◇ 2021-01 [1] UTMPlayer音乐播放报错：DOMException

推荐阅读

使用Tesseract架设OCR识别服务

提到OCR就不可避免的想到谷歌的开源项目Tesseract。Tesseract是基于Apache许可......

使用WinRar制作exe桌面应用程序

鸿蒙DevEco Studio无法安装JS SDK

UT框架在WINDOWS系统下运行Websockets

宝塔部署UT无法安装或首页显示空白

UTMPlayer音乐播放报错：DOMException

如何生成自己的android签名文件

如何使用UT快速建立一个小程序？

“电子眼”中看AI技术

域名会没落吗？未来还会有域名的市场吗？

“鸿蒙”系统仍缺乏良好的应用程序生态系统

中国互联网技术应用跨境“出海”受追捧

成都高新区2019年“蓉漂计划”申报于7月12日结束

MSSQL数据迁移至MYSQL数据库操作图解

人工神经网络和深度学习的定义

人工智能（AI）概述​

asp、php、asp.net、jsp优缺点比较

PHP7废弃的一些东西

Alexa排名在中国是否具有参考性

隐私协议 | 免责声明 | 联系我们
版权所有 © 2018 UsualTool.com. 蜀ICP备09015842号-2 川公网安备51018202000023号