首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

拜求高手,这个CDO发送邮件,邮件收到后发现,正文(在text1中输入)中的中文字符会全部变成问号?(英文字符没有关问题的),如何解决

2012-01-28 
拜求高手,这个CDO发送邮件,邮件收到后发现,正文(在text1中输入)中的中文字符会全部变成问号???(英文字符没

拜求高手,这个CDO发送邮件,邮件收到后发现,正文(在text1中输入)中的中文字符会全部变成问号???(英文字符没问题的),怎么解决?
On Error Resume Next

  Dim namespace, email
  namespace = "http://schemas.microsoft.com/cdo/configuration/"
  Set email = CreateObject("CDO.Message")
  email.From = "111111111111111111@qq.com" '发址
  email.To = "139@139.com" '收址
  email.Subject = "11111111111" '邮件主题
  email.TextBody = Text1 '邮件正文在text1中输入
  With email.Configuration.Fields
  .Item(namespace & "sendusing") = 2
  .Item(namespace & "smtpserver") = "smtp.qq.com" '服务器址
  .Item(namespace & "smtpserverport") = 25
  .Item(namespace & "smtpauthenticate") = 1
  .Item(namespace & "sendusername") = "11111111111111111" '发人户名
  .Item(namespace & "sendpassword") = "11111111111111111" '发人密
  .Update
  End With
  email.Send
  Set email = Nothing
MsgBox "已发送"
-----------------------------
多谢!!

[解决办法]
应该是系统语言设置问题

热点排行