Monthly Archives: December 2009

Sending email with Unicode in subject and content

http://www.cnode.cn/article.asp?id=283 CDO.Message是Windows 2003系统自带的一个邮件发送组件。往往大多数发送邮件都是邮件的内容体乱码,要解决这种问题只需要注意一下内容的编码方式以及为发送邮件的代码指定编码方式。而我遇到的这个问题倒是不常见,邮件的内容倒是没有产生乱码,而标题始终显示乱码。我在网上找了半天的资料也没有看到哪个参数是关于设置标题编码的。 在老沙同学的帮助下,终于找到可以调整标题编码的,在这里记录一下这次成功的经验。 程序代码 Public Sub SendCDO(ByVal IEmail,ByVal ITopic,ByVal ICont) On Error Resume Next Dim objCDO,objConfig,objConfigURL,objCDO_IBodyPart Set objCDO=Server.CreateObject(“CDO.Message”) Set objConfig=Server.CreateObject(“CDO.Configuration”) objConfigURL=”http://schemas.microsoft.com/cdo/configuration/” With objConfig .Fields(objConfigURL&”smtpserverport”)    = 25 .Fields(objConfigURL&”sendusing”)        = 2 .Fields(objConfigURL&”smtpserver”)        = SendServer .Fields(objConfigURL&”smtpauthenticate”)= 1 .Fields(objConfigURL&”sendusername”)    = EmailUser .Fields(objConfigURL&”sendpassword”)    = EmailPass .Fields(objConfigURL&”languagecode”)    = CDO_Language .Fields.Update() End … Continue reading

Posted in Uncategorized | Leave a comment