Vba 检查附件的大小

所以我有一个列，它只用于附件目录。它开始于

O24:O33

，并非所有字段都是为附件填写的。我有这段代码，它将outlook邮件中的目录添加为附件

Dim objmail as Object
Dim attach as object
Dim i as integer, lrow as long

lRow = Cells(Rows.count, 15).End(xlUp).Row

Set objMail = objOutlook.CreateItem(0)
Set attach = objMail.attachments

For i = 23 To lRow
      attach.add main.Range("O" & i).Value
Next i

---

我现在想检查附件的总大小，如果它将大于10mb，它将提示用户已达到附件的最大大小。有什么帮助吗？谢谢。

首先保存邮件（

MailItem.Save

为确保大小已更新），汇总所有

附件.size

属性的值

首先保存邮件（

MailItem.Save

以确保大小已更新），汇总所有

Attachment.size

属性的值

您可以使用

---

您可以使用

Dim totalSize As Long
For i = 23 To lRow
     totalSize = totalSize + FileLen( main.Cells(i, "O").Value2 )
Next i