Question

所以我有一个仅适用于附件目录的列。它从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

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

Answer 2

您可以使用FileLen

以字节为单位获取文件的大小

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

检查附件的尺寸

2 个答案: