Vbscript For Dialer_outdialqueadd

[Guest thomasvanderhoof]

I am not to sure how to put in vActivateTime into the vg.Dialer_OutDialQueAdd "$RV_CALLEDNUMBER", "vActivateTime"

 

VG keeps setting it to zero. The msgbox displays the time 30 minutes from the time script activated, in the right format, so I know it's assigned right. Just don't know how to put into vb script:

 

 

dDate = DateAdd("n", 30, Now)

 

sYear = Right(Year(dDate), 1)

 

vActivateTime = sYear * 100000000 + Month(dDate) * 1000000 + Day(dDate) * 10000 + Hour(dDate) * 100 + Minute(dDate)

msgbox(vActivateTime)

set vg = CreateObject("VoiceGuide.CommandLink")

vg.Dialer_OutDialQueAdd "$RV_CALLEDNUMBER", "vActivateTime", 800, 2100, "", "dxxB1C1", 1, "none", "C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs", "IGNORE", "[FNAME]{$RV_CALLEDNUMBER}", 40, 100, 30, ""

set vg = Nothing

 

thanks,

Thomas

[SupportTeam]

Have you tried using 'Long Time' and 'Long Date' format eg: "7:30 AM 25 May 2006" or "7:30 AM, 25 May 2006" (with a comma in between the time and date)

[Guest thomasvanderhoof]

I was trying to follow the examples given in the help files. But they didn't show how to put in the variable. So the variable looks right in the script that I posted?

I'm not the greatest Scripter, could you give me an example of putting it into Long Date format 30 minutes after the script has been executed?

Thank you,

Thomas

[SupportTeam]

In the Dialer_OutDialQueAdd call remove the quotes from around the vActivateTime. We tried your script after removing the quotes and a new entry was added into the OutDialQue database fine - with the activation time as specified.

[Guest thomasvanderhoof]

Well I ended up figuring out how to put it in the exact format of the long time, and stored the string into "combined" and then I still get zero assigned. My computer adds the seconds, so I had to add some extra code to take that out, so I could match the exact format you posted. Here's the script:

 

dDate = DateAdd("n", 30, Now)

getHour = hour(ddate)

 

NewDate = FormatDateTime(ddate, 1)

NewTime = formatdatetime(ddate, 3)

 

'The next four if statements change the format to match the one posted

 

If gethour > 12 then

gethour = gethour - 12

end if

 

if gethour = 0 then

gethour = 12

end if

 

If getHour > 9 then

newtimeleft = Left(newtime, 5)

newtimeright = right(newtime, 3)

newtime = newtimeleft & newtimeright

End if

 

If getHour < 10 then

newtimeleft = Left(newtime, 4)

newtimeright = right(newtime, 3)

newtime = newtimeleft & newtimeright

End if

 

combined = NewTime & " " & NewDate

 

'This displays the exact format on my computer as specified

 

msgbox(combined)

 

set vg = CreateObject("VoiceGuide.CommandLink")

vg.Dialer_OutDialQueAdd "$RV_CALLEDNUMBER", "combined", 800, 2100, "", "dxxB1C1", 1, "none", "C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs", "IGNORE", "[FNAME]{$RV_CALLEDNUMBER}", 40, 100, 30, ""

set vg = Nothing

 

 

Please tell me how the variable "combined" should be put in, in this part of the script:

 

 

vg.Dialer_OutDialQueAdd "$RV_CALLEDNUMBER", "combined", 800, 2100, "", "dxxB1C1", 1, "none", "C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs", "IGNORE", "[FNAME]{$RV_CALLEDNUMBER}", 40, 100, 30, ""

set vg = Nothing

 

 

 

Because I'm having no luck. I checked the CallQue Database, and it puts 0 in the Activate time slot. Here's the log file:

 

 

205219.53 6 dial [273,5191000,602072020,701,2100,MoTuWeThFrSaSu,,dxxxB1C2,,3,NONE,C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs,IGNORE,[FNAME]{$RV_CALLEDNUMBER},20,100,30,,none]

205219.55 6 rv clear

205219.55 6 dial callque update id=273 next call time 0602072122

205219.55 6 dial callque DB update returned

205219.56 6 amchk set AMdet=False in DialOnLine

205219.56 6 dial found entry: tel[5191000] ann[NONE] vgs[C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs] am[iGNORE] LineSelection:[,dxxxB1C2,]

205219.56 6 Dialing: 5191000

205219.56 6 MakeCall => 65798

205219.56 6 script interpretor: VgMulti v5.2.5003

205219.56 6 timer set 20 EV_TIMEOUT_MAKECALL_NORESPONSE

205219.56 6 TapiCbTrigSet 65798 7002

205219.58 0 dial start any summary:|5:idx=0|6:dial=0|7:idx=0|8:idx=0|

205220.17 6 tapi Reply (LineEvReply) ok 65798 0

205220.17 6 TapiCbTrigClear

205220.17 6 linedevstate 2048 0 0

205220.17 6 callstate DIALTONE 65952 0 0

205220.17 6 callstate DIALING 65952 0 0

205220.17 6 callstate PROCEEDING 65952 0 0

205220.17 6 callinfo CALLEDID

205220.17 6 callinfo REASON

205220.19 6 ev Lev_CallerID [2542471458,,5191000]

205220.19 6 rv lg add [DNIS]{5191000}

205220.19 6 callinfo ORIGIN

205220.59 0 dial start any summary:|5:idx=0|6:hc>0|7:idx=0|8:idx=0|

205232.36 6 callstate DISCONNECTED 65952 16 0

205232.36 6 ScriptEventCode 9250 iLineState=5200

205232.36 6 LsWaitAfterDialingOut EV_REMOTEPARTY_DISCONNECT

205232.36 6 rv lg add [FNAME]{$RV_CALLEDNUMBER}

205232.36 6 rv lg add [PathSysVoice]{C:\Program Files\VoiceGuide\system\voice\}

205232.38 6 rv lg add [PathApp]{C:\Program Files\VoiceGuide\}

205232.38 6 rv lg add [PathDataVm]{C:\Program Files\VoiceGuide\data\}

205232.38 6 rv lg add [PathVgSys]{C:\Program Files\VoiceGuide\system\}

205232.38 6 rv lg add [OutDial_RetriesLeft]{100}

205232.38 6 rv lg add [$RV_STARTTIME]{07-Feb-06 8:52 PM}

205232.38 6 rv lg add [$RV_DEVICEID]{6}

205232.38 6 rv lg add [$RV_CIDNAME]{NOBLE PHONE SER}

205232.38 6 rv ns add [PathApp]{C:\Program Files\VoiceGuide\}

205232.38 6 rv lg add [$RV_CALLEDNUMBER]{5191000}

205232.39 6 rv lg add [$RV_DNIS]{5191000}

205232.39 6 rv lg add [DNIS]{5191000}

205232.41 6 rv lg add [FNAME]{$RV_CALLEDNUMBER}

205232.41 6 rv lg add [PathSysVoice]{C:\Program Files\VoiceGuide\system\voice\}

205232.41 6 rv lg add [PathApp]{C:\Program Files\VoiceGuide\}

205232.41 6 rv lg add [PathDataVm]{C:\Program Files\VoiceGuide\data\}

205232.41 6 rv lg add [PathVgSys]{C:\Program Files\VoiceGuide\system\}

205232.41 6 rv lg add [OutDial_RetriesLeft]{100}

205232.42 6 rv lg add [$RV_STARTTIME]{07-Feb-06 8:52 PM}

205232.42 6 rv lg add [$RV_DEVICEID]{6}

205232.42 6 rv lg add [$RV_CIDNAME]{NOBLE PHONE SER}

205232.42 6 rv ns add [PathApp]{C:\Program Files\VoiceGuide\}

205232.42 6 rv lg add [$RV_CALLEDNUMBER]{5191000}

205232.42 6 rv lg add [$RV_DNIS]{5191000}

205232.42 6 rv lg add [DNIS]{5191000}

205232.42 0 dial callque delete id=273

205232.44 6 rv ns add [OutDial_Result]{Contacted_Human}

205232.44 6 Live person answered, starting C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs

205232.44 2 tr NewVgsVgm_Goto C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs,,,,,0

205232.44 6 rv lg add [scriptEnd_Time]{07-Feb-06 8:52 PM}

205232.44 6 rv lg add [scriptEnd_Goto_Script]{C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs}

205232.44 6 rv lg add [scriptEnd_Goto_Module]{}

205232.44 6 rv lg add [scriptStart_Time]{07-Feb-06 8:52 PM}

205232.44 6 rv lg add [scriptStart_CalledFrom_Module]{AddNumberToQue}

205232.45 0 LoadedVgs_Find C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs at idx=5

205232.45 6 rv ns add [scriptsPath]{C:\Program Files\VoiceGuide\Scripts\}

205232.45 6 eng StartModuleDefault=[AddNumberToQue]

205232.45 6 timer clear

205232.45 6 [AddNumberToQue] Running VB Script...

205232.45 6 rv replace start (strlen>500)

205232.45 6 rv ns [FNAME]{$RV_CALLEDNUMBER}[PathSysVoice]{C:\Program Files\VoiceGuide\system\voice\}[PathApp]{C:\Program Files\VoiceGuide\}[PathDataVm]{C:\Program Files\VoiceGuide\data\}[PathVgSys]{C:\Program Files\VoiceGuide\system\}[OutDial_RetriesLeft]{100}[OutDial_Result]{Contacted_Human}[scriptEnd_Time

{07-Feb-06 8:52 PM}[scriptEnd_Goto_Script]{C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs}[scriptEnd_Goto_Module]{}[scriptStart_Time]{07-Feb-06 8:52 PM}[scriptStart_CalledFrom_Module]{AddNumberToQue}[scriptsPath]{C:\Program Files\VoiceGuide\Scripts\}

205232.47 6 eng run vbs [wscript "C:\Program Files\VoiceGuide\temp\vbs_6_1_0207205232.vbs" //I] copy of script in: vbs_6_1_0207205232.vbs

205232.48 6 VBScript Run continuing...

205232.50 6 rv lg add [Hangup Time]{07-Feb-06 8:52 PM}

205232.50 6 Hanging up call... [Run module : no success path defined]

205232.50 6 RecSoundStop ok

205232.50 6 PlaySoundStop err=0

205232.50 6 timer set 2 EV_TIMEOUT_WAITFORIDLEAFTERLINEDROP

205232.50 6 fnHangupCall end

205232.55 6 linedevstate 2048 0 0

205232.55 6 callstate IDLE 65952 0 0

205232.55 6 WorkingMode@Idle=

205232.55 6 timer clear

205232.56 6 timer set 1 EV_TIMEOUT_TIMETOREINITLINE

205232.56 6 tapi Reply (LineEvReply) ok 66154 0

205233.38 0 cl Dialer_OutDialQueAdd 5191000, combined, 800, 2100, , dxxB1C1, 1, none, C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs, IGNORE, [FNAME]{5191000}, 40, 100, 30, ,

205233.38 0 cl Dialer_OutDialQueAdd converted [combined] to []

205233.39 0 dial DialListDB_AddCall '5191000', 0, 800, 2100, MoTuWeThFrSaSu, dxxB1C1, 1, none, C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs, IGNORE, [FNAME]{5191000}, 40, 100, 30, ESCALATION:

205233.39 0 sql INSERT INTO CallQue (PhoneNumber, ActivateTime, DayTimeStart, DayTimeStop, DaysCallAllowed, LineSelection, Priority, AnnounceMessage, Script, OnAnswerMachine, RV, AnswerTimeout, CallRetriesLeft, DelayBetweenRetries, OnNotConnected, EscalationCalls) VALUES ('5191000', 0, 800, 2100, 'MoTuWeThFrSaSu', ',dxxB1C1,', 1, 'none', 'C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs', 'IGNORE', '[FNAME]{5191000}', '40', '100', '30', '', 'none')

205233.55 6 timer fired EV_TIMEOUT_TIMETOREINITLINE

205233.55 6 ScriptEventCode 9008 iLineState=900

205233.55 6 LsAwaitingCalls EV_TIMEOUT_TIMETOREINITLINE

205233.56 6 ReinitTelephony due to IDLE

205233.56 6 tapic lineDeallocateCall(MainCall:1) LINEERR_INVALCALLHANDLE [80000018]

205233.61 6 lineOpen(6)=>

205233.63 6 Waiting for a call...

205233.63 6 LineHandle=65709

205233.63 6 amchk set AMdet=False in Reinit@idle

205233.63 6 timer set 3 EV_TIMEOUT_ATERIDLE_ALLOWOUT

205233.84 0 dial start any summary:|5:idx=0|6:rdy=0|7:idx=0|8:idx=0|

205236.91 6 timer fired EV_TIMEOUT_ATERIDLE_ALLOWOUT

205236.91 6 ScriptEventCode 9013 iLineState=900

205237.91 0 dial start any summary:|5:idx=0|6:idx=0|7:idx=0|8:idx=0|

 

 

I appreciate your help on this matter,

Thomas

[SupportTeam]

Pretty much the same advice as in out previous post:

 

Remove the Quotes

 

this is correct:

 

vg.Dialer_OutDialQueAdd "$RV_CALLEDNUMBER", vActivateTime, 800, 2100, "", "dxxB1C1", 1, "none", "C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs", "IGNORE", "[FNAME]{$RV_CALLEDNUMBER}", 40, 100, 30, ""

 

vg.Dialer_OutDialQueAdd "$RV_CALLEDNUMBER", combined, 800, 2100, "", "dxxB1C1", 1, "none", "C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs", "IGNORE", "[FNAME]{$RV_CALLEDNUMBER}", 40, 100, 30, ""

 

and this is incorrect:

 

vg.Dialer_OutDialQueAdd "$RV_CALLEDNUMBER", "vActivateTime", 800, 2100, "", "dxxB1C1", 1, "none", "C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs", "IGNORE", "[FNAME]{$RV_CALLEDNUMBER}", 40, 100, 30, ""

 

vg.Dialer_OutDialQueAdd "$RV_CALLEDNUMBER", "combined", 800, 2100, "", "dxxB1C1", 1, "none", "C:\Program Files\VoiceGuide\Scripts\SuspensionMessage.vgs", "IGNORE", "[FNAME]{$RV_CALLEDNUMBER}", 40, 100, 30, ""\

 

Also, I'd probably stick with the DateAdd approach...

[Guest thomasvanderhoof]

Oh sorry. I misunderstood your post. I corrected as stated in last post, and it works great. Sorry for all of the trouble. Still learning the in's and out's of Voice Guide. I appreciate the help you guys provide. Would I get any referral credits toward future purchases, if we show your product to other companies. I have one that would like me to show them how I set it up.

Thank you,

Thomas

[SupportTeam]

Glad to hear it's working.

 

We don’t have a referral credit program in place - but such questions should be sent directly to sales@voiceguide.com - send them and email with all the details and any questions you may have.