Lotus附件判空问题
 
Call uidoc.save
       Set rtitem = doc.GetFirstItem( "rhtAttachment" )
       If ( rtitem.Type = RICHTEXT ) Then
              If Isarray(rtitem.EmbeddedObjects) Then
                     Forall o In rtitem.EmbeddedObjects
                            If o.Type = EMBED_ATTACHMENT Then
                                         Call o.ExtractFile( "c:/samples/" & o.Source )
                                         'Call o.Remove
                                         'Call doc.Save( False, True )
                            End If
                     End Forall
              End If
       End If
阅读更多
文章标签: lotus c
个人分类: Lotus/Domino开发
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

Lotus附件判空问题

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭