Kbase P14608: How to access the MS Outlook Contacts
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/15/2008 |
|
Status: Verified
GOAL:
How to access the MS Outlook Address Book?
FIX:
DEFINE VARIABLE hOutlook AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hNameSpace AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hFolder AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE hItem AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE x AS INTEGER NO-UNDO.
CREATE 'Outlook.Application' hOutlook.
ASSIGN hNameSpace = hOutlook:GetNameSpace('MAPI')
hFolder = hNameSpace:AddressLists:Item(1).
DO X = 1 TO hFolder:AddressEntries:Count():
ASSIGN hItem = hFolder:AddressEntries:Item(X).
MESSAGE hItem:Name + ' ' + hItem:Address VIEW-AS ALERT-BOX.
END.
RELEASE OBJECT hItem NO-ERROR.
RELEASE OBJECT hFolder NO-ERROR.
RELEASE OBJECT hNameSpace NO-ERROR.
RELEASE OBJECT hOutlook NO-ERROR.