Discussion :

[guy68]

Bonjour,

Je désire que ma macro sous VBA Excel me génére un dossier (folder) dans outlook.

Qui peut m'aider ?

a+
Guy68

[SilkyRoad]

bonsoir

cet exemple crée un nouveau sous dossier dans la boite de réception:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub creationDossierDansBoiteReception()
    Dim olApp As Outlook.Application
    Dim olSpace As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olInbox As Outlook.MAPIFolder
 
    Set olApp = New Outlook.Application
    Set olSpace = olApp.GetNamespace("MAPI")
    Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)
    Set olFolder = olInbox.Folders.Add _
        ("nouveau dossier" & Format(Date, "yymmdd"))
 
End Sub

bon week end
michel

[guy68]

Salut michel,

J'ai pas essayé ton code car j'ai eu de l'aide ailleurs et le code suivant marche bien pour moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim monOutlook As Object
Set monOutlook = CreateObject("Outlook.Application")
Dim ns  As Object
Set ns = monOutlook.GetNamespace("MAPI")
Dim dossier As Object
Set dossier = ns.Folders("Archive Folders")
Dim myNewFolder  As Object
Set myNewFolder = dossier.Folders.Add("Test")

En tout cas merci de ta participation.

A+
Guy