Automatisch submappen genereren in Outlook

Beste helpers,

In Outlook willen we onder Alle openbare mappen mail laten opslaan onder een specifieke mapstructuur.

Dit kan/mag op 2 manieren worden gerealiseerd:

1) of een addon waarbij je een mail selecteert waarna een knop wordt geselecteerd en een pop-up verschijnt. Na het invoeren van een 8cijferig getal wordt een (sub)map aangemaakt en wordt de gekozen mail onder die map geplaatst.

De structuur van de aan te maken map begint met een jaartal (2012, 2013, 2014) en vervolgens is de structuur telkens gelijk:
0xxx
01xx
010x
0100
0101

etc en dit loopt dan door tot en met 2999.

Voor de verduidelijking zie deze afbeelding http://www.helpmij.nl/forum/attachment.php?attachmentid=206132&d=1394027220

In het voorbeeld begint deze met jaartal 2014 maar een dergelijke structuur willen we ook onder 2013 en verder terug.

OF 2) met een script de bovenstaande mapstructuur vooraf laten genereren waarna mail in de juiste map is te slepen.

Ik ben benieuwd of iemand hierbij kan helpen???

snb zei:

Code:

Sub M_snb()
  With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(4)
    For j = 1 To 4
      .Folders.Add "folder_" & j
    Next
  End With
End Sub

Klik om te vergroten...

:thumb: Dank voor je reactie maar afgezien van een foutmelding (440: kan map niet maken), zal hier niet uit komen wat ik bedoel. Kan ik je wellicht voorzien van nadere toelichting cq het anders uitleggen?

Bekijk svp anders deze boom: zo willen we deze dus ook in de openbare mappen in outlook:

Je kunt gewoon de code van de suggestie even aanpassen hoor.

De code die ik plaatste kun je gebruiken in Word, Excel, Powerpoint, Access.

Nog niet opgelost helaas