Notes文档中附件批量导出到本地系统

最新推荐文章于 2024-05-27 22:59:39 发布

LCpluto

最新推荐文章于 2024-05-27 22:59:39 发布

阅读量2.9k

点赞数

分类专栏： louts开发基础

本文链接：https://blog.youkuaiyun.com/liuchang__/article/details/54616145

版权

该脚本使用VBA在Notes应用程序中批量导出所有未处理文档中的附件。用户通过浏览对话框选择保存目录，然后脚本从Body字段提取并保存每个文档的附件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Const BIF_RETURNONLYFSDIRS = &H1
Const BIF_DONTGOBELOWDOMAIN = &H2
Const BIF_STATUSTEXT = &H4
Const BIF_RETURNFSANCESTORS = &H8
Const BIF_BROWSEFORCOMPUTER = &H1000
Const BIF_BROWSEFORPRINTER = &H2000
Const MAX_PATH = 260

Declare Function SHGetPathFromIDList Lib "shell32" Alias "SHGetPathFromIDListA"
(ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32" Alias "SHBrowseForFolderA"
(lpBrowseInfo As BROWSEINFO) As Long
Declare Sub CoTaskMemFree Lib "o