Discussion :

[emeric72]

Bonjour,

Le code ci dessous permet de demander à chaque envoi de mail, le répertoire de classement du mail envoyé.

Code VB :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As _
Boolean)
 
'By Oliv' 9/02/2007 pour Outlook 2003
If Not Item.Class = olMail Then GoTo fin
 
    Dim objNS As NameSpace
    Dim objFolder As MAPIFolder
 
            Set objNS = Application.GetNamespace("MAPI")
            Set objFolder = objNS.PickFolder
            If TypeName(objFolder) = "Nothing" Then
                Set objNS = Application.GetNamespace("MAPI")
                Set objFolder = objNS.GetDefaultFolder(olFolderDeletedItems)
            End If
        Set Item.SaveSentMessageFolder = objFolder
fin:
End Sub

Il fonctionne parfaitement mais comment faire pour que la fenêtre de dialogue qui s'ouvre se positionne par défaut sur la boite de réception avec laquelle le mail est envoyé et si possible avec les sous répertoires enfants déployés ?

si mail envoyé avec BAL1:
BAL1
>boite de réception
> rep1
> rep2

si mail envoyé avec BAL2:
BAL2
>boite de réception
> rep1
> rep2

[Oliv-]

Bonjour,
Les options de pickfolder sont vraiment limitées !
en fait le dossier proposé par défaut est celui qui correspond dans les options/ options avancées / Démarrage et fermeture de OUTLOOK
"démarrer dans ce dossier".

Ça doit être une info stockée dans le registre et sans doute en binaire :-(

HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Outlook


Sinon REDEMPTION permet de faire cela (http://www.dimastr.com/redemption/rdosession.htm)

PickFolder(SelectedFolder, Caption, ParentWindow, Flags, AllowedFolderType)
Displays the Pick Folder dialog box. This is a modal dialog box which means that code execution will not continue until the user either selects a folder or cancels the dialog box. Returns an RDOFolder object corresponding to the folder that the user selects in the dialog box. Returns Nothing when the dialog box is canceled by the user.

SelectedFolder - optional, RDOFolder. If specified, this folder will be initially selected. If not specified, the Inbox folder is selected when the dialog is displayed.

Caption - optional, string. If specified, determines the Select Folder dialog caption. If not specified, defaults to "Select Folder" (localized appropriately in French/German/Italian/Portugese/Russian/Spanish along with other dialog box controls).

ParentWindow - optional, integer. If specified, the handle of the dialog's parent window. If not specified, the dialog is shown as a child of the currently active window.

Flags - optional. Can be a combination of the following rdoPickFolderFlags enum values:

sffHideNewButton (1) - hides the "New" button, preventing the user from creating a new folder.

pffHideParentFolders (2) - displays only the specified folders and its subfolders (see the screenshot)

pffNoSizing (4) - prevents the user from resizing the dialog.

pffHidePublicFoldersStore (8) - hides the Public Folders store but leaves all the other stores visible (unless pffHideParentFolders is also specified).

pffShowStoresOnly (16) - only shows the top level folders of the stores in the current profile. "New" button will be hidden.

AllowedFolderType - optional. One of the rdoItemType enums. If not specified, all folders are displayed. If is specified, only the folders with the DefaultItemType property matching the specified value are displayed.
The following values are supported: olMailItem, olAppointmentItem, olContactItem, olTaskItem, olJournalItem, olNoteItem.