最近写邮件老忘主题,被说2次,都有点不好意思了,所以想了个解决办法
2015-04-09 14:17
323 查看
1、outlook中 alt+F11
2、写入下列代码
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeName(Item) <> "MailItem" Then Exit Sub
If Item.Subject = "" Then
Msg = "这个邮件没有主题!继续?" '定义消息文本
Style = vbYesNo + vbCritical + vbDefaultButton2 '定义对话框样式
Title = "错误信息" '定义标题文本
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then '用户按下“是”按钮
Cancel = False '进行某些操作
Else '用户按下“否”按钮
Cancel = True '进行某些操作
End If
End If
End Sub
2、写入下列代码
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeName(Item) <> "MailItem" Then Exit Sub
If Item.Subject = "" Then
Msg = "这个邮件没有主题!继续?" '定义消息文本
Style = vbYesNo + vbCritical + vbDefaultButton2 '定义对话框样式
Title = "错误信息" '定义标题文本
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then '用户按下“是”按钮
Cancel = False '进行某些操作
Else '用户按下“否”按钮
Cancel = True '进行某些操作
End If
End If
End Sub
相关文章推荐
- centos5下sendmail发送邮件时主题中文乱码的解决办法
- 邮件收到附件winmail.dat及解决办法
- Outlook Express 无法读取Html邮件的解决办法
- 最近oracle开发中遇到的一些问题及解决办法(三)待续
- 邮件里收到winmail.dat附件在linux下的解决办法- tnef+convmv
- 最近出现的p2psvr.exe恶意程序的解决办法
- JavaMail邮件主题乱码的解决方法
- 最近oracle开发中遇到的一些问题及解决办法(五)待续
- 最近oracle开发中遇到的一些问题及解决办法(一)待续
- .net中Smtp发送邮件需要认证的解决办法
- 邮件存储的三大困扰及用户解决办法
- JavaMail发送中文邮件中主题乱码的解决方法
- 关于不能正常收取台、港、澳及国外邮件的解决办法(完美解决)
- 最近oracle开发中遇到的一些问题及解决办法(二)待续
- 最近在搞邮件程序,没有办法,用到Base64,顺便写了这个工具
- 最近被问的最多的space上播放器url被自动清空的问题, 解决办法
- Foxmail接收邮件时,报出"网络操作失败","POP3:****"问题的解决办法
- vs2005 Recent Projects中不显示 最近的项目解决办法
- SQL数据库因为选定的用户拥有对象,所以无法除去该用户的解决办法