以管理员身份运行实例

Question

当尝试创建 Outlook 实例时，UAC 阻止了此过程。我知道在 windows 7 上 UAC 可以更改，但 windows 8 不能完全删除。这就是我需要管理员权限的原因。

        Try
            ' Get running outlook instance (if there is)
            outlook = GetObject(Nothing, OUTLOOK_CLASS)
        Catch ex As Exception
        End Try

        ' No running instance? then create new instance of outlook
        If IsNothing(outlook) = True Then
            Try
                outlook = CreateObject(OUTLOOK_CLASS)
            Catch ex As Exception
            End Try
        End If

        ' Show error message if outlook is not installed
        If IsNothing(outlook) = True Then
            MsgBox(String.Format(My.Resources.ErrorEmailUnableToSend, vbCrLf, My.Settings.EmailNHD), MsgBoxStyle.Exclamation, My.Application.Info.Title)
            Exit Try
        End If

        ' Create the email message
        email = outlook.CreateItem(mailItem)

Answer 1

COM 系统将拒绝在不同安全上下文中的 2 个 COM 对象之间编组调用。确保您的应用程序和 Outlook 在相同的上下文中运行。

Answer 2

您需要修改 Manifest 文件，以便应用程序默认以管理员模式启动

Manifest 文件是 VB 项目中的一个文件，它包含有关文件分发内容的信息。它还允许应用程序声明它需要运行的特权级别，以及它是否需要提升。

1. 打开VB.NET项目并点击Project > Add New Item

2. 将打开一个对话框。选择Application Manifest File，然后点击Add。

3. 打开此清单文件并查找以下代码：

<requestedExecutionLevel level="asInvoker" uiAcces="false" />

4. 将asInvoker 替换为requireAdministrator 或highestAvailable

<requestedExecutionLevel level="highestAvailable" uiAcces="false" />

这将使应用程序以最高可用权限运行。