Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private WithEvents inboxItems As Outlook.Items
Private Sub Application_Startup()
Dim outlookApp As Outlook.Application
Dim objectNS As Outlook.NameSpace
Set outlookApp = Outlook.Application
Set objectNS = outlookApp.GetNamespace("MAPI")
Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub inboxItems_ItemAdd(ByVal Item As Object)
If TypeName(Item) = "MailItem" Then
If InStr(Item.Subject, "VERWIJDEREN") > 0 Then
Item.UnRead = False
Item.Save
Item.Delete
MsgBox ("Bericht ontvangen en verwijderd")
End If
End If
End Sub
Ook een leek kan op een menu klikken .Dank, maar voor de leek een tikkie te lastig...
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.