最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
使用CDONTS发送邮件的几个例子
时间：2022-06-30 11:35:17 编辑：袖梨 来源：一聚教程网
<%
'Last Updated By Recon On 05/14/2001
'On Error Resume Next
'利用CDONTS组件在Win2k上发送邮件
Dim objMail
'普通邮件
'无主体
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "[email protected]"
objMail.To = "[email protected]"
objMail.Subject = "TEST1"
objMail.Send
Set objMail = Nothing
'普通邮件
'有主体
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "[email protected]"
objMail.To = "[email protected]"
objMail.Subject = "TEST2"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Send
Set objMail = Nothing
'普通邮件
'有多送.有主体
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "[email protected]"
objMail.To = "[email protected];[email protected]"
objMail.Subject = "TEST3"
objMail.Body = "When i was young, i listened to the radio ..."
objMail.Send
Set objMail = Nothing
'普通邮件
'有抄送.有主体.有重要性
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
objMail.From = "[email protected]"
objMail.To = "[email protected]"
objMail.Cc = "[email protected];[email protected]"
相关文章
- 币安期权是美式还是欧式 2025期权交易模式全解析 06-16
- SNORT币如何安全存储-2025币安交易所存储教程 06-16
- 最受欢迎正规数字资产虚拟币交易TOP10-最新比特币交易app币安推荐 06-16
- SOLX币手续费低吗？2025币安交易所低成本教程 06-16
- 《星球重启》伊甸城酒吧的音乐哪几种 06-16
- 5GASS币手续费低吗？2025币安交易所低成本教程 06-16