We help IT Professionals succeed at work.
Get Started

Save email copy

Theva asked
Last Modified: 2013-11-30
Hi Experts,

I need Experts help to troubleshoot the attached script. The script by right should be able to save the sent email into separate network folder. But, for some reason this can’t be achieved.  I hope Experts can help me to rectify this problem. Attached is the mentioned script.

Dim WithEvents olkFolder As Outlook.Items

Private Sub Application_Quit()
    Set olkFolder = Nothing
End Sub

Private Sub Application_Startup()
    Set olkFolder = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub

Private Sub olkFolder_ItemAdd(ByVal Item As Object)
    'Edit the condition on the next line'
    If Left(Item.Subject, 12) = "TK Followup:" Then
        'Edit the folder path on the next line'
        Item.SaveAs "\\bc02\email\Report\" & Item.Subject & ".msg", olMSG
    End If
End Sub

Open in new window

Watch Question
Top Expert 2011
This problem has been solved!
Unlock 2 Answers and 13 Comments.
See Answers
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
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