Discussion :

[mllrfrnck]

Bonjour,

j'ai utilisé ta méthode Oliv' mais j'ai un message d'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.CreateRecipient(fromsender)
Set myDestFolder = myNameSpace.GetSharedDefaultFolder(myInbox, olFolderInbox)
On Error Resume Next
Set myDestinFolder = myDestFolder.Folders("test")
If myDestinFolder Is Nothing Then
            Set myDestinFolder = myDestFolder.Folders.Add("test")
End If
On Error GoTo 0

Le message d'erreur c'est Echec de l'opération. Impossible de trouver un objet et il se met à la ligne :
Set myDestinFolder = myDestFolder.Folders("test")

Je ne vois pas où est l'erreur du coup.
Est-ce que tu aurais une solution ?

[mllrfrnck]

Salut,
A mon avis il n'a pas trouvé

myDestFolder
qui doit être à Nothing


As tu ce dossier de visible dans ton arborescence de dossiers ?

Pourtant j'ai bien myDestFolder = "Boîte de réception" quand je passe sur le nom à la ligne :
Set myDestFolder = myNameSpace.GetSharedDefaultFolder(myInbox, olFolderInbox)

[Oliv-]

Quelle est ta déclaration de variables pour myDestinFolder ?

[mllrfrnck]

J'ai mis :
Dim myDestinFolder As Outlook.MAPIFolder.

Mais j'ai contourné le problème finalement avec la fonction :
Function SousDossierExiste(oOLFld As Outlook.MAPIFolder, sSsDossier As String) As Boolean