Dag Molly,
alvast bedankt om het te willen nakijken , ik ga dat zeker uittesten !
maar momenteel zit ik met andere "zorgen" : men is komen digitale meters plaatsen , zowel voor aardgas als elektriciteit en water...
nu mag ik mijn ganse bestand , waar ik mijn meterstanden ingeef , daarnaar gaan aanpassen....
dus nu eerst dat.
Mvg,
Arnold.

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