Dag,
ik gebruik Outlook van Office , met 2 Outlook accounts , die van mezelf en die van mijn vrouw.
omdat er dagdagelijks nogal wat spam toekomt in onze beide folders "ongewenste e-mail , en dan vooral bij de account van mijn vrouw , ben ik op zoek gegaan om die folder bij het afsluiten van Outlook automatisch te laten ledigen , de folder(s) "verwijderde items" van onze beide accounts worden automatisch geledigd , dat kan je in Outlook instellen bij "opties".
ik heb code gevonden die ik via VBA kon invoegen via een VBA project én dat is gelukt , alleen wordt enkel MIJN folder "ongewenste e-mail" geledigd bij afsluiten , die van mijn vrouw wordt niet geledigd...
iemand de nodige kennis om de code eventueel aan te passen naar onze beide accounts ?
Mvg,
Arnold.
Private Sub Application_Quit()
Dim objJunkFolder As Outlook.Folder
Dim i As Long
Dim objMail As Outlook.MailItem
Dim objDeletedFolder As Outlook.Folder
Dim objItem As Object
Dim objProperty As Outlook.UserProperty
Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk)
For i = objJunkFolder.Items.Count To 1 Step -1
If objJunkFolder.Items(i).Class = olMail Then
Set objMail = objJunkFolder.Items(i)
'Add the specific property to each junk email
objMail.UserProperties.Add "Delete", olText
objMail.Save
'Delete them
objMail.Delete
End If
Next
Set objDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
For Each objItem In objDeletedFolder.Items
'Find out the junk emails in the "Deleted Items" folder
Set objProperty = objItem.UserProperties.Find("Delete")
If TypeName(objProperty) <> "Nothing" Then
'Permanently delete them
objItem.Delete
End If
Next
'Prompt You
MsgBox Chr(34) & "Ongewenste mail" & Chr(34) & " Folder geledigd !", vbExclamation + vbOKOnly
End Sub
