Solved

VBScript Array help

Posted on 2014-10-01
4
233 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
4 Comments
 
LVL 51

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 51

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

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you have clients or friends from around the world, it becomes a challenge to arrange a meeting or effectively manage your time. This is where Outlook's capability to show 2 time zones in one calendar comes in handy.
This tutorial will teach you the core code needed to finalize the addition of a watermark to your image. The viewer will use a small PHP class to learn and create a watermark.
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…

739 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