creer un dossier dans outlook par VBA Excel [Résolu]

[guy68]

Bonjour,

Je souhaite que ma macro VBA (excel) génére automatiquement un dossier (folder) sous la racine "Archive folder" (voir pièce jointe).

Merci
Guy68

[Oliv-]

Salut
Et Où bloques tu ?

[guy68]

Je bloque à l'adresse de mon dossier.
Pour le dossier en question j'ai l'adresse : outlook:\\Archive Folders
Donc j'ai fait un truc du genre

Code :

mkdir "outlook:\\Archive Folders\" & "nouveau_dossier"

Et ça marche pas.

T'as une idée ?

[Oliv-]

mkdir c'est pour créer dans un dossier WINDOWS SUR UN DISQUE.

essaye pluto avec :

Code :

1
2
3
4
5
6
Dim NS As NameSpace
    Set NS = Application.GetNamespace("MAPI")
    Dim dossier As MAPIFolder
    Set dossier = NS.Folders("Archive Folders")
    Dim myNewFolder As MAPIFolder
    'Set myNewFolder = dossier.Folders.add("Test")

[guy68]

Salut,

La macro bloque sur Namespace.
C'est une routine que je veux faire à partir d'excel. Je ne sais pas si cela a de l'importance.

a+
guy68

[Laurent CUENET]

Bonjour,


ajoute la référence à Outlook.

[Oliv-]

Un peu mon neveu

Si tu designes outlook.application par monOutlook
remplace ainsi

Set NS = monOutlook.GetNamespace("MAPI")

Est ce que cela fonctionne ?

[guy68]

Salut,

Voilà mes lignes de code :

Code :

1
2
3
4
5
6
Dim ns As Namespace
Set ns = monOutlook.GetNamespace("MAPI")
Dim dossier As MAPIFolder
Set dossier = ns.Folders("Archive Folders")
Dim myNewFolder As MAPIFolder
    'Set myNewFolder = dossier.Folders.add("Test")

Pour l'instant sans succès

Il me renvoie l'erreur : user-defined type not defined

a+
Guy68

[Oliv-]

Guy, comme l'a précisé Laurent il faut ajouter une référence ou pas cela dépend du code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
'ajouter une référence dans outils / références / "microsoft outlook xx.0 object library"
Dim monOutlook
Set monOutlook = Outlook.Application
Dim ns As Namespace
Set ns = monOutlook.GetNamespace("MAPI")
Dim dossier As MAPIFolder
Set dossier = ns.Folders("Archives Olivier")
Dim myNewFolder As MAPIFolder
Set myNewFolder = dossier.Folders.Add("Test")
 
End Sub

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub test_latebinding()
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("Archives Olivier")
Dim myNewFolder  As Object
Set myNewFolder = dossier.Folders.Add("Test")
 
End Sub

[guy68]

Salut,

J'ai utilisé les lignes suivantes :

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("outlook:\\Archive Folders\")
Dim myNewFolder  As Object
Set myNewFolder = dossier.Folders.Add("Test")

ça passe jusqu'à la ligne de l'adresse du dossier (outlook:\\Archive Folders\) dans lequel je veux créer un nouveau dossier ("Test").
J'ai obtenu cette adresse en rajoutant la bare de menu WEB dans outlook.
J'ai comme l'impression que c'est pas bon.

a+
Guy68

[Oliv-]

Avec la syntaxe de départ cela ne fonctionne pas ?

Code :

Set dossier = NS.Folders("Archive Folders")

moi j'avais mis "Archives Olivier" parce que je n'ai pas de dossier portant le même nom que le tien.

[guy68]

Et en plus ça marche. Génial

Merci Oliv- pour ta collaboration.

A une autre fois.

Guy68