这个实例是现有可用的例子中拷贝出来。首先在表单中必须有ole的关键系统域集合(OLE Controlfields)三个，它们分别是      “$OLEObjRichTextField”的默认值："OLEBody"；      “$OLEObjField”的默认值："Oleobject"；      “$OLEObjProgID”的默认值："Word.Document"；另外有

Set xmldoc = CreateObject("Microsoft.XMLHTTP")   Set xmldoc = CreateObject(Msxml2.XMLHTTP)  If xmldoc Is Nothing Then  Call RecordErrorLog("SendWeather_Agent","Initialize",Erl,Err,"创建xmlhttp对象错误!")  

function SearchReplica() as VariantOn Error Goto handle Dim uws As New NotesUIWorkspace Dim ss As New NotesSession Dim dbdir As NotesDbDirectory Dim db As NotesDatabase Dim doc As NotesDocument Dim