E-mail open event?

[Ron001]

VBA’ers

Bestaat er zoiets als een Workbook_Open event maar dan bij het openen van een e-mail?

Misschien domme vraag…

 

[edmoor]

In Outlook bedoel je?

Zie:
https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.open

 

[Ron001]

Yep!

 

[edmoor]

Zie de link die ik plaatste.

 

[Ron001]

Heeft iemand een voorbeeld ofzo, ben niet echt mee met de uitleg van de link...:-(

 

[edmoor]

Dit is een voorbeeld.
Test even welk event je nodig hebt.
Dit is van toepassing op items die nog niet eerder gelezen zijn.

Public WithEvents myItem As Outlook.MailItem

Private Sub Application_ItemLoad(ByVal Item As Object)
    If Item.Class = olMail Then
        Set myItem = Item
    End If
End Sub

Private Sub myItem_BeforeRead()
    MsgBox ("myItem_BeforeRead")
End Sub

Private Sub myItem_Read()
    MsgBox "myItem_read"
End Sub

Private Sub myItem_Open(Cancel As Boolean)
    MsgBox "myItem_Open"
End Sub

 

[Ron001]

Maar waar zet ik dit in? Onder “Algemeen” ?
Hoe roep ik deze op voor een bepaalde e-mail? Want ik heb een heleboel voorgeprogrammeerde e-mails die ook onder “Algemeen” staan?
Hoe weet hij bij welke e-mail deze macro moet gelden?

Ben nog niet echt mee…

 

[edmoor]

Zo:


En je roept die niet op.
Het zijn event routines.
Die worden automatisch uitgevoerd bij een bepaalde gebeurtenis in Outlook.