检查附件的大小

所以我有一个仅用于附件目录的列。 它从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 ，它会提示用户他已经达到了最大的附件大小。 任何帮助？ 谢谢。

Answer 1

您可以通过FileLen获取字节大小的文件

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

Answer 2

首先保存邮件（ MailItem.Save以确保大小已更新），总结所有Attachment.Size属性的值。