Solved

VBScript Array help

Posted on 2014-10-01
4
224 Views
Last Modified: 2014-10-01
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.
0
Comment
Question by:netcmh
  • 2
  • 2
4 Comments
 
LVL 48

Expert Comment

by:Rgonzo1971
ID: 40354571
Maybe

strTo = Replace(Replace(arrWrd(3), ">", "&gt"), "<", "&lt")
0
 
LVL 20

Author Comment

by:netcmh
ID: 40354584
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
 
LVL 48

Accepted Solution

by:
Rgonzo1971 earned 500 total points
ID: 40354591
So maybe

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

Author Comment

by:netcmh
ID: 40354617
Thanks. That works.
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Set OWA language and time zone in Exchange for individuals, all users or per database.
Use email signature images to promote corporate certifications and industry awards.
Learn the basics of if, else, and elif statements in Python 2.7. Use "if" statements to test a specified condition.: The structure of an if statement is as follows: (CODE) Use "else" statements to allow the execution of an alternative, if the …
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now