添付ファイルのサイズを確認する

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

あなたは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プロパティの値を合計します。