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.....   



L'auteur

eddymaue
Canada 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é 3814 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Description
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é ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0