将 Outlook 附件拖放到 Access 表单中

问题描述

我的老板希望能够将收到的 Outlook 电子邮件中的 PDF 附件拖动到 Access 表单上的控件中。最终目标是将文件保存在中央文件夹中并使用超链接显示其位置,但首先我必须学习如何将附件从电子邮件拖放到 Access 表单中。

我们将分发 Access 前端,但我很确定我无法在 Outlook 端进行任何编程。

我了解到标准 VBA 控件不支持拖放,但 ActiveX 控件支持。我制作了一个表单并添加一个“Microsoft Forms 2.0 TextBox”,但是当将文件从资源管理器拖到表单上时,我得到了一个圆圈和斜线符号,这意味着它没有被接受。

我怀疑有一些我不理解的关于拖放的非常基本的东西。

编辑:按照 Mathieu 的建议,我添加一个用户表单。当我将文档拖过它时,BeforeDragOver 事件会触发。这是我第一次对拖拽做出任何反应!

我还尝试了此处的代码BeforeDragOver and BeforeDropOrPaste events VBA。它按预期工作。

现在有人可以解释如何使其适应捕获外部文件吗?我怀疑在这方面: Private Sub Image1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean,ByVal Action As MSForms.fmAction,ByVal Data As MSForms.DataObject,ByVal X As Single,ByVal Y As Single,ByVal Effect As MSForms.ReturnEffect,ByVal Shift As Integer)

...该文件将在 ByVal Data As MSForms.DataObject 部分中标识,但我需要提取其位置或其他内容....

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)