Open Email and Copy Data from form submitted online

[Gintaras]

This macro transfers data from single message to Excel.

Macro Macro1468
Trigger F12     

Code:

Copy      Help

;Select the text in Outlook and run this macro.

spe 10

str s.getsel
ARRAY(str) a
int i
str rx=
;First: (.*)
;Last: (.*)
;Phone: (.*)
;Email: (.*)
;Address: (.*)
;City: (.*)
;State: (.*)
;Zip: (.*)
if(findrx(s rx 0 0 a)<0) mes- "data not found in the selected text" "" "x"

act "Excel"

for i 1 a.len
,a[i].trim
,a[i].setsel
,key R

key HD ;;next row

act "Outlook"