Question

我有一个名单，其中一些是完整的，一些是截断的。我想在Outlook地址列表中搜索这些名称的匹配项。

我最接近的是这个Python代码which came from ActiveState Code，但是它不搜索全局地址，只搜索我的（本地？）列表，其中有3个地址，这显然是不对的。应该有成千上万的记录。

欢迎任何提示。我用Google搜索并阅读了几十页，但没有结论。我宁愿不直接连接到LDAP，我认为这是我的组织中的政策违规，除此之外我不确定是否可能。如果可能，希望通过Outlook API执行此操作。

DEBUG=1

class MSOutlook:
    def __init__(self):
        self.outlookFound = 0
        try:
            self.oOutlookApp = \
                win32com.client.gencache.EnsureDispatch("Outlook.Application")
            self.outlookFound = 1
        except:
            print("MSOutlook: unable to load Outlook")

        self.records = []


    def loadContacts(self, keys=None):
        if not self.outlookFound:
            return

        # this should use more try/except blocks or nested blocks
        onMAPI = self.oOutlookApp.GetNamespace("MAPI")
        ofContacts = \
            onMAPI.GetDefaultFolder(win32com.client.constants.olFolderContacts)

        if DEBUG:
            print("number of contacts:", len(ofContacts.Items))

        for oc in range(len(ofContacts.Items)):
            contact = ofContacts.Items.Item(oc + 1)
            if contact.Class == win32com.client.constants.olContact:
                if keys is None:
                    # if we were't give a set of keys to use
                    # then build up a list of keys that we will be
                    # able to process
                    # I didn't include fields of type time, though
                    # those could probably be interpreted
                    keys = []
                    for key in contact._prop_map_get_:
                        if isinstance(getattr(contact, key), (int, str, unicode)):
                            keys.append(key)
                    if DEBUG:
                        keys.sort()
                        print("Fields\n======================================")
                        for key in keys:
                            print(key)
                record = {}
                for key in keys:
                    record[key] = getattr(contact, key)
                if DEBUG:
                    print(oc, record['FullName'])
                self.records.append(record)

随机链接：

MSDN - How to create a Global Address List programmatically using Visual Basic
Infinitec - How to get the Global Address List programatically
Return Boolean True - Downloading the Global Address List from Outlook/Exchange
Grokbase - [python-win32] getting global addressbook with extended mapi
Stack Overflow - Searching Outlook Global Address

List
ActiveStater Code - RE: Email Address Lookup
Stack Overflow - Retrieving outlook Contacts via python

这是我在上面的链接
Stack Overflow - Fetching Outlook Contacts with Python

根本不运行
Python for Windows - Automating Microsoft Outlook

只是默认地址簿。此外，我想搜索，而不是全部列出。

如果有人能提出解决方案，我不介意它是C ++，VB，Perl，Python等。

Answer 1

问题解决了！

感谢Dmitry's answers我可以制作这个最小的Python代码来演示我想要实现的目标：

from __future__ import print_function
import win32com.client

search_string = 'Doe John'

outlook = win32com.client.gencache.EnsureDispatch('Outlook.Application')
recipient = outlook.Session.CreateRecipient(search_string)
recipient.Resolve()
print('Resolved OK: ', recipient.Resolved)
print('Is it a sendable? (address): ', recipient.Sendable)
print('Name: ', recipient.Name)

ae = recipient.AddressEntry
email_address = None

if 'EX' == ae.Type:
    eu = ae.GetExchangeUser()
    email_address = eu.PrimarySmtpAddress

if 'SMTP' == ae.Type:
    email_address = ae.Address

print('Email address: ', email_address)

Answer 2

上面的代码处理默认“联系人”文件夹中的联系人。如果要检查给定名称是否在Outlook中（作为联系人或GAL），只需调用Application.Session.CreateRecipient，然后调用Recipient.Resolve。如果调用返回true，您可以阅读Recipient.Address和其他各种属性。

Answer 3

当搜索字符串存在多个匹配项时，@ Prof.Falken解决方案中的方法并不总是有效。我找到了另一种解决方案，因为它使用displayname的完全匹配，因此更加健壮。

它的灵感来自How to fetch exact match of addressEntry object from GAL (Global Address List)。

import win32com.client

search_string = 'Doe John'

outlook = win32com.client.gencache.EnsureDispatch('Outlook.Application')
gal = outlook.Session.GetGlobalAddressList()
entries = gal.AddressEntries
ae = entries[search_string]
email_address = None

if 'EX' == ae.Type:
    eu = ae.GetExchangeUser()
    email_address = eu.PrimarySmtpAddress

if 'SMTP' == ae.Type:
    email_address = ae.Address

print('Email address: ', email_address)

如何在Outlook（2010）全局地址列表中搜索名称？

3 个答案: