Outlook VBAで表示名ではなく、メールアドレスを取得したい。

Question

前提・実現したいこと

Outlookで特定の宛先にメールを送信する際に、ポップアップメッセージを表示させたいのですが
メールアドレスではなく、表示名が取得されてしまい、比較ができず困ってます。

該当のソースコード

Sub Application_ItemSend(ByVal objItem As Object, boolCancel As Boolean)
    
　　Dim send_address(1) As String
    
    'チェック対象者メールアドレス
    send_address(0) = "[e-mail]"
    send_address(1) = "[e-mail]"
      
    send_mail = objItem.To
       
    For i = 0 To 1
        If send_mail = send_address(i) Then
            If MsgBox("要確認者。このまま送信しますか？", vbYesNo) = vbNo Then
                boolCancel = True
            End If
        End If
    Next i


End Sub

試したこと

objItem.Toで表示名が取得されていると思うのですが、メールアドレスを取得する方法がわかりません。

以下の情報も確認したのですが
サンプルコードの使用方法などが理解できませんでした。
https://docs.microsoft.com/ja-jp/office/vba/outlook/concepts/address-book/obtain-the-e-mail-address-of-a-recipient

Answer 1

MailItemオブジェクトのRecipientsプロパティーで受信者を表すRecipientオブジェクトのコレクションが得られます。

RecipientオブジェクトのAddressプロパティーがメールアドレスです。
RecipientオブジェクトのTypeプロパティーがTo Cc Bccの区別する数値で、olToと等しいのがToの宛先です。他に、olCC olBCCも必要ならチェックします。宛先の種類を区別する必要が無ければ、チェックせずに、Addressプロパティーだけ見ればいいです。