Move sent items

B

Brian Tetlow

I am running an IMAP server and am wanting to move sent emails to the
"Sent" folder on the IMAP server.

I have it currently set up as a rule but want to change to VB as th
rule
turns itself off from time to time for unknown reasons. I have th
rule
set up on three computers and it turns off on each computer from time
to time.


I have added the following sub in "Microsoft Office Outlook Objects
"Thisoutlooksession"
Initially, I thought I would just get it to move the sent emails to th
Inbox.

Private Sub olSentItems_ItemAdd(ByVal Item As Object)
Item.Move
Application.GetNamespace("MAPI").GetDefaultFolder (olFolderInbox)
End Sub

The sent emails are not moved to either the Personal Folders Inbox o
the Inbox on the IMAP server. I have tried it with "Saves copies O
messages In Sent Items folder" checked and unchecked and also with th
rule off.

I would appreciate any advice.

Thanks
 
Top