title: Getting mailaddresses out of recipients of an mailItem
body: <p>I been trying to find out a way to find out which mail addresses a mail has been sent to. Consider the following:</p>
  <pre><code>Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
      Dim mai As MailItem
      Dim intInitial As Integer
      Dim intFinal As Integer
      Dim strEntryId As String
      Dim intLength As Integer
      
      intInitial = 1
      intLength = Len(EntryIDCollection)
      intFinal = InStr(intInitial, EntryIDCollection, &quot;,&quot;)
      Do While intFinal &lt;&gt; 0
          strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intFinal - intInitial))
          Set mai = Application.Session.GetItemFromID(strEntryId)
          intInitial = intFinal + 1
          intFinal = InStr(intInitial, EntryIDCollection, &quot;,&quot;)
      Loop
      strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intLength - intInitial) + 1)
      MsgBox strEntryId
      Set mai = Application.Session.GetItemFromID(strEntryId)
      For Each Recipient In mai.Recipients
          MsgBox Recipient
      Next
  End sub
  </code></pre>
  <p>In those msgBoxes I get the &quot;nice name&quot;, Like &quot;John Doe&quot; - but I want to get the mail address, &quot;john.doe@gmail.com&quot;.</p>
  <p>How can I achieve this?</p>