Outlook发邮件时忘记写主题或者添加附件的脚本解决方法:
按ALT+F11进入VBA集成开发环境,在左上角的工程资源管理器中依次展开Project1/Microsoft Office Outlook 对象/ThisOutlookSession,双击ThisOutlookSession,打开代码输入界面,贴入下面的代码,保存退出即可。
以后每次发邮件outlook会自动调用该函数检查是否有主题、是否漏附件。
Private Sub Application_ItemSend(ByVal Item As Object,Cancel As Boolean)
Dim lngres As Long
'检查邮件是否添加附件
If InStr(1, Item.Body, "附件") <> 0 Then
If Item.Attachments.Count = 0 Then
Application.Explorers(1).Activate
lngres = MsgBox("邮件内容中包含附件,但是没有发现附件!" & Chr(10) & "仍然发送?",_
vbYesNo + vbDefaultButton2 + vbQuestion,"提示")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End If
'检查是否写主题
If Item.Subject = "" Then
Application.Explorers(1).Activate
lngres = MsgBox("邮件还没有写主题呢!" & Chr(10) & "仍然发送?",_
vbYesNo + vbDefaultButton2 + vbQuestion,"提示")
If lngres = vbNo Then
Cancel = True
Item.Display
Exit Sub
End If
End If
End Sub