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
Private Sub Application_Startup()
Set olkFolder = Session.GetDefaultFolder(olFolderSentMail).Items
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