QM file Export Options.

[TheVig]

Here's what I've got worked up...works just how I want it to now. Thanks Gintaras!
Function QM_Export
Trigger @11     

Code:

Copy      Help

str email="[email protected]";;enter recieving email address


str my_qml system_qml files tzip subject body

rget my_qml "file" "software\gindi\qm2\settings"

system_qml="$qm$\system.qml"

;save qml and wait while saving
men 2003 _hwndqm ;;Save All Now
0.1
;g1
__HFile f.Create(my_qml OPEN_EXISTING)
err 0.1; goto g1
f.Close

files.from(my_qml "[]" system_qml)
tzip.from("$temp$\" _s.getfilename(my_qml) ".zip")
zip tzip files
_s=my_qml
_s.getfilename
subject.timeformat("{D} {TT}")
subject.from(_s " " subject)

ARRAY(str) QMfunctions
QMITEM q; int i j k
rep
,i=qmitem(-i 2 &q 1|16|128)
,if(i=0) break
,str date=q.datemod
,str name=q.name
,k=q.itype=5
,
,;indentation
,for(j 0 1000000000) if(!q.folderid or !qmitem(q.folderid 0 q 16)) break
,str si.all(j 2 '.')
,
,if(k) _s.format("[%s%s]" si name)
,else _s.format("  %-30s %s%s" date si name)
,QMfunctions[]=_s

body=QMfunctions

SendMail email subject body 0 tzip