打开Outlook2007后在Outlook2007界面下按下Alt+F11键进入Vba开发环境，依次展开Project1->Microsoft Office Outlook 然后双击打开Microsoft Office Outlook 下的ThisOutlookSession对象，在代码输入界面输入如下代码，保存并退出后即可生效。以后每次发送邮件时都会检查是否添加Subject和附件添加成功与否。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim lngres As Long
'check if add attachment success
If InStr(1, Item.Body, "Attachment") <> 0 Then
If Item.Attachments.Count = 0 Then
Application.Explorers(1).Activate
lngres = MsgBox("The email including attachment but not find!" & Chr(10) & "Still send it?", vbYesNo + vbDefaultButton2 + vbQuestion, "Prompt message")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End If
'check if add subject
If Item.Subject = "" Then
Application.Explorers(1).Activate
lngres = MsgBox("No Subject!" & Chr(10) & "Still send it?", vbYesNo + vbDefaultButton2 + vbQuestion, "Prompt message")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End Sub
|
