送信メールのサイズ合計を出力したい

Question

現在、outlook vbaでメールを送信する際に、メール本文と添付ファイルのサイズ合計を
メッセージボックスに出力し、「いいえ」を選択した際に送信をキャンセルするマクロを作成しようとしています。
書式設定がテキストの場合は、サイズ合計を出力することができたのですが、
HTML形式の時に本文に画像を貼った際のサイズが出力できません。
御力を貸していただけないでしょうか

Answer 1

インライン形式の場合は CDFV2 という形式で格納されている為、送信前の状態では Size は 0 になります。いったんテンポラリに保存してサイズを取得するくらいしか方法が無いと思います。

Private Sub Application_Itemsend(ByVal Item As Object, Cancel As Boolean)

	Dim attach As Outlook.Attachment
	Dim fso As Object
	Dim total As Long
	Dim tempName As String

	' オブジェクトから得られるサイズを算出
	total = Item.Size ' 念のため
	For Each attach In Item.Attachments
		total = total + attach.Size
	Next
	' テンポラリファイルに保存してファイルサイズを取得
	Set fso = CreateObject("Scripting.FileSystemObject")
	tempName = fso.GetSpecialFolder(2) & "\" & fso.GetTempName
	Set fso = Nothing
	Call Item.SaveAs(tempName)
	total = total + FileLen(tempName)
	Kill tempName

	MsgBox "添付ファイルサイズの合計は " & total & "バイトです"
End Sub