#i::
Form := ""
Name := ""
Company := ""
Email := ""
Phone := ""
Comments := ""
IP := ""
Fluid := ""
Pressure := ""
Flow := ""
Temp := ""
Gui, Name: New
Gui, Add, Text,, Name
Gui, Add, Edit, vName,
Gui, Add, Text,, Company
Gui, Add, Edit, vCompany,
Gui, Add, Text,, Email
Gui, Add, Edit, vEmail,
Gui, Add, Text,, Phone
Gui, Add, Edit, vPhone,
Gui, Add, Text,, Fluid
Gui, Add, Edit, vFluid,
Gui, Add, Text,, Temperature
Gui, Add, Edit, vTemp,
Gui, Add, Text,, P1
Gui, Add, Edit, vPressure1,
Gui, Add, Text,, P2
Gui, Add, Edit, vPressure2,
Gui, Add, Text,, F1
Gui, Add, Edit, vFlow1,
Gui, Add, Text,, F2
Gui, Add, Edit, vFlow2,
Gui, Add, Text,, Notes
Gui, Add, Edit, r5 w500 vComments,
gui, add, button, gsub2, Submit
gui, add, button, gcancel, Exit Script
Gui, Show, w500, New Inquiry Form
return

sub2:
 {
Gui, submit
SubLine := "Phone Call inquiry -- " . Name . " at " . Company
InqData := "|" . Name . "|" . Company . "|" . Email . "| " . Phone . " |" . Comments . "|" . IP . "|" . Fluid . "|" . Pressure1 . "|" . Pressure2 . "|" . Flow1 . "|" . Flow2 . "|" . Temp
FileAppend,
(
`r`n
%CurrentDateTime% :: %InqData%
), C:\Users\SAMSUNG\Desktop\InquiryLog.txt
IfWinExist Inbox -
{
WinActivate
Sleep 500
Send ^n
Sleep 1500
Paste("alanblack@equilibar.com")
Sleep 500
Send {Tab 3}
Sleep 500
Paste(SubLine)
Sleep 500
Send {Tab}
Sleep 100
Send ^a
Paste(InqData)
Clipboard = %InqData%
FormatTime, CurrentDateTime,, MM/dd/yyyy hh:mm
}
 }
return


; Opportunity subroutine for dumping information into opportunity fields of netsuite

Opp()
{
global
WinWait, Opportunity, , 500
if ErrorLevel
{
    MsgBox, WinWait timed out.
    return
}
else
Inputbox, warmth, A B or C?
Inputbox, desc, descriptor
IfWinExist Opportunity - NetSuite
{
WinActivate
Sleep 200
Send {Shift Down}{Tab}{Shift Up}
FormatTime, CurrentDateTime,, MM/dd/yyyy
Paste(warmth . ") " . CurrentDateTime . " " . desc)
Send {Tab}
Sleep 500
Comp:= Copy()
Sleep 100
EngCont:= Comp . " : " . Name
Sleep 200
MouseClick, Left, 57, 975
Sleep 200
SendRaw %EngCont%
Sleep 200
If MsgBox Yes
{
	MouseClick, Left, 0, 1040
	Sleep 100
	MouseClick, Left, 45, 1040
	Sleep 100
	MouseClick, Left, 0, 1040
	Sleep 100
	MouseClick, Left, 45, 1070
	Sleep 50
}
MouseClick, Left, 42, 504
Send Alan
Sleep 200

Send {Tab 25}
Sleep 200
Paste(Fluid)
Sleep 200
Send {Tab}
Sleep 200
Paste(Temp)
Sleep 200
Send {Tab}
Sleep 200
Paste(Pressure1)
Sleep 200
Send {Tab}
Sleep 200
Paste(Pressure2)
Sleep 200
Send {Tab}
Sleep 200
Paste(Flow1)
Sleep 200
Send {Tab}
Sleep 200
Paste(Flow2)
Sleep 200
Send {Tab 2}
Sleep 200
Paste(Form)
Sleep 200
Paste(Comments)
Sleep 200
Send {Tab 20}
Sleep 200
Paste(warmth . ") " . CurrentDateTime . " " . desc)
}
}


#z::
info := ""
Form := ""
Name := ""
Company := ""
Email := ""
Phone := ""
Comments := ""
IP := ""
Fluid := ""
Pressure1 := ""
Pressure2 := ""
Flow1 := ""
Flow2 := ""
Temp := ""
Send ^a
info:= Copy()
StringSplit, infoArray, info, |
Form = %infoArray1%
Name = %infoArray2%
Company = %infoArray3%
Email = %infoArray4%
Phone = %infoArray5%
Comments = %infoArray6%
IP = %infoArray7%
Fluid = %infoArray8%
Pressure1 = %infoArray9%
Pressure2 = %infoArray10%
Flow1 = %infoArray11%
Flow2 = %infoArray12%
Temp = %infoArray13%
IfWinExist Lead - NetSuite
{
WinActivate
Paste(Company)
Sleep 1000
Send !c
Sleep 1000
Paste(Name)
Send {Tab 2}
Sleep 250
Paste(Email)
Send {Tab}
Sleep 250
Paste(Phone)
}
Opp()
return

#+x::
info := ""
Form := ""
Name := ""
Company := ""
Email := ""
Phone := ""
Comments := ""
IP := ""
Fluid := ""
Pressure1 := ""
Pressure2 := ""
Flow1 := ""
Flow2 := ""
Temp := ""
Name:= Copy()
Opp()
return


#s::
info := ""
Form := ""
Name := ""
Company := ""
Email := ""
Phone := ""
Comments := ""
IP := ""
Fluid := ""
Pressure1 := ""
Pressure2 := ""
Flow1 := ""
Flow2 := ""
Temp := ""
Send ^a
info:= Copy()
StringSplit, infoArray, info, |
Form = %infoArray1%
Name = %infoArray2%
Company = %infoArray3%
Email = %infoArray4%
Phone = %infoArray5%
Comments = %infoArray6%
IP = %infoArray7%
Fluid = %infoArray8%
Pressure1 = %infoArray9%
Pressure2 = %infoArray10%
Flow1 = %infoArray11%
Flow2 = %infoArray12%
Temp = %infoArray13%
IfWinExist Contact - Google
{
WinActivate
Paste(Name)
Send {Tab 9}
Paste(Email)
Send {Tab}
Send 1
Send ^a
Paste(Phone)
Send ^a
Paste(Phone)
Send ^a
Paste(Phone)
}
return


#+s::
Company := ""
Email := ""
Phone := ""
info:= Copy()
StringSplit, infoArray, info, |
Name = %infoArray3%
Company = %infoArray5%
Email = %infoArray7%
Phone = %infoArray9%
IfWinExist Contact - Google
{
WinActivate
Paste(Name)
Send {Tab 9}
Paste(Email)
Send {Tab}
Send 1
Send ^a
Paste(Phone)
Send ^a
Paste(Phone)
Send ^a
Paste(Phone)
}
return

#^s::
info:= Copy()
StringSplit, infoArray, info, <
Name = %infoArray1%
Email = %infoArray2%
StringTrimRight, Email, Email, 1
IfWinExist Contact - Google
{
WinActivate
Paste(Name)
Send {Tab 9}
Paste(Email)
Send {Tab}
}
return