Det er flere ting en bedrift kan gjøre for å effektivisere og forbedre saksbehandlingstiden. En er parsing e-postmeldinger. For eksempel kan e-post generert fra bedriftens hjemmeside tvinge brukeren til å velge et emne fra en nedtrekksliste . Disse e-postene kan analyseres etter emne. De med emnet " Tech Support " go to a Tech Support køen. De med emnet " Billing " gå til fakturering avdelingen . Instruksjoner
en

Åpne Notisblokk fra alle Windows-datamaskin . Deklarere en variabel til å lagre en referanse til FileSystemObject ved å skrive " Dim OFS " der " OFS " er variabelnavnet . Også deklarere en variabel til å holde hver linje som leses fra e-postmeldingen ,
2

Lag referansen til selve FileSystemObject " Dim Sline . " : En

Set OFS = CreateObject ( " Scripting.FileSystemObject ")
3

Åpne e-postmeldingen som er lagret som en tekstfil . Loop gjennom hele filen , lese linje for linje til du enten finne det du søker og kan avslutte , eller du kommer til slutten av filen:
p Med oFS.OpenTextFile ( " myEmailMsg.txt " , en )

gjøre før . AtEndOfStream

Sline = . readline
4

Finn en bestemt karakter som " @ " for å validere at brukeren som sendte e-mailen en verdi retur e-postadresse . Bruk " Split" funksjonen til å finne et bestemt tegn : en

Split ( Sline , "@" )
5

Steng sløyfen og stoppe behandling ved koding " Loop " for å avslutte "Gjør Frem " og " End With " for å avslutte "Med oFS.OpenTextFile ( " myEmailMsg.txt ", 1 ) . " Lagre filen med filtypen " . Vbs " for å lage en VBScript fil .