生活不赖

行在正确的路上,高手的道路艰难...
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

可以用宏来实现,将下面的代码插入到ThisOutlookSession模块:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
If Item.subject = "" Then
Cancel = True
MsgBox "发送前必须填写主题!"
End If
End Sub

要创建宏:

  1. 按ALT-F11进入VBA集成开发环境
  2. 在左上角的工程资源管理器中依次展开Project1/Microsoft Office Outlook 对象/ThisOutlookSession
  3. 右击ThisOutlookSession→查看代码
  4. 复制上面的代码并粘贴进代码窗口
  5. 关闭VBA编辑器