回复 12# gavid0124 我在webQuerySave里面判断是不是domino能不能不识别,不能识别就不给用户保存。 Dim result As VariantDim fileName As Stringresult = Evaluate({@AttachmentNames},doc)For i=0 To UBound(Result)fileName=Result(i)If Len(fileName) =0...
显示全部
回复 12# gavid0124 我在webQuerySave里面判断是不是domino能不能不识别,不能识别就不给用户保存。
Dim result As Variant
Dim fileName As String
result = Evaluate({@AttachmentNames},doc)
For i=0 To UBound(Result)
fileName=Result(i)
If Len(fileName) =0 Then
Else
If doc.HasEmbedded Then
Set newObject = doc.GetAttachment(fileName)
If newObject Is Nothing Then
valid3 = False
End If
End If
End If
Next
通知用户附件不合法
If valid3=False Then
Print ||
end if
收起