VBScript Array help

I receive emails like this everyday:

The file Resume.docx has been sent with the subject Resume0213, and has been archived.

Original Message:

  Date: Wed, 01 Oct 2014 13:42:25 +0100
  Subject: Resume0213
  From: abc@xyz.com
  To: <def@pqr.com>

I have a vbscript which when executed, would go through my emails in a particular folder and compile them, and would email me that output.

The relevant portion of the code is below:

strBuf = "<tr><td>Date</td><td>Time</td><td>File</td><td>Subject</td><td>Action</td><td>From</td><td>To</td></tr>"
Set olkApp = CreateObject("Outlook.Application")
Set olkSes = olkApp.GetNamespace("MAPI")
olkSes.Logon olkApp.DefaultProfileName
Set olkFld = OpenOutlookFolder(FOLDER_PATH)
For Each olkMsg In olkFld.Items
    arrLin = Split(olkMsg.Body, vbCrLf)
    arrWrd = Split(arrLin(0), " ")
    strDat = FormatDateTime(olkMsg.ReceivedTime, vbShortDate)
    strTim = FormatDateTime(olkMsg.ReceivedTime, vbShortTime)
    strFil = arrWrd(2)
    strSub = arrWrd(9)
    strAct = arrWrd(13)
    arrWrd = Split(arrLin(6))
    strFrom = arrWrd(3)
    arrWrd = Split(arrLin(7))
    strTo = arrWrd(3)
    strBuf = strBuf & "<tr><td>" & strDat & "</td>" _
                    & "<td>" & strTim & "</td>" _
                    & "<td>" & strFil & "</td>" _
                    & "<td>" & strSub & "</td>" _
                    & "<td>" & strAct & "</td>" _
                    & "<td>" & strFrom & "</td>" _
                    & "<td>" & strTo & "</td></tr>"
Next

Open in new window



The problem I have is that the To: line has special characters < and >, which might be interfering with the script.

I recieve compiled emails like this:

Date            Time      File            Subject            Action            From            To
10/1/2014      08:41      Resume.docx      Resume0213      archived.      abc@xyz.com
10/1/2014      02:32      Cover.txt      Coverletter      archived.      abc@xyz.com
10/1/2014      02:19      Resume.doc      Resume for the post of -  archived.      tre@opt.com

As you can see, the To field is empty.

Please help me with this. Thank you.
LVL 21
netcmhAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rgonzo1971Commented:
Maybe

strTo = Replace(Replace(arrWrd(3), ">", "&gt"), "<", "&lt")
0
netcmhAuthor Commented:
Kinda worked.

I'm getting this in the To: Column now

&ltabc@xyz.com>

How do I get rid of the &lt and the > ?
0
Rgonzo1971Commented:
So maybe

strTo = Replace(Replace(arrWrd(3), ">", ""), "<", "")
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
netcmhAuthor Commented:
Thanks. That works.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.