Discussion :

[IronBibs]

Bonjour,

J'ai cherché depuis 4h sur le forum et sur google comment créer un dossier en VBA pour outlook 2007. Le but de la manipulation est de déplacé tous les e-mails envoyés ayant un subject précis dans un nouveau dossier comportant la date du jour.

Mon problème est le suivant pour créer un dossier "test" : quand je compile j'ai une error 429 activeX sur ma ligne :

Code :

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

 Set monOutlook = CreateObject("Outlook.Application")

.
J'ai déjà vérifié, j'ai Microsoft Outlook 12.0 Object Library de coché dans les préférences de VBA.
Il y a une autre solution que de passer par Outlook.Application ?

Merci bien,

Ironbibs

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

As-tu jeté un coup d'œil à la FAQ Outlook ?

Car tu pourras y trouver des choses comme cela : http://outlook.developpez.com/faq/in...A_CreateFolder

Philippe

[IronBibs]

Bonjour,

Oui, Effectivement comme marqué dans mon post précédent j'ai déjà vu mais ma question était de savoir si on pouvais créer un nouveau dossier sans passer par Outlook.application... Or ton lien m'envoye sur un code passant par la déclaration avec Outllook.applciation.

Merci bien

[Invité]

Re

si tu veux créer un dossier dans OutLook (attention, OutLook et pas le disque dur), il faut bien instancier l'objet OutLook application.

Je ne comprends pas bien ton problème.

Philippe

[IronBibs]

Re

si tu veux créer un dossier dans OutLook (attention, OutLook et pas le disque dur), il faut bien instancier l'objet OutLook application.

Je ne comprends pas bien ton problème.

Philippe

Bah mon problème est le suivant, en instanciant l'objet Outlook.Application j'ai un message d'erreur lors du débeugage à ce niveau la : error 429 Active X.
Donc vu que je vois pas comment résoudre cette erreur je pensais qu'on pouvait créer le dossier d'une autre manière sans instancier un objet Outlook.Application.

Merci de ta réponse,

[Invité]

Re

Comment as-tu déclaré monOutlook ?

Philippe

[IronBibs]

Voici mon bout de code :

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

Maintenant, je viens d'essayer le code qu'il y a dans la FAQ en remplacant et cela marche....

Peux-tu comme même me dire ce qui n'allait pas dans mon ancien code que je comprenne ce qui clochait ?

Merci beaucoup pour ton aide.

Yann