If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Confirm before sending?
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 |
#2
|
|||
|
|||
Confirm before sending?
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 |
#3
|
|||
|
|||
Confirm before sending?
Thanks! - How do I uninstall it?
"Michael Bauer [MVP - Outlook]" wrote in message ... 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 |
#4
|
|||
|
|||
Confirm before sending?
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]" wrote in message ... 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 |
#5
|
|||
|
|||
Confirm before sending?
Thanks - just open alt f11 to delete the code?
"Michael Bauer [MVP - Outlook]" wrote in message ... 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]" wrote in message ... 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 |
Thread Tools | |
Display Modes | |
|
|