CDO.Message使用详细介绍

以前总是使用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这个属性即可.

引文来源 CDO.Message使用详细介绍

CDO.Message使用详细介绍

近期文章

分类