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


Sunnybat,

fijn dat je het zelf opgelost hebt.

Mag ik je er nogmaals op wijzen dat iets als Cel P niet bestaat. Je spreekt over kolommen, noem het dan ook Kolom F.

En nogmaals, zet je code tussen code-tags: Selecteer je code en druk op de knop (#) "Voeg code toe"( in de knoppenbalk boven je bericht)

Dank je wel.

SoftAid              

Hoi,

Klein vraagje

ik gebruik dit om na een cvs te hebben opgeslagen om de bepaalde cellen leeg te maken

ActiveSheet.Range("A2:O2000").Delete

het werkt perfect alleen heb ik in Cel P formules staan die worden dan verplaatst na Cel A
is het misschien mogelijk om de waarde die in cel P staan daar te laten staan, dus niet worden verplaatst na cel A

hello
lukt niet geen toegang gekregen
toch bedankt voor de medewerking
fons

als het soms wel lukt en soms niet is het natuurlijk moeilijk om een reden te vinden waarom.....
misschien blokkeert er "soms" ergens iets de verbinding ?
ik zie niet direct een oplossing.....werk je met "IMAP" dan zou je kunnen overwegen om eens een nieuw profiel aan te maken , hoe je dat moet doen is genoeg om het web te vinden...
Mvg,
Arnold.