拜求高手,这个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 "已发送"
-----------------------------
多谢!!
------解决方案--------------------
应该是系统语言设置问题
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 "已发送"
-----------------------------
多谢!!
------解决方案--------------------
应该是系统语言设置问题