在INSTANT MESSAGING 开发中为什么SENDTEXT 不能传中文?
代码如下:
Dim strTemp As String
Dim i As Integer
Dim strMsgHeader As String = "Mime-Version: 1.0" & vbCrLf & "Content-Type: text/plain; charset=utf-8" & vbCrLf & vbCrLf
'Tasks
SqlDa.SelectCommand.CommandText = "SELECT tasks.*,users.msn,users.loginname,users.password from tasks,users where tasks.workmen=users.userid" + " and tasks.revert is null order by tasks.workmen desc"
SqlDa.Fill(Ds1, "calendar1")
If Ds1.Tables("calendar1").Rows.Count > 0 Then
For i = 0 To Ds1.Tables("calendar1").Rows.Count - 1
strTemp = "来自综合信息平台信息:" + vbCrLf
strTemp += "您有 1 个新任务!" + vbCrLf + Ds1.Tables("calendar1").Rows(i).Item("title") + " (来自:" + Ds1.Tables("calendar1").Rows(i).Item("creator") + " " + CDate(Ds1.Tables("calendar1").Rows(i).Item("createdate")).ToString + ")" + vbCrLf
strTemp += strWebsite + "/webmanager.net/login.aspx?user=" + Ds1.Tables("calendar1").Rows(i).Item("loginname") + "&pw=" + Ds1.Tables("calendar1").Rows(i).Item("password") + "&mac=无"
'发MSN
If Ds1.Tables("calendar1").Rows(i).Item("msn").ToString.Trim <> "" Then
imSession = MsgrSVC.CreateIMSession(Ds1.Tables("calendar1").Rows(i).Item("msn").ToString)
imSession.SendText(strMsgHeader, strTemp, MSIMCliSDKLib.IM_MSG_TYPE.IM_MSG_TYPE_ALL_RESULTS)
End If
Next
End If
Ds1.Tables("calendar1").Clear()
Ds1.Tables("calendar1").Dispose()