Code: Select all
Words=
(
Dear student,
Do this:
)
Gui, Add, Text,, Which documents are missing?
Gui, Add, CheckBox, vDoc1, Document 1
Gui, Add, CheckBox, vDoc2, Document 2
Gui, Add, CheckBox, vDoc3, Document 3
Gui, Add, CheckBox, vDoc4, Document 4
Gui, Add, CheckBox, vDoc5, Document 5
Gui, Add, Text,, Email Template:
Gui, Add, Edit, r9 w500 hwndhMyEdit vMyEdit, %Words%
Gui, Add, Button, gEmail, Click here to generate email
Gui, Show
Return
Email:
GuiControlGet, Doc1,, Doc1
if (Doc1 = 1)
sAppend := "Complete Doc1!`r`n"
AppendText(hMyEdit, &sAppend)
GuiControlGet, Doc2,, Doc2
if (Doc2 = 1)
sAppend := "Complete Doc2!`r`n"
AppendText(hMyEdit, &sAppend)
GuiControlGet, Doc3,, Doc3
if (Doc3 = 1)
sAppend := "Complete Doc3!`r`n"
AppendText(hMyEdit, &sAppend)
GuiControlGet, Doc4,, Doc4
if (Doc4 = 1)
sAppend := "Complete Doc4!`r`n"
AppendText(hMyEdit, &sAppend)
GuiControlGet, Doc5,, Doc5
if (Doc5 = 1)
sAppend := "Complete Doc5!`r`n"
AppendText(hMyEdit, &sAppend)
Return
GuiEscape:
GuiClose:
ExitApp
AppendText(hEdit, ptrText) {
SendMessage, 0x000E, 0, 0,, ahk_id %hEdit%
SendMessage, 0x00B1, ErrorLevel, ErrorLevel,, ahk_id %hEdit%
SendMessage, 0x00C2, False, ptrText,, ahk_id %hEdit%
}