Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement