|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 dsd999 于 2012-4-24 15:28 编辑
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim lngres As Long
Item.Save '必须先保存邮件,才能检测到邮件的大小。
If Item.Size > 1048576 Then '1048576 byte 除以1024 = 1M
Application.Explorers(1).Activate
lngres = MsgBox("邮件大于1M!" & Chr(10) & "仍然发送?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
If lngres = vbNo Then
Cancel = True
Item.display
Exit Sub
End If
End If
lngres = MsgBox("收件人" & Chr(10) & Item.To, _
vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
If lngres = vbNo Then
Cancel = True
Item.display
Exit Sub
End If
lngres = MsgBox("抄送" & Chr(10) & Item.CC, _
vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
If lngres = vbNo Then
Cancel = True
Item.display
Exit Sub
End If
lngres = MsgBox("主题" & Chr(10) & Item.Subject, _
vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
If lngres = vbNo Then
Cancel = True
Item.display
Exit Sub
End If
End Sub |
评分
-
1
查看全部评分
-
|