Here is the code. Post back if you have any questions...
Option Explicit
'---------
'version 6.0.1
'---------
Dim JobNo As String, where As String
Dim DTName As String, IndexName As String
Dim JobFolder As String, IsFolder As String
Dim email As MailItem
Dim journal As JournalItem
Dim fso As...