我有一个从excel表中提取数据的书面代码。对于列表中的每个供应商，它会向他们创建一封电子邮件，并添加文件夹的内容。它无缝地工作。循环工作，添加附件，发送电子邮件，一切都很好。
直到.....文件夹中的附件太多。我使用以下内容添加所有附件：
Filename=dir(folderpath)
While len(filename)>0
.attachments.add (filename)
Filename=Dir
Wend
正如我所说，当没有太多的附件时，这是有效的。有没有办法先计算文件夹中的文件数？或者在添加附件时计算附件的东西？
我希望实现的目标是：
如果附件数> 10，则创建新邮件并继续
有什么想法吗？ 感谢