rprineppi
asked on
Save Sent e-mails in chosen folder
I know that it is possible to save a sent e-mail in a folder of my choice by choosing options & designating the desired folder. Lotus Notes has a couple of neat options when you send e-mails. If you press the send button a dialog box opens asking if you want to save a copy of the e-mail in your sent folders or not. Another feature is that when you send an e-mail you can press the send button or the send & file button. If you press send & file a box pops up asking you where to save your sent message. Is there a way of setting up similar options in Outlook, or can a macro be written that will allow similar functionality in Outlook? If so how?
Regards,
Rob
Regards,
Rob
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Nelsonjr71,
This is fantastic but can I get it to ask me which folder to put move it to at the time I send it rather than specifiying the folder when I set the rule? If I don't specify when I create the rule it doesn't seem to like it and I can't see an item that allows me to specify when I send.
pushpamumara,
Thanks for the hyperlink. I will study the material to see what other tips I can find.
.......Rob
This is fantastic but can I get it to ask me which folder to put move it to at the time I send it rather than specifiying the folder when I set the rule? If I don't specify when I create the rule it doesn't seem to like it and I can't see an item that allows me to specify when I send.
pushpamumara,
Thanks for the hyperlink. I will study the material to see what other tips I can find.
.......Rob
Rob,
This will do exactly what you were asking for:
Go to tools> Macro > click 'Macros'
Type in 'ChooseFolder' (or any other name as long as no spaces)
Then click 'CREATE'
Cut an paste this code between the dotted lines:
--------------------------
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Set objNS = GetNamespace("MAPI")
Set objFolder = objNS.PickFolder
If Not objFolder Is Nothing Then
' user didn't hit cancel or 'x'
Item.DeleteAfterSubmit = False
Set Item.SaveSentMessageFolder
Else
' canceled by the user
Item.DeleteAfterSubmit = True
End If
--------------------------
Make sure it was pasted between
Sub ChooseFolder()
and
End Sub
Next click 'File' and 'Save Project'
Now close the editor window by clicking the X in the upper right corner.
Now completely close out of Outlook for about 10 seconds (to make sure it fully exits)
Then restart outlook and try sending an email. I tried it and it is working great on mine.
When sending you will be prompted where to save the folder and if you don't want to save at all, just click cancel and the sent messege won't be saved.
This will do exactly what you were asking for:
Go to tools> Macro > click 'Macros'
Type in 'ChooseFolder' (or any other name as long as no spaces)
Then click 'CREATE'
Cut an paste this code between the dotted lines:
--------------------------
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Set objNS = GetNamespace("MAPI")
Set objFolder = objNS.PickFolder
If Not objFolder Is Nothing Then
' user didn't hit cancel or 'x'
Item.DeleteAfterSubmit = False
Set Item.SaveSentMessageFolder
Else
' canceled by the user
Item.DeleteAfterSubmit = True
End If
--------------------------
Make sure it was pasted between
Sub ChooseFolder()
and
End Sub
Next click 'File' and 'Save Project'
Now close the editor window by clicking the X in the upper right corner.
Now completely close out of Outlook for about 10 seconds (to make sure it fully exits)
Then restart outlook and try sending an email. I tried it and it is working great on mine.
When sending you will be prompted where to save the folder and if you don't want to save at all, just click cancel and the sent messege won't be saved.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Oh yeah, you'll probably want to delete the rules you created previously since you will not be needing them.
ASKER
Nelsonjr71,
That works well but in a way I wasn't expecting. The sent message seems to stay in the Outbox until it is sent & then is transferred to the file I nominated. In some ways that makes it easier to see where my messages are. Thanks very much for your time & effort on this one - it's great.
Regards,
Rob
That works well but in a way I wasn't expecting. The sent message seems to stay in the Outbox until it is sent & then is transferred to the file I nominated. In some ways that makes it easier to see where my messages are. Thanks very much for your time & effort on this one - it's great.
Regards,
Rob
Rob-
No problem. I'm glad I could help!
No problem. I'm glad I could help!
Click "Tools" on the menu bar>> then click "Rules Wizard.."
When the rules wizard box opens, click the "New.." button.
Now click the radio button marked "Start from a blank rule"
Next click on the sentence "Check messages after sending" so that it is hi-lighted and then click "Next"
Put a check mark in "through the specified account" and then in text box at the bottom, click the underlined word "specified"
Now select the email account you want to apply this rule to. (You will have to repeat these steps for multilple accounts)
Click "Next" and put a check in the box by "move a copy to the specified folder"
Again click the word "specified" in the lower text box. Now you can select an existing folder or click "New" to create a new folder. After that click "ok" and click "Finish"
As you probably seen in the options while creating this rule, there are many ways you can get creative and specific to meet your needs.