Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Issues With Office Automation
Message
De
23/11/2015 13:34:39
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Issues With Office Automation
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Desktop
Divers
Thread ID:
01627815
Message ID:
01627815
Vues:
50
I'm having trouble with the following code. When the program gets to the "ll = .FirstName" line I get an ole error message that states "Unknown name". I'm guessing that FirstName isn't a valid property. This is the first time I've tried this with OutLook 2013 is this just an issue with this version of the product? Is there another way I should be doing this?
LOCAL oOutlook,oNameSpace,oDefaultFolder,oContacts

#DEFINE olFolderCalendar 9
#DEFINE olFolderContacts 10
#DEFINE olFolderDeletedItems 3
#DEFINE olFolderInBox 6
#DEFINE olFolderJournal 11
#DEFINE olFolderNotes 12
#DEFINE olFolderOutBox 4
#DEFINE olFolderSentMail 5
#DEFINE olFolderTask 13
#DEFINE olBusy 2
#DEFINE olPrivate 2
#DEFINE MAILITEM 0
#DEFINE IMPORTANCELOW 0
#DEFINE IMPORTANCENORMAL 1
#DEFINE IMPORTANCEHIGH 2

IF VARTYPE(oOutlook) = "O"
   
   RELEASE oOutlook 

ENDIF

oOutlook = CREATEOBJECT('outlook.application')
oNameSpace = oOutlook.GetNameSpace('mapi')
oContacts = oNameSpace.GetDefaultfolder(olFolderContacts)

FOR EACH oContact IN oContacts.Items
    
    WITH oContact
    
       ll = .FirstName

    ENDWITH   

ENDFOR       
TIA
Jeff
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform