Utilisation des événements Outlook avec l'automatisation

Question

Using Events with Automation explique comment utiliser Outlook Events avec Automation. Je ne comprends pas cependant comment implémenter ce code dans mon projet.

Je veux utiliser la méthode InspectorBeforeMinimizeEvent comme expliqué dans Inspector.BeforeMinimize Event (Outlook)

Chaque fois que l'utilisateur se déplace/redimensionne/maximise/minimise l'inspecteur manuellement puis le MessageBox devrait apparaître.

code suivant pour les tests:

Imports Microsoft.Office.Interop 

Public Class Form1 

    Public WithEvents myIns As Outlook.Inspector 

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load 

     Process.Start("Outlook.exe") 
     Threading.Thread.Sleep(3000) 
     Dim olApp As New Outlook.Application 

     Dim myMailItem As Outlook.MailItem 
     myMailItem = CType(olApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem) 
     myMailItem.Subject = "Hello" 
     myMailItem.To = "anybody@example.com" 
     myMailItem.Body = "Hi there..." 

     Dim myIns As Outlook.Inspector 
     myIns = myMailItem.GetInspector 

     myIns.Display(False) 

     Dim myWord As Word.Document 
     myWord = CType(myIns.WordEditor, Word.Document) 

     Dim mySel As Word.Selection 
     mySel = myWord.Application.Selection 

     Threading.Thread.Sleep(10000) 

     'Following line just for testing. Normally following line doesnt exist in my original code. The real scenario is the user minimizes the inspector manually. 
     myIns.WindowState = Outlook.OlWindowState.olMinimized 

     myWord.InlineShapes.AddPicture(FileName:="C:\Example.png", LinkToFile:=False, SaveWithDocument:=True, Range:=mySel.GoTo(What:=Word.WdGoToItem.wdGoToLine, Which:=Word.WdGoToDirection.wdGoToLast, Count:=-4)) 

     'myMailItem.Send() 

    End Sub 

End Class 

Code de l'événement:

Private Sub myIns_BeforeMinimize(Cancel As Boolean) 
    MessageBox.Show("You are minimizing this inspector.", "Title", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly) 
End Sub 

Answer 1

Pour que cela fonctionne, vous devez ajouter le code gestionnaire pour Activate et chaque fois que le MailItem est activé, vous définissez le WindowState:

Private Sub myIns_Activate() Handles myIns.Activate 
    myIns.WindowState = Outlook.OlWindowState.olMinimized 
End Sub 

Je supprimerais aussi ces lignes:

Process.Start("Outlook.exe") 
Threading.Thread.Sleep(3000) 

Dim myIns As Outlook.Inspector 

Threading.Thread.Sleep(10000) 

Vous n'avez pas besoin Process.Start comme cela est manipulé avec Dim olApp As New Outlook.Application. Vous n'avez pas non plus besoin de Dim myIns As Outlook.Inspector car cela est géré avec Public WithEvents myIns As Outlook.Inspector. J'apprécie les Threading.Thread.Sleep lignes peuvent être à des fins de test.

Votre code ressemblerait à quelque chose comme ceci:

Imports Microsoft.Office.Interop 

Public Class Form1 

    Public WithEvents myIns As Outlook.Inspector 

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load 

     Dim olApp As New Outlook.Application 

     Dim myMailItem As Outlook.MailItem = CType(olApp.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem) 
     myMailItem.Subject = "Hello" 
     myMailItem.To = "anybody@example.com" 
     myMailItem.Body = "Hi there..." 

     myIns = myMailItem.GetInspector 
     myIns.Display(False) 

     Dim myWord As Word.Document 
     myWord = CType(myIns.WordEditor, Word.Document) 

     Dim mySel As Word.Selection 
     mySel = myWord.Application.Selection 

     myWord.InlineShapes.AddPicture(FileName:="C:\Example.png", LinkToFile:=False, SaveWithDocument:=True, Range:=mySel.GoTo(What:=Word.WdGoToItem.wdGoToLine, Which:=Word.WdGoToDirection.wdGoToLast, Count:=-4)) 

     myMailItem.Send() 

    End Sub 

    Private Sub myIns_Activate() Handles myIns.Activate 
     myIns.WindowState = Outlook.OlWindowState.olMinimized 
    End Sub 

End Class 

Answer 2

Déclarez une variable pour l'inspecteur d'objets au niveau de catégoriels et au retour de la méthode .GetInspector, alors mettez votre code dans l'événement actuel:

Public WithEvents myIns As Outlook.Inspector 

Private Sub myIns_BeforeMinimize(Cancel As Boolean) 
    'Your code here 
End Sub