关闭

Lotus附件判空问题

1197人阅读 评论(0) 收藏 举报
 
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
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:85566次
    • 积分:1305
    • 等级:
    • 排名:千里之外
    • 原创:38篇
    • 转载:16篇
    • 译文:0篇
    • 评论:14条
    最新评论
    恋猪の明