Discussion :

[will Igetit]

bonjour,
je souhaite creer une folder outlook a la suite du resultat d'une marcro ,ou text est une variable( cette macro tourne sous access). mon code est le suivant

Code :

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

1
2
3
Dim objfolder As Outlook.MAPIFolder
 
   Set objfolder = ojbfolders.Add("testvba", text)

jai erreur 426.

merci de votre aide .

[Oliv-]

Salut,
voici la syntaxe:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim NS As NameSpace
    Set NS = Application.GetNamespace("MAPI")
    Dim Dossier As MAPIFolder
    Set Dossier = NS.Folders("Dossiers personnels Olivier") 'dossier dans lequel on va créer un sous-dossier
'ou 
'   Set Dossier = NS.GetDefaultFolder(olFolderCalendar).Parent '= à la racine
    Dim myNewFolder As MAPIFolder
    Set myNewFolder = dossier.Folders.add("Test",olFolderCalendar ) 'nouveau sous dossier avec le type de dossier (peut être omis)
'   olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes, olPublicFoldersAllPublicFolders ou olFolderTasks