Results 1 to 5 of 5
  1. #1
    3 Star Lounger
    Join Date
    Mar 2004
    Location
    London, Gtr London, England
    Posts
    299
    Thanks
    0
    Thanked 0 Times in 0 Posts

    disable send button in email messge window? (WinXP OL2003)

    After a couple of close calls, I want a way to stop myself hitting 'send' instead of 'save' in the message editing window. I create lots of emails, save them, then have them confirmed before sending, which can be done all in one go. I must avoid sending one before time, but have to prepare them in advance. I tried using customise to remove the Send button, but it is itself disabled in the tools menu. Maybe someone has a solution which will: 1. prevent sending when I hit the send button (or warn me); 2. let me send all selected emails (saved to my inbox) when all is ready. Many thanks for any help.

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: disable send button in email messge window? (WinXP OL2003)

    From Outlook MVP Eric Legault:

    You can make Outlook ask for confirmation befire sending by pasting the code below into your ThisOutlookSession VBA module:
    <code>
    Dim WithEvents objInspectors As Inspectors
    Dim WithEvents objMyNewMail As MailItem

    Private Sub Application_Startup()
    Set objInspectors = Application.Inspectors
    End Sub

    Private Sub Application_Quit()
    Set objInspectors = Nothing
    Set objMyNewMail = Nothing
    End Sub

    Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Not Inspector.CurrentItem.Class = olMail Then Exit Sub
    Set objMyNewMail = Inspector.CurrentItem
    End Sub

    Private Sub objMyNewMail_Send(Cancel As Boolean)
    Cancel =(MsgBox("Are you sure you want to send this message?", _
    vbYesNo + vbQuestion + vbDefaultButton2) = vbNo)
    End Sub</code>

  3. #3
    3 Star Lounger
    Join Date
    Mar 2004
    Location
    London, Gtr London, England
    Posts
    299
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: disable send button in email messge window? (W

    Edited by HansV to replace Word doc with cropped version of the screenshot that it contained - saves the reader a few clicks

    Hi Hans, there is no existing module in 'ThisOutlookSession' and when I insert one it gets put into a folder called 'Modules' under the 'Project1' root, becoming a sibling of 'Microsoft Office Outlook Objects'. I cant move it anywhere, and it did not ask me to confirm when I sent a test email. I hope I succed in attaching a .doc file with a screenshot of the result. Thanks Frank
    Attached Images Attached Images

  4. #4
    3 Star Lounger
    Join Date
    Mar 2004
    Location
    London, Gtr London, England
    Posts
    299
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: disable send button in email messge window? (W

    well I had another go and got the code pasted into the right module, i had to 'show contents' i think. The macro now runs!
    Thank you Hans, and Eric.

  5. #5
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: disable send button in email messge window? (W

    The code won't do anything that way. ThisOutlookSession *is* a module.

    You should double-click ThisOutlookSession and paste the code there. Quit and restart Outlook after that. Make sure that macro security is not set to High.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •