By using listi.net you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

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 | About | Feedback| Privacy | Terms of Service | @alecberg | FAQ | | Copyright © 2022 All Rights Reserved. Edit
This site uses cookies. If you don't want cookies and who doesn't want them as they're yummy, then leave.