lotus消息处理

Set xmldoc = CreateObject("Microsoft.XMLHTTP") 
 
 'Set xmldoc = CreateObject(Msxml2.XMLHTTP)
 
 If xmldoc Is Nothing Then
  Call RecordErrorLog("SendWeather_Agent","Initialize",Erl,Err,"创建xmlhttp对象错误!")
  Exit Sub
 End If
 
 url ="http://www.hzqx.com/gzhfw/dqyb.asp"
 Call xmldoc.open("GET",url,False)  
 Call xmldoc.setRequestHeader("Content-Type", "text/html; charset=UTF-8")
 
 xmldoc.send(Null)
 
 If xmldoc.readyState = 4 Then   
  'strHtml = xmldoc.ResponseText
  strHtml = bytes2BSTR(xmldoc.ResponseBody)
  Msgbox strhtml
  strhtml = Strright(strhtml,"气象台")
  strhtml = Strleft(strhtml,"更新更快的天气信息")
  strhtml = Strright(strhtml,"：")
  'Msgbox strhtml
 End If
 
 Set xmldoc = Nothing
 strsubject = strhtml

 

中文处理函数

Function bytes2BSTR(vIn) 
 strReturn = "" 
 For i = 1 To Ubound(vIn) 
  ThisCharCode = vIn(i) 
  If ThisCharCode < 128 Then 
   strReturn = strReturn & Chr(ThisCharCode) 
  Else 
   NextCharCode = vIn(i+1) 
   't = Clng(ThisCharCode) * 256 + Cint(NextCharCode)
   strReturn = strReturn & Chr(Clng(ThisCharCode) * 256 + Cint(NextCharCode)) 
   i = i + 1 
  End If 
 Next 
 bytes2BSTR = strReturn 
End Function