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
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
1417
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
