creer un dossier dans outlook par VBA Excel

Version imprimable

15/04/2008, 15h44
guy68

creer un dossier dans outlook par VBA Excel

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

bonsoir

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

Code:

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

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:

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