listi.net

Listi.net

             


Outlook warning before you send an email



In Outlook press Alt+F11 to go to VBA

+ Project1
--+Microsoft Outlook Objects
-----+ThisOutlookSession

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
     'ok
Else
     Cancel = True
End If

End Sub



blog comments powered by Disqus
Home

Sign In
Sign Up

FAQ
About
Help
Contact Us
Terms and Conditions

Tweet List

Link to us