PC Review


Reply
Thread Tools Rate Thread

Confirm before sending?

 
 
boe
Guest
Posts: n/a
 
      3rd Apr 2010
I have a client that accidentally sends e-mails before completing them on a
regular basis. They would actually like confirmation before sending any
e-mail.

I found this reference for VB code but I don't know how to edit or apply it
as I know NOTHING about VB
-
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim intRes As Integer
Dim strMsg As String
strMsg = "Do you really want to send this message?"
intRes = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Confirm Send ")
If intRes = vbNo Then
Cancel = True
End If
End Sub

 
Reply With Quote
 
 
 
 
Michael Bauer [MVP - Outlook]
Guest
Posts: n/a
 
      3rd Apr 2010


Open the VBA editor (alt+f11), ensure you see the project explorer (ctrl+r),
double click the "ThisOutlookSession" module to open it, paste the code into
that module.

If the code won't be executed, check the security settings in Outlook
(Tools/Macros/Security).

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
<http://www.vboffice.net/product.html?lang=en>


Am Fri, 2 Apr 2010 18:59:49 -0700 schrieb boe:

> I have a client that accidentally sends e-mails before completing them on

a
> regular basis. They would actually like confirmation before sending any
> e-mail.
>
> I found this reference for VB code but I don't know how to edit or apply

it
> as I know NOTHING about VB
> -
> Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
> Dim intRes As Integer
> Dim strMsg As String
> strMsg = "Do you really want to send this message?"
> intRes = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Confirm Send ")
> If intRes = vbNo Then
> Cancel = True
> End If
> End Sub

 
Reply With Quote
 
boe
Guest
Posts: n/a
 
      3rd Apr 2010
Thanks! - How do I uninstall it?

"Michael Bauer [MVP - Outlook]" <(E-Mail Removed)> wrote in message
news:1n3nrgv8vsju5$.(E-Mail Removed)...
>
>
> Open the VBA editor (alt+f11), ensure you see the project explorer
> (ctrl+r),
> double click the "ThisOutlookSession" module to open it, paste the code
> into
> that module.
>
> If the code won't be executed, check the security settings in Outlook
> (Tools/Macros/Security).
>
> --
> Best regards
> Michael Bauer - MVP Outlook
> Category Manager - Manage and share your categories:
> SAM - The Sending Account Manager:
> <http://www.vboffice.net/product.html?lang=en>
>
>
> Am Fri, 2 Apr 2010 18:59:49 -0700 schrieb boe:
>
>> I have a client that accidentally sends e-mails before completing them on

> a
>> regular basis. They would actually like confirmation before sending
>> any
>> e-mail.
>>
>> I found this reference for VB code but I don't know how to edit or apply

> it
>> as I know NOTHING about VB
>> -
>> Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
>> Dim intRes As Integer
>> Dim strMsg As String
>> strMsg = "Do you really want to send this message?"
>> intRes = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Confirm Send ")
>> If intRes = vbNo Then
>> Cancel = True
>> End If
>> End Sub


 
Reply With Quote
 
Michael Bauer [MVP - Outlook]
Guest
Posts: n/a
 
      4th Apr 2010


Hm, one option is to remove Outlook or even the entire Office and make a
clean installation of it. Another one, which I'd prefer, is to just delete
the code you had pasted as descriped.

--
Best regards
Michael Bauer - MVP Outlook
Category Manager - Manage and share your categories:
SAM - The Sending Account Manager:
<http://www.vboffice.net/product.html?lang=en>


Am Sat, 3 Apr 2010 08:27:20 -0700 schrieb boe:

> Thanks! - How do I uninstall it?
>
> "Michael Bauer [MVP - Outlook]" <(E-Mail Removed)> wrote in message
> news:1n3nrgv8vsju5$.(E-Mail Removed)...
>>
>>
>> Open the VBA editor (alt+f11), ensure you see the project explorer
>> (ctrl+r),
>> double click the "ThisOutlookSession" module to open it, paste the code
>> into
>> that module.
>>
>> If the code won't be executed, check the security settings in Outlook
>> (Tools/Macros/Security).
>>
>> --
>> Best regards
>> Michael Bauer - MVP Outlook
>> Category Manager - Manage and share your categories:
>> SAM - The Sending Account Manager:
>> <http://www.vboffice.net/product.html?lang=en>
>>
>>
>> Am Fri, 2 Apr 2010 18:59:49 -0700 schrieb boe:
>>
>>> I have a client that accidentally sends e-mails before completing them

on
>> a
>>> regular basis. They would actually like confirmation before sending
>>> any
>>> e-mail.
>>>
>>> I found this reference for VB code but I don't know how to edit or apply

>> it
>>> as I know NOTHING about VB
>>> -
>>> Private Sub Application_ItemSend(ByVal Item As Object, Cancel As

Boolean)
>>> Dim intRes As Integer
>>> Dim strMsg As String
>>> strMsg = "Do you really want to send this message?"
>>> intRes = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Confirm Send ")
>>> If intRes = vbNo Then
>>> Cancel = True
>>> End If
>>> End Sub

 
Reply With Quote
 
boe
Guest
Posts: n/a
 
      5th Apr 2010
Thanks - just open alt f11 to delete the code?

"Michael Bauer [MVP - Outlook]" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
>
> Hm, one option is to remove Outlook or even the entire Office and make a
> clean installation of it. Another one, which I'd prefer, is to just delete
> the code you had pasted as descriped.
>
> --
> Best regards
> Michael Bauer - MVP Outlook
> Category Manager - Manage and share your categories:
> SAM - The Sending Account Manager:
> <http://www.vboffice.net/product.html?lang=en>
>
>
> Am Sat, 3 Apr 2010 08:27:20 -0700 schrieb boe:
>
>> Thanks! - How do I uninstall it?
>>
>> "Michael Bauer [MVP - Outlook]" <(E-Mail Removed)> wrote in message
>> news:1n3nrgv8vsju5$.(E-Mail Removed)...
>>>
>>>
>>> Open the VBA editor (alt+f11), ensure you see the project explorer
>>> (ctrl+r),
>>> double click the "ThisOutlookSession" module to open it, paste the code
>>> into
>>> that module.
>>>
>>> If the code won't be executed, check the security settings in Outlook
>>> (Tools/Macros/Security).
>>>
>>> --
>>> Best regards
>>> Michael Bauer - MVP Outlook
>>> Category Manager - Manage and share your categories:
>>> SAM - The Sending Account Manager:
>>> <http://www.vboffice.net/product.html?lang=en>
>>>
>>>
>>> Am Fri, 2 Apr 2010 18:59:49 -0700 schrieb boe:
>>>
>>>> I have a client that accidentally sends e-mails before completing them

> on
>>> a
>>>> regular basis. They would actually like confirmation before sending
>>>> any
>>>> e-mail.
>>>>
>>>> I found this reference for VB code but I don't know how to edit or
>>>> apply
>>> it
>>>> as I know NOTHING about VB
>>>> -
>>>> Private Sub Application_ItemSend(ByVal Item As Object, Cancel As

> Boolean)
>>>> Dim intRes As Integer
>>>> Dim strMsg As String
>>>> strMsg = "Do you really want to send this message?"
>>>> intRes = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Confirm Send ")
>>>> If intRes = vbNo Then
>>>> Cancel = True
>>>> End If
>>>> End Sub


 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Sending emails from external database without confirm in Outlook 2 =?Utf-8?B?amhh?= Microsoft Outlook Discussion 3 22nd Jun 2007 07:59 AM
Outlook should confirm before sending blank subject lines =?Utf-8?B?Y2FuZXRvYWQ=?= Microsoft Outlook Discussion 1 11th Aug 2005 03:37 PM
Add "confirm" stage to avoid sending email unintentionally with O. =?Utf-8?B?RG9k?= Microsoft Outlook Discussion 2 20th Dec 2004 05:45 PM
confirm =?Utf-8?B?Y29uZmlybSBkYXRhIG9uIGEgYWNjZXNzIHBhZ2Ug Microsoft Access Form Coding 1 26th Nov 2004 05:19 PM
confirm sending a message Santistas Microsoft Outlook Discussion 4 8th Mar 2004 06:07 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 06:57 AM.