Question

我想在MS Outlook 2007中创建自定义弹出式提醒，单击＆＃34;发送＆＃34;按钮。它应该有两个选择：是和否。点击＆＃34;是＆＃34;，我希望系统打开特定的Excel工作表。

这可以通过在我的Outlook桌面客户端添加VBA代码片段来实现吗？我不知道如何实现这一目标。任何领导都表示赞赏。

Answer 1

使用 Application.ItemSend Event 和简单 MsgBox Function

另请查看此答案 Finding a workbook in one of multiple Excel instances

示例代码位于 ThisOutlookSession

下

Public WithEvents olApp As Outlook.Application

Private Sub Application_Startup()
    Set olApp = Outlook.Application
End Sub

Private Sub olApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xlApp As Excel.Application
    Dim xlBook As Workbook
    Dim Prompt As String

    Prompt = "Open Excel File?"

    If MsgBox(Prompt, vbYesNo + vbQuestion, _
                            "Sample") = vbNo Then
        Cancel = True
    Else
        Set xlApp = New Excel.Application
        Set xlBook = xlApp.Workbooks.Open( _
                               "C:\Temp\Temp.xlsm")
        xlApp.Visible = True

    End If

    Set xlApp = Nothing
    Set Book = Nothing
End Sub

MS Outlook 2007中的VBA代码用于创建自定义弹出警报

1 个答案: