prompt to save sent messages

Posted on 2006-05-08
Last Modified: 2008-01-09
hello -

i would like to be asked whether or not to save my sent messages. lotus notes has this type of feature but i cant seem to find the same functionality in 0utlook 2003. i am already aware of how to save the sent messages using the tools -> options menu.

in an ideal world, after composing a message and clicking send, i would like a dialog box to pop up and ask if i would like to save the message with simply a "yes" or "no" selection, with the "yes" being highlighted when the box pops up.

any and all solutions are welcomed. vb, rules, etc.


Question by:hinchah
    LVL 17

    Expert Comment

    AFAIK there is no feature built onto outlook by default to do this.
    LVL 76

    Expert Comment

    by:David Lee
    Hi hinchah,

    I'm pretty sure I can do it with a script.  I'll post the code shortly.


    Author Comment

    BlueDevilFan - sounds great, look forward to it. Thanks.
    LVL 76

    Accepted Solution

    Ok, here it is.  Follow these instructions to use it.

    1.  Open Outlook.
    2.  Click Tools->Macro->Visual Basic Editor.
    3.  In the code editor expand Microsoft Outlook Objects and click on ThisOutlookSession.
    4.  Copy the code below and paste it into the editor.
    5.  Click the diskette item on the toolbar to save the changes.
    6.  Close the editor.
    7.  Click Tools->Macro->Security
    8.  Set the security level to Medium.
    9.  Close Outlook down.
    10.  Start Outlook back up.  You'll receive a prompt asking if you want to enable macros.  You have to enable them for this code to work.
    11.  Test the code by sending a message.  You'll be prompted to save a copy.  If you pick Yes, then a copy will be saved to Sent Items.  Choosing No will result in copy being saved.

    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
        If Item.Class = olMail Then
                If MsgBox("Do you want to save a copy of this message?", vbInformation + vbYesNo, "Save Message") = vbYes Then
                    Item.DeleteAfterSubmit = False
                    Set Item.SaveSentMessageFolder = Session.GetDefaultFolder(olFolderSentMail)
                End If
        End If
    End Sub

    Author Comment

    blue -
    thanks v much for the code.

    issue: still saving the message in the sent folder when i click "No"

    any suggestions?

    LVL 76

    Expert Comment

    by:David Lee
    Did you configure Outlook to not save sent items automatically?

    Author Comment


    my bad....i was following your instructions so closely i didn't think of it.

    works exactly as how i wrote the question. much appreciated.
    LVL 76

    Expert Comment

    by:David Lee
    No problem.  Glad I could help.

    Write Comment

    Please enter a first name

    Please enter a last name

    We will never share this with anyone.

    Featured Post

    Highfive Gives IT Their Time Back

    Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

    Get an idea of what you should include in an email disclaimer with these Top 5 email disclaimer tips.
    Resolve Outlook connectivity issues after moving mailbox to new Exchange 2016 server
    Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
    This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

    737 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    22 Experts available now in Live!

    Get 1:1 Help Now