ASP用CDO.Message发送邮件

最新推荐文章于 2024-05-05 21:16:10 发布
最新推荐文章于 2024-05-05 21:16:10 发布
阅读量1.9k 收藏
点赞数
分类专栏： 技术文章 文章标签： asp email microsoft function windows html
ASP用CDO.Message发送邮件

http://www.szasp.cn/HTML/30/31/2007/14670.html

<%
function send_mail(s_email,s_email2,s_topic,s_body)

'参数说明
's_email:  主要邮件地址
's_email2: 备用邮件地址
's_topic:  邮件主题
's_body:   邮件内容

dim eAccount,vTmp,iConf,Flds,oMail
   
  eAccount = "test@smtp.126.com" '这里是你的邮件服务器地址和登陆名,我用的是126的邮箱做的测试

    vTmp = Split(eAccount, "@", -1, vbTextCompare)

    Set iConf = server.CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort这里是发送邮件端口
    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = vTmp(1)
    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '这里是SMTP服务器端口
    Flds("http://schemas.microsoft.com/cdo/configuration/smtpaccountname") = eAccount
    Flds("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = eAccount
    Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic
    Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = vTmp(0)
    Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxx"   '我的126邮箱密码
    Flds.Update

    set oMail = server.CreateObject("CDO.Message")
    oMail.To = s_email
 If s_email2<>"" Then
 oMail.CC = s_email2
 End If
    oMail.Subject = s_topic     
    oMail.HTMLBody = s_body
    oMail.From = "test@126.com"    '这里必须和上面的登陆名一致
    

    Set oMail.Configuration = iConf
    oMail.MimeFormatted = True
    oMail.AutoGenerateTextBody = True
    oMail.Fields.Update
    oMail.HTMLBodyPart.Charset = "gb2312"
    oMail.Send

    Set oMail = Nothing    
    Set Flds = Nothing
    Set iConf = Nothing
     
  send_mail=true  
  if err then
    err.clear
    send_mail=false
  end if
end function

If send_mail(test@163.com","test2@163.com","邮件主题","邮件内容")=true Then
 '发送成功
Else
 '发送失败
End If
%>

另一篇

 

 

How to send HTML formatted mail using CDO for Windows 2000 and a remote SMTP service

http://support.microsoft.com/kb/286431

View products that this article applies to.
<script type="text/javascript">function loadTOCNode(){}</script>
Article ID:286431
Last Review:August 25, 2005
Revision:3.1
This article was previously published under Q286431

SUMMARY

<script type="text/javascript">loadTOCNode(1, 'summary');</script>
This article describes how to send HTML formatted mail using CDO for Windows 2000 (CDOSYS) or CDO for Exchange 2000 (CDOEX) using a remote computer's SMTP service.

Back to the top

MORE INFORMATION

<script type="text/javascript">loadTOCNode(1, 'moreinformation');</script>
1.
'  Send by connecting to port 25 of the SMTP server.
Dim  iMsg 
 Dim  iConf 
 Dim  Flds 
 Dim  strHTML

 Const  cdoSendUsingPort  =   2

set  iMsg  =   CreateObject ( " CDO.Message " )
 set  iConf  =   CreateObject ( " CDO.Configuration " )

 Set  Flds  =  iConf.Fields

 '  Set the CDOSYS configuration fields to use port 25 on the SMTP server.

With  Flds
    .Item( " http://schemas.microsoft.com/cdo/configuration/sendusing " )  =  cdoSendUsingPort
     ' ToDo: Enter name or IP address of remote SMTP server.
    .Item( " http://schemas.microsoft.com/cdo/configuration/smtpserver " )  =   " <remote SMTP server> "  
    .Item( " http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout " )  =   10   
    .Update
 End   With

'  Build HTML for message body.
strHTML  =   " <HTML> "
strHTML  =  strHTML  &   " <HEAD> "
strHTML  =  strHTML  &   " <BODY> "
strHTML  =  strHTML  &   " <b> This is the test HTML message body</b></br> "
strHTML  =  strHTML  &   " </BODY> "
strHTML  =  strHTML  &   " </HTML> "

'  Apply the settings to the message.
With  iMsg
     Set  .Configuration  =  iConf
    .To  =   " <email address> "   ' ToDo: Enter a valid email address.
    .From  =   " <email address> "   ' ToDo: Enter a valid email address.
    .Subject  =   " This is a test CDOSYS message (Sent via Port 25) "
    .HTMLBody  =  strHTML
    .Send
 End   With

'  Clean up variables.
Set  iMsg  =   Nothing
Set  iConf  =   Nothing
Set  Flds  =   Nothing

MsgBox   " Mail Sent! "
2.Edit the sections of the code that are marked "ToDo".
3.Save the file, and then double-click it.

The code creates an HTML-formatted message and sends it using the remote computer's SMTP service.

Back to the top

REFERENCES

<script type="text/javascript">loadTOCNode(1, 'references');</script>
For additional information, click the article number below to view the article in the Microsoft Knowledge Base:
286430 (http://support.microsoft.com/kb/286430/EN-US/) How To Send HTML Formatted mail Using CDO for Windows 2000 and the Local Pickup Directory
lingll
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
cdo 发送html,asp使用CDO.Message发送邮件详细代码集合
weixin_33223159的博客
06-16 897
发送文本Email:SetmyMail=CreateObject("CDO.Message")myMail.Subject="SendingemailwithCDO"myMail.From="[email protected]"myMail.To="[email protected]"myMail.TextBody="Thisisamessage."myMail.Sen...
asp 发送邮件 cdo.message
02-15
asp 发送邮件 cdo.message
ASP Class(类) 之 使用内建组件 cdo.message 发送邮件 By shawl.qiu
星☆空 | 对生活要知足,学习要不知足,为人处事要知不足. 卍 ♂ | ♀ 卐 - 科技以人为本.
09-12 5625
/*<![CDATA[*/ /* UBB */code, quote, cite { line-height: 150%; }.u_code, .marginE, .u_quote, .marginQuote, .u_cite, .cite { padding:15px 10px; margin:0px auto; overflow:auto; wi
asp 发送邮件
qingtianxl的专栏
02-15 1055
ASP CDO.Message 发送邮件完整实例 By shawl.qiu shawl.qiu code     dim mAction, mFrom, mTo, mCC, mBcc, mSubject, mBody     dim mSmtp, mPort, mTimeout, mSsl, mUser, mPwd         mAction="?id=cdo"
asp使用CDO.Message发送邮件详细代码集合
kirawoo的专栏
07-06 5310
 发送文本Email: 1 2 Set myMail=CreateObject("CDO.Message") 3 myMail.Subject="Sending email with CDO" 4 myMail.From="mymail@mydomain.
ASP使用CDO.Message+SMTP发送邮件
flynetcn的专栏
07-26 3682
Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort=2 Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSM
ASP CDO.Message 发送邮件完整实例 By shawl.qiu
热门推荐
星☆空 | 对生活要知足,学习要不知足,为人处事要知不足. 卍 ♂ | ♀ 卐 - 科技以人为本.
09-11 1万+
/*<![CDATA[*/ /* UBB */code, quote, cite { line-height: 150%; }.u_code, .marginE, .u_quote, .marginQuote, .u_cite, .cite { padding:15px 10px; margin:0px auto; overflow:auto; wi
ASP用JMail、CDO发送邮件
爱生活
05-11 1499
前一段时间有发过一个简单的JMAIL邮件发邮件的代码，今天就把这个代码做一个具体的注解，并增加了另外两个格式的代码，并举几个简单的例子：首先是jmail.smtpmail的核心代码：  Set jmail = Server.CreateObject("JMAIL.SMTPMail")  创建一个JMAIL对象  jmail.silent = true  JMAIL不会抛出例外错误，返回的值为F
CDO.MESSAGE 定时 发送邮件 源代码
08-21
定时自动发送邮件源文件 当设定好时间和接受邮箱就可以发送 系统自带 CDO组件 WINDOW 2003 中需要注册CDO组件
注册用户就出现这个CDO.Message.1 错误 80040220
01-10
我一注册用户就出现这个~请问这是是哪里出问题拉CDO.Message.1 错误 ‘80040220’ “SendUsing”配置值无效。 /inc-freehost-function/FreeHostFunctionMain.asp，行 637 答：您服务器上没有装iis的smtp，如果你不...
CDO邮件接收ASP案例
09-28
一个简单邮件接收案例 CDO.Message CDO.Configuration
[VBS]CDO.Message使用详细介绍
liuyukuan的专栏
12-10 7146
转自 http://blog.csdn.net/dcasc/article/details/8268878 cdo.message使用实例,固定的代码就不做解释了,这里介绍我们需要改动的： Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"    Const cdoSe
利用CDO.Message发送邮件
cqinter的专栏
12-01 1728
<br />由于公司把网站从自己的服务器上移到了gd的asp空间上，gd的空间又不支持gmail,找了很多的资料。。才找到下面这个发邮件的代码。。<br />经测试，完全可用<br /> <br /><%Dim myMail<br /> Set myMail = CreateObject("CDO.Message")<br /> <br /> Set iConf = CreateObject("CDO.Configuration")<br /> Set Flds = iConf.Fields<br /> W
asp中用CDO发送简单电子邮件
NorthSnow HOME
11-23 3928
 用CDO发送简单电子邮件的例子。很简单。带入如下：  Const   cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"       Const   cdoSendUsingPort=2       Const   cdoSMTPServer="http://schemas.mic
指令和界面【Linux】
最新发布
qq_74013365的博客
05-05 1646
Linux操作系统提供了丰富的命令行界面和图形用户界面工具，用户可以根据自己的需求选择适合的界面进行操作。命令行界面更加灵活和高效，适合熟悉命令的用户；图形用户界面更加直观和友好，适合新手用户。严格意义上讲，光光学习Linux操作是远远不够的。还有系统，网络。
asp ssl发送邮件代码
05-26
以下是使用 Classic ASP 和 SSL 发送电子邮件的示例代码： ``` <% Dim objMail Set objMail = Server.CreateObject("CDO.Message") ' Set up the email configuration objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your_email@gmail.com" objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_password" objMail.Configuration.Fields.Update ' Set up the email content objMail.To = "recipient_email@example.com" objMail.From = "your_email@gmail.com" objMail.Subject = "Test Email" objMail.TextBody = "This is a test email sent using SSL." ' Send the email On Error Resume Next objMail.Send If Err.Number = 0 Then Response.Write "Email sent successfully." Else Response.Write "An error occurred: " & Err.Description End If Set objMail = Nothing %> ``` 请注意，您需要将上面的代码中的以下行替换为您自己的电子邮件地址和密码： ``` objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your_email@gmail.com" objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your_password" objMail.To = "recipient_email@example.com" objMail.From = "your_email@gmail.com" ``` 此外，您需要将 SMTP 服务器和端口设置为您使用的电子邮件服务的设置。在上面的示例中，我们使用 Gmail 的 SMTP 服务器和端口。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值