Regel om mail direct te verwijderen, zonder tussenkomst 'Verwijderde Items'.

[peter789]

LS.,


is er een manier om via een Regel mail direct te verwijderen, zonder tussenkomst 'Verwijderde Items'. Sommige mail wil je niet eens in je Ongewenste mail of Verwijderde mail hebben.

Office 13

Dank.

 

[edmoor]

Daar heb je een stukje VBA voor nodig in de ThisOutlookSession module.
Bijvoorbeeld dit, waar je iemand@ongewenst.com wijzigt in de afzender van de ongewenst mail.

Private WithEvents myOlApp As Outlook.Application
Private WithEvents inboxItems As Outlook.Items

'------------------------------------------------------------
Private Sub inboxItems_ItemAdd(ByVal Item As Object)
    On Error GoTo ErrorHandler

    If TypeName(Item) = "MailItem" Then
        If Item.SenderEmailAddress = "iemand@ongewenst.com" Then
            Item.Delete
            RemoveItem
        End If
    End If
 
ExitNewItem:
        Exit Sub
 
ErrorHandler:
        MsgBox Err.Number & " - " & Err.Description
        Resume ExitNewItem
End Sub

'------------------------------------------------------------
Sub RemoveItem()
    'Graham Mayor - http://www.gmayor.com - Last updated - 01 Jan 2018
    'Modified by edmoor - 30 Jan 2025
    Dim olItem As Object
    Dim lngDel As Long
    Dim objDeletedFolder As Folder
 
    Set objDeletedFolder = Session.GetDefaultFolder(olFolderDeletedItems)
    On Error Resume Next
    Set olItem = ActiveExplorer.Selection.Item(1)
    olItem.Delete
    For lngDel = objDeletedFolder.Items.Count To 1 Step -1
        With objDeletedFolder.Items(lngDel)
            'If .Subject = strSubject And .CreationTime = strDate Then
                objDeletedFolder.Items(lngDel).Delete
                Exit For
            'End If
        End With
    Next lngDel

lbl_Exit:
    Set objDeletedFolder = Nothing
    Set olItem = Nothing
End Sub

 

[peter789]

Wow, dank.

Voor mij veeeel te ingewikkeld, denk ik, of is er een uitleg?

 

[edmoor]

Druk in Outlook op ALT-F11, dan zit je in de VBA editor.
Dubbelklik dan in het venster linksboven op ThisOutlookSession.
Plak bovenstaande code erin en pas het email adres aan.
Sluit Outlook en klik Ja om de wijzigingen op te slaan.
Start Outlook dan weer en test.
Hier werkt het prima.

 

[OctaFish]

Volgens mij kan je dat gewoon met een ingebouwde regel doen. Ik zou daar in ieder geval niet te moeilijk over doen .



Prullenbak lijkt mij prima, en zeker als je die bij afsluiten van Outlook leeg laat maken. Dan heb je echt geen 'last' van mailtjes. Zet ook de weergave van prullenbak en Junkmail uit (Knopo <Indeling>, <Leesvenster>, <Uit> zodat je alleen de afzender en onderwerp ziet in die mappen, als je toch wilt zien wat er in staat. Een mail zien in het leesvenster staat namelijk gelijk aan het openen van de mail. En dát an sich is al weer genoeg om virussen etc. te triggeren.

 

[edmoor]

Zojuist Office 2013 geïnstalleerd.
Ook daarin kan je bij Regels opgeven dat een bericht defintief moet worden verwijderd.
Dan is dus die code niet nodig.
Tenzij je het leuk vind om ermee te spelen