vba - Excelの連絡先リストから電子メールIDで名前を取得する

Question

Excel シートに電子メール ID のリストがあり、VBA スクリプトを使用して Outlook 連絡先リストから名前を取得したいと考えています。オンラインで検索しましたが、自分に合ったものが見つかりませんでしたか?

これはどのように行うことができますか？

Answer 1

以下の作品。以下のコードは、 「abc@xyz.com」に対応する名前を取得し ます。配列を使用して比較できると思います。より良い方法があるかどうかはわかりません。

Public Sub getName()
  Dim contact As Object
  Dim AL As Object
    Dim outApp As Object
    Set outApp = CreateObject("Outlook.Application")
    'Logon
    outApp.Session.Logon

    'Get contact from Outlook
    Set AL = outApp.Session.GetDefaultFolder(10)
        For Each contact In AL.Items
            'iterate through each contact and compare
            If contact.Email1Address = "abc@xyz.com" Then
                Debug.Print (contact.FullName)
            End If
        Next contact
    outApp.Session.Logoff
    outApp.Quit

    'cleanup
    Set outApp = Nothing
    Set GAL = Nothing
End Sub