问题描述
我的老板希望能够将收到的 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 (将#修改为@)