mám takovou představu, že bych odchytával události při příchodu nové zprávy a při odeslání zprávy v Outlooku. Při těchto akcích bych si zapisoval nějaké údaje jako odesílatel, čas přijetí / odeslání, předmět do nějakého souboru pro další zpracování.
Našel jsem postup, kdy se pomocí tohoto kódu odchytne událost při kliknutí na odeslání.
- Kód: Vybrat vše
Public WithEvents myOlApp As Outlook.Application
Public Sub Initialize_handler()
Set myItem = Application.ActiveInspector.CurrentItem
End Sub
Private Sub myOlApp_ItemSend(Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "Are you sure you want to send " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then
Cancel = True
End If
End Sub
Když nyní kliknu na tlačítko odeslání, hodí mi to chybu:
Procedure declaration does not match description of event or procedure having same name
A pošta se naštěstí odešle. Ale samozřejmě se nic jiného nestane. Nevíte, co dělám špatně? Už nevím, co s tím. Díky za radu.