大连网站制作客服
主营业务
  • 网站制作
  • 网站维护
  • 网站推广
  • 域名空间
联系电话
联系人:尹先生
QQ:1050706570
E-mail:biz@noonenet.cn
地址:大连市甘井子区哲林北园29号
·首页 >> 网站技术 >> CDO.Message使用详细介绍

CDO.Message使用详细介绍

  更新时间:2010-1-15 9:47:29    编辑:阿帆

以前总是使用Jmail邮件组件,但是时间长了,多多少少也会遇到许多问题,例如:乱码问题,jmail处理起来就很麻烦,比如说日文邮件的接收,中文邮箱一般接收都不会出现问题,但是日本的邮箱或者国际性的邮箱接收就容易出现乱码,这点个人感觉jmail不如cdo.meesage处理起来方便,下面就来介绍下cdo.message详细使用方法,我们以实例说话:

cdo.message使用实例,固定的代码就不做解释了,这里介绍我们需要改动的:
Const cdoSendUsingMethod="http://schemas.microsoft.com/cdo/configuration/sendusing"
  Const cdoSendUsingPort=2
  Const cdoSMTPServer="http://schemas.microsoft.com/cdo/configuration/smtpserver"
  Const cdoSMTPServerPort="http://schemas.microsoft.com/cdo/configuration/smtpserverport"
  Const cdoSMTPConnectionTimeout="http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
  Const cdoSMTPAuthenticate="http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
  Const cdoBasic=1
  Const cdoSendUserName="http://schemas.microsoft.com/cdo/configuration/sendusername"
  Const cdoSendPassword="http://schemas.microsoft.com/cdo/configuration/sendpassword"
  
  Dim objConfig
  Dim objMessage 
  Dim Fields
  
  Set objConfig = Server.CreateObject("CDO.Configuration")
  Set Fields = objConfig.Fields
  
  With Fields
  .Item(cdoSendUsingMethod) = cdoSendUsingPort
  .Item(cdoSMTPServer) = "smtp.163.com"    <smtp邮件发送服务器>
  .Item(cdoSMTPServerPort) = 25                  
  .Item(cdoSMTPConnectionTimeout) = 10    
  .Item(cdoSMTPAuthenticate) = cdoBasic
  .Item(cdoSendUserName) = test@163.com   <发送者邮件地址>
  .Item(cdoSendPassword) = "123456"           <发送者邮件密码>
  .Update
  End With
  
  Set objMessage = Server.CreateObject("CDO.Message")
  Set objMessage.Configuration = objConfig
  
  With objMessage
  .BodyPart.Charset = "shift-jis"                      <邮件内容编码>       
  .To = username                                             <接收者邮件地址>
  .From = "biz@noonenet.cn"                           <发送者邮件地址,与上面设置相同>
  .Subject = "メールアドレスのご確認"                    <邮件主题>
  .htmlBody = "TEST -- cdo.message"               <邮件内容>
  .Send
  End With
  
  Set Fields = Nothing
  Set objMessage = Nothing
  Set objConfig = Nothing

通过例子看来,很简单吧,希望能帮到大家,调整邮件乱码的问题主要通过.bodypart.charset这个属性即可.

 

原载: No.1网络工作室 http://www.noonenet.cn/
版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。否则将追究法律责任。


Tags:CDO.Message使用详细介绍,asp jmail发送邮件乱码
同类文章:
· js控制div及网页相关属性的代码
· 数据库连接超时错误解决 - 80040e31、80004005
· SQL数据库常用命令-创建,删除表-添加,修改,删除字段
· 要连接到此服务器,必须使用SQL Server Management Studio或(SMO)
· 购买ms sql空间,连接远程ms sql详解
返回新闻列表
top
本站关键字:大连网站制作 - 大连网站建设 - 大连网页制作
CopyRight © 2009-2012 No.1网络工作室 All Rights Reserved  sitemap
地址:大连市甘井子区哲林北园29号 电话:13889684613 E-mail:biz@noonenet.cn QQ:1050706570
logo