Code VBA dans MS Outlook 2007 pour créer une alerte contextuelle personnalisée

Question

Je souhaite créer une alerte contextuelle personnalisée dans MS Outlook 2007, qui s'affiche lorsque vous cliquez sur le bouton "Envoyer". Il devrait avoir 2 choix: Oui et non. En cliquant sur "Oui", je veux que le système ouvre une feuille Excel particulière. Est-ce possible en ajoutant un extrait de code VBA à mon client de bureau Outlook? Je ne sais pas comment y parvenir. Tout plomb est apprécié.

Answer 1

travail avec Application.ItemSend Event et simple MsgBox Function

Regardez aussi cette réponse Finding a workbook in one of multiple Excel instances

Exemple de code passe sous 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