Outlook warning before you send an email

In Outlook press Alt+F11 to go to VBA

+ Project1
--+Microsoft Outlook Objects

Double click "ThisOutlookSession"

In Application Object (left drop-down) ItemSend Procedure (Right drop-down)

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If MsgBox("Proofread email and press Yes to send" & vbCrLf & _
  "1. Don't use pronouns" & vbCrLf & _
  "2. Don't use You" & vbCrLf & _
  "3. Check their vs. there type mistakes" & vbCrLf & _
  "4. Can words be removed?" & vbCrLf & _
  "5. If file attached is it correct, open and check it" & vbCrLf & _
  "6. Does email have a subject?", vbYesNo) = vbYes Then
     Cancel = True
End If

End Sub

blog comments powered by Disqus

Sign In
Sign Up

Contact Us
Terms and Conditions

Tweet List

Link to us