Question

J'écris une addition à modifier la signature des courriers composes.J'ai essayé des sous-inspecteurs privés_newinspector.Cela ne fonctionne pas car au moment où cela est invoqué, la signature n'a pas été ajoutée au courrier, mais le corps du courrier est le corps du courrier du courrier original que je réponds. Comment puis-je invoquer mon code après que la signature ait été ajoutée?

J'ai essayé

Private Sub inspectors_activate(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector

et

Private Sub inspectors_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector

Les deux feu avant la signature sont ajoutés (j'ai testé cela en ajoutant une msgbox (mailItem.body) dans le sous, je peux voir que le corps est identique au courrier que je réponds aussi.

éditer L'activateur - événement semble ne pas fonctionner - j'ai essayé:

    Public Sub inspector_activate(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector)_
       Handles inspector.activate
        Dim mailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, Outlook.MailItem)
        Msgbox("test activate has fired")
        If Not TypeOf MailItem Is Outlook.MailItem Then Exit Sub
     end sub

Thanks
Max

Était-ce utile?

La solution

Essayez d'utiliser l'inspecteur.Activate événement - il incendie une fois que l'inspecteur est visible.

Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow
scroll top