Aplikácia Outlook Add-In Application.ItemSend nie je spustená - vb.net, vsto, outlook-addin

Pracujem na doplnku, ktorý beží po odoslaní e-mailuje odoslaná. Ak správa obsahuje konkrétny text, zruší odoslanie správy a presunie ju do konceptov. Táto funkcia funguje pri odosielaní e-mailov priamo z aplikácie Outlook, ale nespúšťa sa, keď je e-mail vygenerovaný iným programom a odoslaný cez Outlook. V takom prípade sa e-mail po niekoľko sekúnd dostane do priečinka Pošta na odoslanie a pošle ako normálne.

Private Sub OnItemSend(Item As System.Object, ByRef Cancel As Boolean) _
Handles Application.ItemSend


Dim mail As Outlook.MailItem = TryCast(Item, Outlook.MailItem)
Dim myNameSpace As Outlook.NameSpace
Dim myDestFolder As Outlook.Folder
Dim mydrafts As Outlook.Folder
myNameSpace = Application.GetNamespace("MAPI")
mydrafts = myNameSpace.GetDefaultFolder(OlDefaultFolders.olFolderDrafts)
myDestFolder = mydrafts
If InStr(mail.Body, "Message") = 1 Then

Cancel = True
mail.Move(myDestFolder)



End If


End Sub

odpovede:

Aký je druhý program? Ak je správa odoslaná pomocou rozšíreného rozhrania MAPI, Application.ItemSend nebude strieľať.