Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

Troubleshooting
Research
Professional Opinions
Ask a Question
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

troubleshooting Question

Getting copies of sent messages into the inbox

Avatar of conviron
convironFlag for Canada asked on
Outlook
20 Comments1 Solution630 ViewsLast Modified:
Until an upgrade about a year ago I could get a copy of my sent emails in my inbox and when it was forwarded it showed sent and the date, just like when it appears in the sent box.  After the upgrade I couldn't get this functionality back.  Writing a rule dumped a copy of the sent email in the inbox but it actually says "this message has not been sent".  This defeats my purpose as it is pointless for me without the send information.  Our IT person has advised that it isn't possible to do this and then I find this code in a question asked a couple of years ago...

I followed the instructions but it's not working for me.  I am really excited, but am also relatively inexperienced with writing code so can't trouble-shoot on my own.

Would be the happiest girl in the world if someone could get this working for me !!
Thanks
Private  WithEvents olkSentItems As Outlook.Items, _
 
Private Sub Application_Startup()
    Set olkSentItems = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
 
Private Sub Application_Quit()
    Set olkSentItems = Nothing
End Sub
 
Private Sub olkSentItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
        Item.Move Session.GetDefaultFolder(olFolderInbox)
    End If
End Sub
ASKER CERTIFIED SOLUTION
Avatar of David Lee
Commented:
This problem has been solved!
Unlock 1 Answer and 20 Comments.
See Answers