Подсчитайте количество получателей VBA в поле TO

Question

Существует ли более быстрый способ подсчета количества получателей VBA в поле TO?

Пожалуйста, обратитесь к следующему псевдокоду.

Dim myRecipients as Outlook.recipients
Dim Recip as Outlook.recipient

Dim olToCount as Long
    olToCount = 0
For Each Recip In myRecipients
    If Recip.Type = olTo Then
        olToCount = olToCount + 1
    End if
Next

Answer 1

Вы также можете прочитать свойство To и сосчитать число «;»символы, но это зависит от региона.То, что у вас есть, является предпочтительным способом;есть ли проблема с этим?