QM file Export Options.

[Gintaras]

Macro Email qm files

Code:

Copy      Help

str my_qml system_qml files tzip

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

SendMail "[email protected]" "" "" 0 tzip