如何将 MS Outlook 2007 对话框从 MS Access 2007 置于最前面？

发布于 2024-11-01 11:03:01 字数 523 浏览 2 评论 0原文

我试图允许 MS Access 2007 数据库的用户从 MS Outlook GAL 中选择另一个用户。我目前有打开 Outlook 选择名称对话框的工作代码，但它隐藏在数据库窗口后面，直到用户单击 Outlook。

如何在 VBA 中使对话框对用户可见？

这是我的对话框代码（拼写错误是手动复制的结果 - 该代码位于气隙网络上）：

set OLApp = CreateObject("Outlook.Application")
set OLDialog = OLApp.Session.GetSelectNamesDialog
with OLDialog
    .SetDefaultDisplayMode olDefaultSingleName
    if .Display then
        if OLDialog.Recipients.Count then
            theUser = OLDialog.Recipients.Item(1)
        end if
    end if
end with

原文

I am attempting to allow a user of a MS Access 2007 database to select another user from the MS Outlook GAL. I currently have working code that opens the Outlook Select Names Dialog, but it hides behind the database window until a user clicks on Outlook.

How do I make the dialog visible to the user in VBA?

Here's my code for the dialog (typos are a result of a manual copy--this code is on an airgapped network):

set OLApp = CreateObject("Outlook.Application")
set OLDialog = OLApp.Session.GetSelectNamesDialog
with OLDialog
    .SetDefaultDisplayMode olDefaultSingleName
    if .Display then
        if OLDialog.Recipients.Count then
            theUser = OLDialog.Recipients.Item(1)
        end if
    end if
end with

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

万人眼中万个我 2024-11-08 11:03:01

我通过在 .SetDefaultDisplayMode olDefaultSingleName 之后添加以下行来完成这项工作：

OLApp.ActiveWindow.Activate

I made this work by adding the following line after .SetDefaultDisplayMode olDefaultSingleName:

OLApp.ActiveWindow.Activate

回复收藏 0 原文

苏别ゝ 2024-11-08 11:03:01

非常感谢兰德尔！我还发现，如果 Outlook 没有实际打开，则不起作用，因为 ActiveWindow 将为空，因此像这样将其包装起来也有帮助：

If Not (oApp.ActiveWindow Is Nothing) Then  'only if there's a window
            oApp.ActiveWindow.Activate  'make sure outlook comes to foreground first
End If

Thanks alot Randall! I've also found that if Outlook isn't actually opened that won't work because ActiveWindow will be null, so wrapping it up like this helps too:

If Not (oApp.ActiveWindow Is Nothing) Then  'only if there's a window
            oApp.ActiveWindow.Activate  'make sure outlook comes to foreground first
End If

回复收藏 0 原文

~没有更多了~