Outlook发邮件时忘记写主题的解决方法

最新推荐文章于 2023-02-01 18:56:21 发布

最新推荐文章于 2023-02-01 18:56:21 发布 · 182 阅读

本文介绍了一个简单的方法来防止在使用Outlook发送邮件时忘记填写主题或遗漏附件。通过在Outlook中添加VBA代码，可以在点击发送前进行检查，并弹出提示窗口让用户确认是否继续发送。

用惯了Foxmail添加主题提示，在Outlook下两次发邮件忘记写主题了，实在不应该！分享一个解决方案。

Outlook发邮件时忘记写主题的解决方法：

按ALT+F11进入VBA集成开发环境，在左上角的工程资源管理器中依次展开Project1/Microsoft Office Outlook 对象/ThisOutlookSession，双击ThisOutlookSession，打开代码输入界面，贴入下面的代码，保存退出即可。

以后每次发邮件outlook会自动调用该函数检查是否有主题、是否漏附件。在outlook2007下测试通过，2003应该也可以通过。

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