Je teste ce code depuis 2 jours et malheureusement je bute sur
l'instruction ItemProperties.
Voila le code erreur : Cet objet ne gère pas cette propriété ou
méthode (erreur 438)
avez vous eu ce problème ? pouvez vous m'aider ?
Je vous remercie d'avance car la possibilité de recuperer les valeurs
des champs d'un formulaire perso me permettrait de finaliser mon appli
de gestion d'appel.
Cordialement,
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
Anor
Bonjour victor
victor coustenoble a confié : | Ok merci Anor, ton script VBA sur ton site marche très bien !
cool :-)
| Il n'y a plus qu'à savoir comment choisir le dossier de contact que | l'on veut exporter (je n'y arrive que quand c'est un sous répertoire | de Contact) | | Set OlFolder = OlMapi.GetDefaultFolder(olFolderContacts) | Set myFolder = OlFolder.Folders("Mes Contacts") | Set OlItems = myFolder.Items | | | Mais ça ne marche pas un truc comme ça ? | | Set OlFolder = OlMapi.GetFolderFromID("Mes Contacts") | Set OlItems = OlFolder.Items | | A+ | Victor
Plus souple :
Set OlFolder = OlMAPI.PickFolder
et là tu choisis directement le dossier qui t'intéresse ;-))
Sinon, en bidouillant un peu, par hasard, mais alors vraiment par hasard ;-) j'ai trouvé la syntaxe suivante :
Set OlFolder = OlMAPI.Folders("Archive").Folders("test")
où "test" est un sous-dossier d'une archive pst qui s'appelle "Archive" (au lieu de regarder directement les sous-dossiers de "Outlook Aujourd'hui")
victor coustenoble <victor.coustenoble@kxen.com> a confié :
| Ok merci Anor, ton script VBA sur ton site marche très bien !
cool :-)
| Il n'y a plus qu'à savoir comment choisir le dossier de contact que
| l'on veut exporter (je n'y arrive que quand c'est un sous répertoire
| de Contact)
|
| Set OlFolder = OlMapi.GetDefaultFolder(olFolderContacts)
| Set myFolder = OlFolder.Folders("Mes Contacts")
| Set OlItems = myFolder.Items
|
|
| Mais ça ne marche pas un truc comme ça ?
|
| Set OlFolder = OlMapi.GetFolderFromID("Mes Contacts")
| Set OlItems = OlFolder.Items
|
| A+
| Victor
Plus souple :
Set OlFolder = OlMAPI.PickFolder
et là tu choisis directement le dossier qui t'intéresse ;-))
Sinon, en bidouillant un peu, par hasard,
mais alors vraiment par hasard ;-)
j'ai trouvé la syntaxe suivante :
Set OlFolder = OlMAPI.Folders("Archive").Folders("test")
où "test" est un sous-dossier d'une archive pst qui s'appelle "Archive"
(au lieu de regarder directement les sous-dossiers de "Outlook Aujourd'hui")
victor coustenoble a confié : | Ok merci Anor, ton script VBA sur ton site marche très bien !
cool :-)
| Il n'y a plus qu'à savoir comment choisir le dossier de contact que | l'on veut exporter (je n'y arrive que quand c'est un sous répertoire | de Contact) | | Set OlFolder = OlMapi.GetDefaultFolder(olFolderContacts) | Set myFolder = OlFolder.Folders("Mes Contacts") | Set OlItems = myFolder.Items | | | Mais ça ne marche pas un truc comme ça ? | | Set OlFolder = OlMapi.GetFolderFromID("Mes Contacts") | Set OlItems = OlFolder.Items | | A+ | Victor
Plus souple :
Set OlFolder = OlMAPI.PickFolder
et là tu choisis directement le dossier qui t'intéresse ;-))
Sinon, en bidouillant un peu, par hasard, mais alors vraiment par hasard ;-) j'ai trouvé la syntaxe suivante :
Set OlFolder = OlMAPI.Folders("Archive").Folders("test")
où "test" est un sous-dossier d'une archive pst qui s'appelle "Archive" (au lieu de regarder directement les sous-dossiers de "Outlook Aujourd'hui")
Concernant la selection d'un dossier, j'ai trouvé une fonction (sur un site Anglais) qui permet de selectionner un dossier en donnant son chemin.
Par exemple, j'ai une boite de reception perso et aussi une boite pour le service; Avec cette fonction en spécifiant le chemin de ma boite de reception du service, je pointe directement dessus.
Set Dossier = GetFolder("Boîte aux lettres - Service InformatiqueBoîte de réception")
ensuite la fonction :
Public Function GetFolder(strFolderPath As String) As MAPIFolder
' folder path needs to be something like
' "Public FoldersAll Public FoldersCompanySales"
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim arrFolders() As String
Dim i As Long
On Error Resume Next
strFolderPath = Replace(strFolderPath, "/", "")
arrFolders() = Split(strFolderPath, "")
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objFolder = objNS.Folders.Item(arrFolders(0))
If Not objFolder Is Nothing Then
For i = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(i))
If objFolder Is Nothing Then
Exit For
End If
Next
End If
Set GetFolder = objFolder
Set colFolders = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Function
J'enchaine ensuite mon code en me basant sur cette boite de reception ...
Par contre, je n'arrive toujours pas à récupérer les champs perso des formulaires se trouvant dans cette boite de reception .... Avez vous une idée ??? Merci
Olivier
JièL Goubert wrote in message news:<#8Hy$...
Salut Anor
Anor a écrit:
Set OlFolder = OlMAPI.Folders("Archive").Folders("test")
Ca me fait penser à l'utilisation d'un champ dans un sous forumlaire dans Access... la aussi, c'est un peu tordue comme syntaxe, heureusement qu'il y a une générateur pour ça.
Bonjour,
Concernant la selection d'un dossier, j'ai trouvé une fonction (sur un
site Anglais) qui permet de selectionner un dossier en donnant son
chemin.
Par exemple, j'ai une boite de reception perso et aussi une boite pour
le service; Avec cette fonction en spécifiant le chemin de ma boite de
reception du service, je pointe directement dessus.
Set Dossier = GetFolder("Boîte aux lettres - Service
InformatiqueBoîte de réception")
ensuite la fonction :
Public Function GetFolder(strFolderPath As String) As MAPIFolder
' folder path needs to be something like
' "Public FoldersAll Public FoldersCompanySales"
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim arrFolders() As String
Dim i As Long
On Error Resume Next
strFolderPath = Replace(strFolderPath, "/", "")
arrFolders() = Split(strFolderPath, "")
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objFolder = objNS.Folders.Item(arrFolders(0))
If Not objFolder Is Nothing Then
For i = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(i))
If objFolder Is Nothing Then
Exit For
End If
Next
End If
Set GetFolder = objFolder
Set colFolders = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Function
J'enchaine ensuite mon code en me basant sur cette boite de reception
...
Par contre, je n'arrive toujours pas à récupérer les champs perso des
formulaires se trouvant dans cette boite de reception ....
Avez vous une idée ???
Merci
Olivier
JièL Goubert <NoSpam_JieL.Goubert@free-fr> wrote in message news:<#8Hy$o9eDHA.460@TK2MSFTNGP12.phx.gbl>...
Salut Anor
Anor a écrit:
Set OlFolder = OlMAPI.Folders("Archive").Folders("test")
Ca me fait penser à l'utilisation d'un champ dans un sous forumlaire
dans Access... la aussi, c'est un peu tordue comme syntaxe, heureusement
qu'il y a une générateur pour ça.
Concernant la selection d'un dossier, j'ai trouvé une fonction (sur un site Anglais) qui permet de selectionner un dossier en donnant son chemin.
Par exemple, j'ai une boite de reception perso et aussi une boite pour le service; Avec cette fonction en spécifiant le chemin de ma boite de reception du service, je pointe directement dessus.
Set Dossier = GetFolder("Boîte aux lettres - Service InformatiqueBoîte de réception")
ensuite la fonction :
Public Function GetFolder(strFolderPath As String) As MAPIFolder
' folder path needs to be something like
' "Public FoldersAll Public FoldersCompanySales"
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim arrFolders() As String
Dim i As Long
On Error Resume Next
strFolderPath = Replace(strFolderPath, "/", "")
arrFolders() = Split(strFolderPath, "")
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objFolder = objNS.Folders.Item(arrFolders(0))
If Not objFolder Is Nothing Then
For i = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(i))
If objFolder Is Nothing Then
Exit For
End If
Next
End If
Set GetFolder = objFolder
Set colFolders = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Function
J'enchaine ensuite mon code en me basant sur cette boite de reception ...
Par contre, je n'arrive toujours pas à récupérer les champs perso des formulaires se trouvant dans cette boite de reception .... Avez vous une idée ??? Merci
Olivier
JièL Goubert wrote in message news:<#8Hy$...
Salut Anor
Anor a écrit:
Set OlFolder = OlMAPI.Folders("Archive").Folders("test")
Ca me fait penser à l'utilisation d'un champ dans un sous forumlaire dans Access... la aussi, c'est un peu tordue comme syntaxe, heureusement qu'il y a une générateur pour ça.
Anor
Bonjour olivier
olivier a confié : .../...| | Par contre, je n'arrive toujours pas à récupérer les champs perso des | formulaires se trouvant dans cette boite de reception .... | Avez vous une idée ??? | Merci | | Olivier |
olivier <olipiv@yahoo.fr> a confié :
.../...|
| Par contre, je n'arrive toujours pas à récupérer les champs perso des
| formulaires se trouvant dans cette boite de reception ....
| Avez vous une idée ???
| Merci
|
| Olivier
|
olivier a confié : .../...| | Par contre, je n'arrive toujours pas à récupérer les champs perso des | formulaires se trouvant dans cette boite de reception .... | Avez vous une idée ??? | Merci | | Olivier |
| Ca me fait penser à l'utilisation d'un champ dans un sous forumlaire | dans Access...
Mais c'est bien sûr...suis-je bête !
mais non voyons, tout le monde peut oublier.
Donc la syntaxe équivalente est :
Set OlFolder = OlMAPI.Folders!Archive.Folders!test
Ben ça prouve que les dev des deux produits gardent des contacts finalement ;-)))
-- JièL / Jean-Louis GOUBERT Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
Salut Anor
Anor a écrit:
| Ca me fait penser à l'utilisation d'un champ dans un sous forumlaire
| dans Access...
Mais c'est bien sûr...suis-je bête !
mais non voyons, tout le monde peut oublier.
Donc la syntaxe équivalente est :
Set OlFolder = OlMAPI.Folders!Archive.Folders!test
Ben ça prouve que les dev des deux produits gardent des contacts
finalement ;-)))
--
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
| Ca me fait penser à l'utilisation d'un champ dans un sous forumlaire | dans Access...
Mais c'est bien sûr...suis-je bête !
mais non voyons, tout le monde peut oublier.
Donc la syntaxe équivalente est :
Set OlFolder = OlMAPI.Folders!Archive.Folders!test
Ben ça prouve que les dev des deux produits gardent des contacts finalement ;-)))
-- JièL / Jean-Louis GOUBERT Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm
