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

Question

我想在MS Outlook 2007中创建一个自定义弹出警报，单击“发送”按钮时出现。它应该有2个选择：是和否。点击“是”，我希望系统打开一个特定的Excel表格。

这是可能的通过添加一个VBA代码片段到我的Outlook桌面客户端？我不知道如何去实现这一点。任何领先的赞赏。

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