可以用宏来实现,将下面的代码插入到ThisOutlookSession模块:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.subject = "" Then
Cancel = True
MsgBox "发送前必须填写主题!"
End If
End Sub
要创建宏:
- 按ALT-F11进入VBA集成开发环境
 - 在左上角的工程资源管理器中依次展开Project1/Microsoft Office Outlook 对象/ThisOutlookSession
 - 右击ThisOutlookSession→查看代码
 - 复制上面的代码并粘贴进代码窗口
 - 关闭VBA编辑器
 
                    
                
                
            
        
浙公网安备 33010602011771号