What if someone could email you a set of test input values, and you had a listener module in your favorite VBscript automated test tool running on a box.

Is this feasible? Very.
Is this an AWESOME idea? no.
Is this a Nifty Idea? Yes.

Dim olFolderInbox
olFolderInbox = 6

Dim olook, olookNameSpace, olookEMailFolder
‘ Get Outlook application object – Outlook must be open!
Set olook = GetObject("","Outlook.Application")
‘ Get MAPI name space
Set olookNameSpace = olook.GetNameSpace("MAPI")

‘ Get the inbox EMail Folder.
Set olookEMailFolder = olookNameSpace.GetDefaultFolder(olFolderInbox)
Set colItems = olookEMailFolder.Items

‘ now extract all the unread emails with a given subject line
Dim nCounter
nCounter = 0
For Each loItem In colItems
    If loItem.unRead Then
        If loItem.Subject = "RUN ME, I AM A TEST" Then
                nCounter = nCounter + 1

                strEmailBody = loItem.Body     
                OutputTable("uname", nCounter) = GetLineTextAfter("Customer Full Name:", strEmailBody)        
                OutputTable("name", nCounter) = GetLineTextAfter("First Name:", strEmailBody)
                OutputTable("surname", nCounter) = GetLineTextAfter("Last Name:", strEmailBody)
                OutputTable("street", nCounter) = GetLineTextAfter("Address:", strEmailBody)
                OutputTable("city", nCounter) = GetLineTextAfter("City:", strEmailBody)
                OutputTable("state", nCounter) = GetLineTextAfter("State:", strEmailBody)
                OutputTable("zipcode", nCounter) = GetLineTextAfter("Zip Code:", strEmailBody)
                OutputTable("phone", nCounter) = GetLineTextAfter("Phone:", strEmailBody)
                OutputTable("fieldwiretra1", nCounter) = GetLineTextAfter("Account Name/CCN:", strEmailBody)
                OutputTable("fieldwiretra2", nCounter) = GetLineTextAfter("Account Number/Exp Date:", strEmailBody)
                OutputTable("fieldwiretra3", nCounter) = GetLineTextAfter("ABA Routing/CSC:", strEmailBody)
                OutputTable("fieldwiretra4", nCounter) = GetLineTextAfter("Initial Payment:", strEmailBody)
                OutputTable("fieldwiretra5", nCounter) = GetLineTextAfter("Subsequent Payment:", strEmailBody)
                OutputTable("fieldwiretra6", nCounter) = GetLineTextAfter("Recurring Payment Frequency:", strEmailBody)
                OutputTable("parentuserid", nCounter) = GetLineTextAfter("Affiliate ID: ", strEmailBody)
                OutputTable("add_campaign_id", nCounter) = GetLineTextAfter("Campaigna:", strEmailBody)
                OutputTable("tm_campaignid", nCounter) = GetLineTextAfter("Campaignb:", strEmailBody)
                OutputTable("totalcost", nCounter) = GetLineTextAfter("Raw Sale:", strEmailBody)
‘now input all of the extracted data into the webforms!
                Browser(1).Page("PAP Tests").Link("Merchants Control Panel").Click
                Browser(1).Page("Post Affiliate").Edit("username").Value="dorklogic@gmail.com"
                Browser(1).Page("Post Affiliate").Edit("rpassword").Value="dorknuts"
                Browser(1).Page("Post Affiliate").Button("webbutton").Click
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office").Link("Affiliates1").Click
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_1").Button("webbutton").Click
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("uname").Value=OutputTable("uname", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("pwd1").Value="password"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("pwd2").Value="password"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("name").Value=OutputTable("name", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("surname").Value=OutputTable("surname", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("company_name").Value="Franklin Financial Group"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("street").Value=OutputTable("street", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("city").Value=OutputTable("city", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("state").Value=OutputTable("state", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").List("country").Select="United States"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("zipcode").Value=OutputTable("zipcode", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("phone").Value=OutputTable("phone", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("weburl").Value="http://www.get-financed.org"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").RadioGroup("overwrite_cookie").Select="1"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("fax").Value=""
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").List("status").Select="Approved"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").CheckBox("flags").Checked=True
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").List("add_campaign_id").Select=OutputTable("add_campaign_id", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").RadioGroup("payout_type").Select="wiretran"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("fieldwiretra1").Value=OutputTable("fieldwiretra1", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("fieldwiretra2").Value=OutputTable("fieldwiretra2", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("fieldwiretra3").Value=OutputTable("fieldwiretra3", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("fieldwiretra4").Value=OutputTable("fieldwiretra4", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("fieldwiretra5").Value=OutputTable("fieldwiretra5", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Edit("fieldwiretra6").Value=OutputTable("fieldwiretra6", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").List("minpayout").Select="500"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Link("Find3").Click
                Browser(2).Page("Merchants").Edit("affsel_custom1data").Value=""
                Browser(2).Page("Merchants").Edit("affsel_custom2data").Value=""
                Browser(2).Page("Merchants").List("affsel_custom3").Select="Referrer ID"
                Browser(2).Page("Merchants").Edit("affsel_custom3data").Value=OutputTable("parentuserid", nCounter)
                Browser(2).Page("Merchants").List("affsel_custom4").Select="Country"
                Browser(2).Page("Merchants").Edit("affsel_custom4data").Value="United States"
                Browser(2).Page("Merchants").Button("webbutton").Click
                Browser(2).Page("Merchants_1").Image("select").Click
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_2").Button("webbutton").Click
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_3").Link("Create transaction").Click
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").Link("Find1").Click
                Browser(3).Page("Merchants").Edit("affsel_custom1data").Value=""
                Browser(3).Page("Merchants").Edit("affsel_custom2data").Value=""
                Browser(3).Page("Merchants").List("affsel_custom3").Select="Country"
                Browser(3).Page("Merchants").Edit("affsel_custom3data").Value="United States"
                Browser(3).Page("Merchants").List("affsel_custom4").Select="Username (email)"
                Browser(3).Page("Merchants").Edit("affsel_custom4data").Value=OutputTable("uname", nCounter)
                Browser(3).Page("Merchants").Button("webbutton").Click
                Browser(3).Page("Merchants_1").Image("select").Click
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").List("tm_campaignid").Select=OutputTable("tm_campaignid", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").List("tm_transtype").Select="per sale"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").Edit("tm_totalcost").Value=OutputTable("totalcost", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").Edit("tm_orderid").Value=OutputTable("uname", nCounter)
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").Edit("tm_productid").Value=""
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").Edit("tm_data1").Value=""
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").Edit("tm_data2").Value=""
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").RadioGroup("tm_createtype").Select="auto"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").Edit("tm_data3").Value="Data3"
                Browser(1).Page("Get Financed Affiliate Campaign & Statistics Office_4").Button("webbutton").Click

                loItem.unRead = False   ‘ mark as read and executed

        End If
       
    End if
Next