ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Outlook : visualiser dans une table les propriétés des dossiers Contacts,Tasks,Calendar.....

	Description
Retour à la liste L'auteur eddymaue Canada Membre Simple # 0000000075 enregistré le 26/10/2004 Maue Eddy j8j 8j8 Gatineau de la société Formatek Fiche personnelle Note des membres pas de note	Contributions > 01 - PRG : Programmation Outlook : visualiser dans une table les propriétés des dossiers Contacts,Tasks,Calendar..... # 0000000764 ajouté le 02/07/2010 04:31:52 et modifié le 04/07/2010 consulté 8443 fois Niveau débutant Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0 VFP 6.0
	Salut vous tous cet exemple permet de visualiser les propriétiées qui composent les différents dossiers d'Outlook. En autant qu'il y est au moins un item d'inscrit dans le dossier Outbox folder : Pour pouvoir voir ce 4ieme dossier, mettre Outlook en mode offline et faites l'envoit d'un courrier. Après avoir exécuter mon code, détruire l'item que est dans le dossier de sortie pour les email. Anyways regarder le code pour vous faire une idée have fun
	Code source :
	! Sub ListingVoulu() ! ' Activer Microsoft Outlook 11.0 Object Library ! ! Dim olApp As Outlook.Application ! Dim objDosContact As Outlook.MAPIFolder ! Dim objContact As Outlook.ContactItem ! Dim vntProp As Variant ! ! Set olApp = New Outlook.Application ! Set objDosContact = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts) ! 'On se place sur le 1er contact par défaut, on considère qu'il en existe un ! ! Set objContact = objDosContact.Items(1) ! For Each vntProp In objContact.ItemProperties ! Debug.Print vntProp.Name ! Next vntProp ! End Sub -- OlDefaultFolders #include ..\outlook.h #Ifndef olFolderDeletedItems #Define olFolderDeletedItems 3 #Define olFolderOutbox 4 #Define olFolderSentMail 5 #Define olFolderInbox 6 #Define olFolderCalendar 9 #Define olFolderContacts 10 #Define olFolderJournal 11 #Define olFolderNotes 12 #Define olFolderTasks 13 #Endif Release All Declare laNDossier(1) lcListDossier = "3,4,5,6,9,10,11,12,13" lnD = Alines(laNDossier,lcListDossier,1+4,",") Local loOutlook,loNameSpace,loContactFolder , loFolderDeletedItems loOutlook = Createobject('outlook.application') loNameSpace = loOutlook.getnamespace('MAPI') Create Cursor FldPpDesc (folderNum i,descrip c(40), item_no i , numType i, desc_type c(1), pp_name c(30), contenu c(99), bigContenu M) Local liD , llErr, llAdd Store .f. to llErr, llAdd For liD = 1 To lnD Try loFolder = loNameSpace.GetDefaultFolder(laNDossier(liD)) Catch llErr = .T. Endtry If llErr m.llErr = .F. Loop Endif If loFolder.Items.Count < 1 llAdd = .t. loFolder.Items.Add() Endif try loItem = loFolder.Items(1) Catch llErr = .t. EndTry If llErr Store .f. to llErr, llAdd loop endif i = 0 For Each loProp In loItem.ItemProperties i = i + 1 ? "folderNum :"+Transform(laNDossier(liD)),i,Chr(9),loProp.Type,Type("loItem."+loProp.Name) , loProp.Name , Chr(9) , Evaluate("loItem."+loProp.Name) lcContent = Transform(Evaluate("loItem."+loProp.Name)) Insert Into FldPpDesc Values (Val(laNDossier(liD)),loFolder.Description,i,loProp.Type,Type("loItem."+loProp.Name) , loProp.Name ,Iif(Len(lcContent)<100,lcContent,""), Iif(Len(lcContent)>99,lcContent,"")) EndFor llAdd = .f. Endfor Brow
	Commentaires
	Aucun commentaire enregistré ...

Outlook : visualiser dans une table les propriétés des dossiers Contacts,Tasks,Calendar.....

Contributions > 01 - PRG : Programmation