计算“收件人”字段中的VBA收件人数量

Question

在TO字段中是否有一种更快的方法来统计VBA接收者的数量？

请参考以下伪代码。

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属性并计算“;”的数量字符，但这是特定于语言环境的。您拥有的是最好的方式；有问题吗？