Dag Arnold,
iemand de nodige kennis om de code eventueel aan te passen naar onze beide accounts ?
Absoluut niet

, dus ik was er wijselijk afgebleven.
Maar nu ik merk dat je helemaal geen reacties krijgt ben ik toch eens wat gaan proberen. In mijn Outlook zit maar één account, dus testen valt nogal tegen
In elk geval heb ik de indruk dat je het gedeelte
Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk)
plus de code eronder nogmaals zal moeten uitvoeren, maar dan beginnend met iets in de stijl van
Set Account = Application.Session.Folders("Mw. Montagnard")
Set objJunkFolder = Account.Folders("ongewenste e-mail")
Wel minstens één en mogelijk twee van de teksten tussen aanhalingstekens aanpassen
Als je dan met F8 door de code gaat merk je wel op een veilige manier of het goed zit. Succes !
O ja, ik zag net nog dat je in die tweede ronde 'objDeletedFolder' ook anders zal moeten definiëren, maar dat zal iets gelijkaardigs worden.
Mvg,
Molly