zoukankan      html  css  js  c++  java
  • domino文件拆离数据库,放入指定目录

    domino文件拆离数据库,放入指定目录的LS代码:

    Sub Initialize    
             On Error Goto MsgError
             Dim session As New NotesSession
           Dim doc As NotesDocument
              Dim FilePath As String
              Dim fileNames As Variant
             Dim objEmbed As NotesEmbeddedObject
              
            Set doc=session.DocumentContext
             fileNames=Evaluate("@AttachmentNames",doc)  '获取文档所有附件名称
             filePath=session.GetEnvironmentString("Directory")  '环境变量
             If(Isarray(fileNames)) Then
                     Forall fileName In fileNames
                           filePath=filePath+"\"+fileName
                             Set objEmbed=doc.GetAttachment(filename)
                           Call objEmbed.ExtractFile(filePath)'将文档中的附件导出
                       Call objEmbed.Remove() '删除文档中的附件
               End Forall
           End If
           Exit Sub

    MsgError:
            Msgbox "Error:"+Error$+" onLine:"+Cstr(Erl)
    End Sub
  • 相关阅读:
    概率论
    计算机网络基础
    数据库 数据库管理系统 数据库系统
    第二次冲刺总结
    Beta版总结会议
    Beta阶段项目总结
    beta版本“足够好”/测试矩阵
    zencart批量更新后台邮箱地址sql
    php首页定向到内页代码
    用.htaccess 禁止IP访问
  • 原文地址:https://www.cnblogs.com/hannover/p/2122501.html
Copyright © 2011-2022 走看看