asked on 4/19/2017

Move Sent Item to a specified folder instead of Sent Folder

At my company the managers Inbox is shared with their secretary. Sometimes the manager will need to send a private email that they don't want their secretary to see. I have set up an account for the user to use instead of their regular email.

Item.SentOnBehalfOfName = JacqueS Private
When they are sending an email they will select this name in the From box.

The subfolder I want to save the sent emails to is called Sent_Private. I have found how to save into another folder under the main Mailbox folder but I need it under the folder JacqueS Private which is at the same level as the main Mailbox folder.

This needs to be done automatically. I can't setup a rule and it cannot be done manually.

Please help.

Outlook VBA

Last Comment

Jacque Scott

7/19/2017

CompProbSolv

4/19/2017

I'm not sure of the actual commands, but can suggest a general method for accomplishing it.

After sending the email, search for it in Sent Items and then move it to the appropriate folder.
The tricky part is in identifying the email. I'd bet that if you matched the sender, the recipient, the time, and the subject, you'd be fairly certain to get it right every time.

Of course, there would be a very short time where it appeared in Sent Items and there's a chance that the secretary would see it.

darbid73

4/19/2017

I would be interested to know why you say rules do not work.

Here are your non-code options, which does say that adding a rule is an option.

Are you also willing to write VBA code or an addin for this task?

Jacque Scott

4/19/2017

ASKER

I should have said I was told I can't use the rules option. I need to write a VBA program that will automatically run when an item is sent.

darbid73

5/4/2017

Have you found a solution to this problem?

Jacque Scott

5/8/2017

ASKER

No, I still have not found a solution.

Serge Fournier

6/19/2017

to add in "thisoutlooksession" in macros (alt f11)

'=== trigger an event if an item is sent
Dim WithEvents colSentItems As Items

Private Sub colSentItems_ItemAdd(ByVal item As Object)
'=== modifier la catégorie avant d'envoyer un message
   If item.Class = olMail Then

    'move the item (mail) to your secret folder if it meet some parameters
         
   End If
End Sub

Open in new window

some message parameters to filter:

       dim mmessage As Outlook.MailItem
     suj_ok = mmessage.Subject
            msg_to_ok = mmessage.To
            msg_from_ok = mmessage.SenderName
            msg_cc_ok = mmessage.CC

Open in new window

you need to move the message: (do some testing, cause you can move it somewhere you might never find it)

Dim projetdir As Outlook.MAPIFolder
    Dim dos_rac As Outlook.NameSpace  '=== racine de tous les dossiers
    Set dos_rac = Outlook.GetNamespace("MAPI")

Set projetdir = dos_rac.Folders("userfolder").Folders("inbox").Folders("secretfolder"))
mmessage.Move projetdir

Open in new window

if your VBA is not good enough, i'll do a functional code and test it

since i did not test, maybe you will have to do a copy of the message before moving it, then deleting the original
mescopy = mmessage.copy
move it
delete original

Jacque Scott

6/20/2017

ASKER

Thank you Serge. I'm working on it now. I am not good at VBA but I'll try it first.

Thanks!

ASKER CERTIFIED SOLUTION

Serge Fournier

6/20/2017