initial commit

addemail.ahk

@@ -0,0 +1,39 @@
+#Include, func.ahk
+Menu, Tray, Icon, shell32.dll, 283	; Set the tray icon to a keyboard
+SetWorkingDir, %A_MyDocuments%\D3K	; Make sure we can find the .ahks linked below
+csv = %A_MyDocuments%\Work_Docs\emails.csv	; Where the email CSV is
+
+Gui, +AlwaysOnTop +ToolWindow
+
+Gui, Add, Text, x2 y2 w60 h17 +Center, xID
+Gui, Add, Text, x65 y2 w120 h17 +Center, Name
+Gui, Add, Text, x190 y2 w100 h17 +Center, Email
+
+Gui, Add, Edit, x2 y17 w60 h20 vXid
+Gui, Add, Edit, x65 y17 w120 h20 vName
+Gui, Add, Edit, x190 y17 w100 h20 vEmail
+
+Gui, Add, Button, x172 y89 w70 h30 Default, OK
+
+Gui, Show, h39 w292, Add dealer to CSV
+Return
+
+ButtonOK:
+	Gui, Submit
+	writethis := Xid . "," . Email . "," . Name
+	FileAppend, % "`n" writethis, %csv%
+	Clipboard := Xid
+Return
+
+
+GuiEscape:
+GuiClose:
+ExitApp
+
+Gui, Add, Edit, x5 y5 w55 h20 vXid, xID
+Gui, Add, Edit, x65 y5 w100 h20 vName, Name
+Gui, Add, Edit, x170 y5 w135 h20 vEmail, Email
+Gui, Add, Edit, x310 y5 w100 h20 vUname, Username
+Gui, Add, Button, x150 y49 w80 h20 Default, OK
+
+Gui, Show, h30 w415, Add dealer to CSV