À partir d'une programmation dans Access, je veux créer un sous-répertoire
dans le dossier Inbox (Boite de réception).
Il manque quelque chose dans ma programmation...
Dim objOutlook As Outlook.Application
Dim MyNameSpace As Outlook.NameSpace
Dim InBox As Outlook.MAPIFolder
Dim CustomFolder As Outlook.MAPIFolder
Dim varNewFolder As String
Set objOutlook = New Outlook.Application
Set MyNameSpace = objOutlook.GetNamespace("MAPI")
Set InBox = MyNameSpace.GetDefaultFolder(olFolderInbox)
varNewFolder = "TestNewFolder"
CustomFolder = InBox.Folders.Add(varNewFolder,
Outlook.OlDefaultFolders.olFolderInbox)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Robert Parise
J'ai trouvé l'erreur, il manquait le mot Set avant CustomFolder = InBox.Folders.Add(varNewFolder, Outlook.OlDefaultFolders.olFolderInbox)
J'ai aussi ajouté à la fin Set objOutlook = nothing
Bonn journée
"Robert Parise" a écrit dans le message de news: VU4Yj.908$
Bonjour
À partir d'une programmation dans Access, je veux créer un sous-répertoire dans le dossier Inbox (Boite de réception).
Il manque quelque chose dans ma programmation...
Dim objOutlook As Outlook.Application Dim MyNameSpace As Outlook.NameSpace Dim InBox As Outlook.MAPIFolder Dim CustomFolder As Outlook.MAPIFolder Dim varNewFolder As String
Set objOutlook = New Outlook.Application Set MyNameSpace = objOutlook.GetNamespace("MAPI") Set InBox = MyNameSpace.GetDefaultFolder(olFolderInbox) varNewFolder = "TestNewFolder" Set CustomFolder = InBox.Folders.Add(varNewFolder, Outlook.OlDefaultFolders.olFolderInbox)
Merci de m'aider
Robert
J'ai trouvé l'erreur, il manquait le mot Set avant CustomFolder =
InBox.Folders.Add(varNewFolder, Outlook.OlDefaultFolders.olFolderInbox)
J'ai aussi ajouté à la fin Set objOutlook = nothing
Bonn journée
"Robert Parise" <robert.parise@ebrequipment.com> a écrit dans le message de
news: VU4Yj.908$JJ4.14048@wagner.videotron.net...
Bonjour
À partir d'une programmation dans Access, je veux créer un sous-répertoire
dans le dossier Inbox (Boite de réception).
Il manque quelque chose dans ma programmation...
Dim objOutlook As Outlook.Application
Dim MyNameSpace As Outlook.NameSpace
Dim InBox As Outlook.MAPIFolder
Dim CustomFolder As Outlook.MAPIFolder
Dim varNewFolder As String
Set objOutlook = New Outlook.Application
Set MyNameSpace = objOutlook.GetNamespace("MAPI")
Set InBox = MyNameSpace.GetDefaultFolder(olFolderInbox)
varNewFolder = "TestNewFolder"
Set CustomFolder = InBox.Folders.Add(varNewFolder,
Outlook.OlDefaultFolders.olFolderInbox)
J'ai trouvé l'erreur, il manquait le mot Set avant CustomFolder = InBox.Folders.Add(varNewFolder, Outlook.OlDefaultFolders.olFolderInbox)
J'ai aussi ajouté à la fin Set objOutlook = nothing
Bonn journée
"Robert Parise" a écrit dans le message de news: VU4Yj.908$
Bonjour
À partir d'une programmation dans Access, je veux créer un sous-répertoire dans le dossier Inbox (Boite de réception).
Il manque quelque chose dans ma programmation...
Dim objOutlook As Outlook.Application Dim MyNameSpace As Outlook.NameSpace Dim InBox As Outlook.MAPIFolder Dim CustomFolder As Outlook.MAPIFolder Dim varNewFolder As String
Set objOutlook = New Outlook.Application Set MyNameSpace = objOutlook.GetNamespace("MAPI") Set InBox = MyNameSpace.GetDefaultFolder(olFolderInbox) varNewFolder = "TestNewFolder" Set CustomFolder = InBox.Folders.Add(varNewFolder, Outlook.OlDefaultFolders.olFolderInbox)