Domino代理中流的简单应用

来源:互联网 发布:淘宝远程电脑出租 编辑:程序博客网 时间:2024/06/05 10:18
 Sub Initialize
 On Error Goto a
 
 Dim session As New NotesSession
 
 Dim stream As NotesStream 
 Set stream = session.CreateStream
 
 Dim strHTML As String
 
 strpath = "D:\111.html"
 
 strHTML = "<HTML><body><p>1111111111</p></body></HTML>"
 
 
 If Not stream.open(strpath,"GB2312") Then
  
  Msgbox "111111111111112222 "
  
 Else
  
 End If
 
 
 Call stream.writetext(strHTML)
 Call stream.Close()
 
 Exit Sub
a:
 Msgbox "错误在代理ag_liu的第"  & Erl & "行,描述---:" & Error
End Sub