[RESOLVED] Adding warning box before sending outlook 2016 emails

[ToneMGMT]

Hi there

I have managed to add the following as a warning before I send emails in Outlook 2016:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If MsgBox("You are sending a mail. Have you checked your spelling, grammar, and formatting? Have you spelt the recipients name correctly? Do you have the correct recipients? Are you sure you want to send the e-mail?", vbYesNo + vbExclamation + vbApplicationModal + vbMsgBoxSetForeground, "External Mail Alert!") = vbNo Then
        Cancel = True
    End If
End Sub

Two questions:

1) How do I turn off the ping sound when it appears before I send an email?
2) It was working fine yesterday, however today I have booted up and sent an email and the warning didn't appear - How do can keep it on at all times when outlook 2016 is open?

[westconn1]

1. you could use a vba userform as a design your own msgbox
it would probably be possible to mute the volume while the msgbox opens, but probably not worth the amount of code

2. does your macro security allow macros to run by default?
did you actually save the code in your outlook before closing?

[ToneMGMT]

1. you could use a vba userform as a design your own msgbox
it would probably be possible to mute the volume while the msgbox opens, but probably not worth the amount of code

2. does your macro security allow macros to run by default?
did you actually save the code in your outlook before closing?

I can probably live with the sound, to be honest

Regarding the code running, I'm not hugely technical but pressing Alt + F11 I can still see the code fine. On the right-hand side, it is labelled as "this outlook session" - assume I need to change it to "all outlook sessions"? If that's the case how do I do that?

[westconn1]

assume I need to change it to "all outlook sessions"?

afaik no such thing, you are in the right place now, i do not believe events can be turned off in outlook as they can in other office applications, so they should always run, but if any other code is suspended (paused) the events will not fire

it should just work

[ToneMGMT]

afaik no such thing, you are in the right place now, i do not believe events can be turned off in outlook as they can in other office applications, so they should always run, but if any other code is suspended (paused) the events will not fire

it should just work

Sadly it doesn't - any advice or a way I can reset it maybe?

[westconn1]

did you check your macro trust centre settings, macros are disabled by default for unsigned macros

i did a quick test in outlook 2013 application.startup, did not work till i enabled all macros

this setting is not recommended, so up to you if you choose to, the alternative is to digitally sign your macros, google digitally sign outlook macros for more information
as i use office more, for running code, than working with documents, mine is always macro enabled

[PlausiblyDamp]

Hi there

I have managed to add the following as a warning before I send emails in Outlook 2016:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If MsgBox("You are sending a mail. Have you checked your spelling, grammar, and formatting? Have you spelt the recipients name correctly? Do you have the correct recipients? Are you sure you want to send the e-mail?", vbYesNo + vbExclamation + vbApplicationModal + vbMsgBoxSetForeground, "External Mail Alert!") = vbNo Then
        Cancel = True
    End If
End Sub

Two questions:

1) How do I turn off the ping sound when it appears before I send an email?
2) It was working fine yesterday, however today I have booted up and sent an email and the warning didn't appear - How do can keep it on at all times when outlook 2016 is open?

Not really adding anything technical to the discussion but more of a question on why this is needed? Outlook has an option to always check spelling before sending and more recent versions will check grammar as well. If you are running in a windows domain then this can even be forced by a group policy to prevent the users disabling it.

If that message box is displayed ever single time a user clicks send they will just get into the habit of clicking "yes" without even reading the message anyway.

[RobDog888]

PD is correct and what I was going to post. Use the built in option to check spelling before sending emails.

If unsigned macros are disabled by your works policy you can always create a cert and self sign it to get the macro to run.

[RobDog888]

PD is correct and what I was going to post. Use the built in option to check spelling before sending emails.

If unsigned macros are disabled by your works policy you can always create a cert and self sign it to get the macro to run.