如何在mailItem.To中获取写在收件人文本框中的不带下划线的电子邮件地址？

Sub GetEmailAddresses()
    Dim mailItem As Outlook.MailItem
    Dim recipients As String
    Dim cleanedRecipients As String
    Dim recipientArray() As String
    Dim i As Integer
    
    ' 获取当前邮件项
    Set mailItem = Application.ActiveInspector.CurrentItem
    
    ' 获取收件人文本框中的电子邮件地址
    recipients = mailItem.To
    
    ' 去除下划线
    cleanedRecipients = Replace(recipients, "_", "")
    
    ' 将处理后的电子邮件地址分隔为数组
    recipientArray = Split(cleanedRecipients, ";")
    
    ' 遍历数组，输出每个电子邮件地址
    For i = LBound(recipientArray) To UBound(recipientArray)
        Debug.Print recipientArray(i)
    Next i
End Sub