• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1091
  • Last Modified:

prompt to save sent messages

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.

thanks!

0
hinchah
Asked:
hinchah
  • 4
  • 3
1 Solution
 
upul007Commented:
AFAIK there is no feature built onto outlook by default to do this.
0
 
David LeeCommented:
Hi hinchah,

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

Cheers!
0
 
hinchahAuthor Commented:
BlueDevilFan - sounds great, look forward to it. Thanks.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
David LeeCommented:
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)
                Item.Save
            End If
    End If
End Sub
0
 
hinchahAuthor Commented:
blue -
thanks v much for the code.

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

any suggestions?

0
 
David LeeCommented:
Did you configure Outlook to not save sent items automatically?
0
 
hinchahAuthor Commented:
ahaha.

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.
0
 
David LeeCommented:
No problem.  Glad I could help.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 4
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now