Créer un dossier d'archivage dans Outlook à partir d'une macro Excel

Salut,

Tout est dans le titre. J'ai ce code trouvé sur le Net :

Dim monOutlook As Object

Set myNewFolder = dossier.Folders.Add("Test")

Ca plante sur la ligne en gras (Echec de l'opération, impossible de trouver un objet). Le dossier " Archives Certif " existe pourtant bien.

Le dossier " Test " est à créer dans le dossier Outlook Archives certif\02 Cont'd airworth. SA ATA 27\01. En cours

Merci d'avance à ceux qui me donneront le truc pour que ça fonctionne...

Manu

Bonjour,

Voir si ça convient

Sub AjoutDossier()
Dim monOutlook As Object
Dim ns As Object
Dim dossier As Object
Dim myNewFolder As Object

   Set monOutlook = CreateObject("Outlook.Application")
   Set ns = monOutlook.GetNamespace("MAPI")
   Set dossier = ns.Folders("Archives certif")
   On Error GoTo Suite            ' si le dossier existe ...
   Set myNewFolder = dossier.Folders.Add("Test")
Suite:

   ' ici la suite du code

End Sub

ric

Merci de la réponse.

Toujours le même problème, " Echec de l'opération, impossible de trouver un objet " sur la ligne " Set dossier = ns.Folders("Archives certif") "

Manu

Bonjour,

Ici, ça fonctionne si "Archives certif" et un fichier d'archivage indépendant que j'ai connecté dans mon outlook.

ric