Changing the Send options

[Wanda]

Sent messages are important for tracking issues in our
department. We know you can set rules, but the correct
rules do not always apply. We want a pop-up to allow us
to select a folder to put a copy of our sent message to,
instead of it automatically going to the sent folder. Is
this possible? Not sure where to start on this one.
Thanks.

Wanda

 

[Sue Mosher [MVP]]

See http://www.slipstick.com/dev/code/setsavefolder.htm for a VBA code
sample that may do what you need.

 

[Ralph Hodenius [MS]]

Hi Wanda,

Here is a small sample that lets you select the inbox or the sent items
folder to save a copy.

1) Insert a userform

2) Add a combobox to the form

3) Add a command button to the form

4) Double click on the command button

5) Copy the following code in the command button function:
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

6) In the code section for ThisoutlookSession, copy the following code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim ns As NameSpace
Dim fi, fs As MAPIFolder

Set ns = Item.Application.GetNamespace("MAPI")
Set fi = ns.GetDefaultFolder(olFolderInbox)
Set fs = ns.GetDefaultFolder(olFolderSentMail)

'Fill the combobox on the userform with mailbox folders
UserForm1.ComboBox1.Clear
UserForm1.ComboBox1.AddItem fi.Name, 0
UserForm1.ComboBox1.AddItem fs.Name, 1

'Set the first item visible in the combobox
UserForm1.ComboBox1.ListIndex = 0

'Set the caption of the command button
UserForm1.CommandButton1.Caption = "Save in this Folder"

'Show the form
UserForm1.Show

Select Case UserForm1.ComboBox1.Value
Case fi.Name
Set Item.SaveSentMessageFolder = fi
Case fs.Name
Set Item.SaveSentMessageFolder = fs
End Select
End Sub

7) Sent a new message and you'll see that you can select the folder where a
copy of the message can be saved.



Regards,

Ralphho
Microsoft