Discussion :

[spm01]

Bonjour à tous,

Je tourne en rond ... alors je sollicite votre aide
Concrètement je souhaite déplacer un mail dans un dossier spécifié lors de l'appel d'une macro.
Le code fonctionnait sur ma BAL personnelle, mais je dois déployer cette macro pour une BAL partagée ...et c'est la ou je bloque !

Le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
    'Déclaration des variables spécifiques à la connexion BAL OUTLOOK
        Dim monApply As Outlook.Application
        Dim monMail As Outlook.MailItem
        Dim maBoite As Outlook.Recipient
        Dim monSpace As Outlook.NameSpace
        Dim DossierCibleCREA As Outlook.MAPIFolder
    'Déclaration obligatoire pour effectuer une connexion aux dossiers contenu dans la BAL 
        Set monApply = Outlook.Application 'positionnement sur Outlook
        Set monSpace = monApply.GetNamespace("MAPI") 'appel de la banque données MAPI
        Set maBoite = monSpace.CreateRecipient("GCPAM711_REPS") 'nommage de la BAL partagée utilisée
        maBoite.Resolve
        Set DossierCibleCREA = monSpace.GetSharedDefaultFolder(maBoite, olFolderInbox).Parent.Folders("test")

Je tombe sur une erreur "Impossible de reconnaitre un ou plusieurs noms" pour la ligne 14.

La structure de mon OUTLOOK :
-> BAL perso

- Boite de réception

-> GCPAM711_REPS

- Boite de réception
- test

Merci pour votre aide !

A bientôt

[Oliv-]

Bonjour,

Si tu vois les 2 boites dans ton arborescence, tu peux faire autrement

Code :

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

Set DossierCibleCREA = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Parent.Folders("GCPAM711_REPS").Folders("Boîte de réception").Folders("edi_parc")

ou

Code :

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

Set DossierCibleCREA = monSpace.Folders("GCPAM711_REPS").Store.GetDefaultFolder(olFolderInbox)

regarde les 2 liens de ce post
https://www.developpez.net/forums/d1.../#post10692919

[spm01]

Un grand merci !

La première méthode fonctionnement parfaitement bien