$RV_CIDNUMBER - how to use in VBScript & MS Access

[Guest Frank]

Please respond to those questions. Don't transfer me to help link.

 

I have a couple of questions regarding CIDNUMBER and CIDNAME.

 

 

How do I access caller?

 

wkSheet.Cells(y-1, iColumn+1) = $RV_CIDNUMBER

or

wkSheet.Cells(y-1, iColumn+1) = $RV[CIDNUMBER]

 

What if $RV_CIDNUMBER is empty.

 

What kind of value do I get when I try to access $RV_CIDNUMBER

but I don't have caller ID activated through my phone provider.

Is it even possible?

 

I tried to insert wkSheet.Cells(y-1, iColumn+1) = $RV_CIDNUMBER

to my excell sheet but I got "VB Script compilation error".

 

 

Can I access CIDNUMBER at the "Call Finish" module or I have to access it before that.

 

 

Thank you

[SupportTeam]

Please post the entire VoiceGuide script which you are using.

 

$RV_CIDNUMBER is the correct one to use. If no CallerID is available it will be replaced with a blank (empty string).

 

You can use $RV_CIDNUMBER in the "Call Finish" script.

[Guest Guest]

Error points to dollar sign $

wkSheet.Cells(y-1, iColumn+26) = $RV_CIDNUMBER

 

 

 

Version=5.0

DefaultModuleDisplayHeight=

StartModule=Script

RunAtHangup=

StartWithoutAnswer=0

CtmAsiName=

 

[script]

Type=Run VB Script

DispSize=69

Txt=Run a VB Script.

VbsFileToRun=

VbsWait=0

VbScript=Dim xlApp, xlBook, xlSht

Dim filename

 

 

 

on error resume next

 

filename = "X:\Sport.xls"

 

Set xlApp = CreateObject("Excel.Application")

set xlBook = xlApp.WorkBooks.Open(filename)

set xlSht = xlApp.activesheet

 

xlApp.DisplayAlerts = False

 

Call GetToFirstItem(xlSht, 1, "ID")

'Call GetToFirstItem(Sheets("Sheet1"), 1, "ID")

 

 

xlBook.Save

xlBook.Close SaveChanges=True

xlApp.Close

xlApp.Quit

 

'always deallocate after use...

set xlSht = Nothing

Set xlBook = Nothing

Set xlApp = Nothing

 

 

Sub GetToFirstItem(wkSheet, iColumn, ColumnStartCaption)

 

wkSheet.Select

 

'Range(iColumn & "1").Select

'wkSheet.Range("A1").Select

 

y = 0

Dim temp

 

Do Until temp = ColumnStartCaption

y = y + 1

temp = wkSheet.Cells(y, iColumn)

Loop

 

y = y + 1

temp = wkSheet.Cells(y, iColumn)

 

Do Until temp = ""

y = y + 1

temp = wkSheet.Cells(y, iColumn)

Loop

 

 

wkSheet.Cells(y-1, iColumn+2).NumberFormat = "h:mm:ss;@"

wkSheet.Cells(y-1, iColumn+2) = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)

 

 

wkSheet.Cells(y-1, iColumn+26) = $RV_CIDNUMBER

wkSheet.Cells(y-1, iColumn+27) = $RV_CIDNAME

 

End Sub

 

VbsHoldPlay=

on {success} gosub [X:\Email.vgs|Evaluate]

on {fail} gosub [X:\Email.vgs|Evaluate]

on {timeout 0} gosub [X:\Email.vgs|Evaluate]

 

Position=100,49

 

[Phone Message]

Type=Phone Message

DispSize=69

Txt=Schedule a call to be made to a telephone number and run a VG script when the phone is answered.

sDialPhone0=7565128

sDialWelc0=

sDialScript0=X:\Echo.vgs

sDialVariables0=

sDialLineSelection0=

sDialRetry0=0

sDialDelay 0=0

sDialPhone1=

sDialWelc1=

sDialScript1=

sDialVariables1=

sDialLineSelection1=

sDialRetry1=2

sDialDelay 1=5

sDialPhone2=

sDialWelc2=

sDialScript2=

sDialVariables2=

sDialLineSelection2=

sDialRetry2=2

sDialDelay 2=5

 

Position=113,185

[Guest Frank]

Log File

 

182650.02 5 linedevstate 2048 0 0

182650.02 5 callstate OFFERING 65965 0 4

182650.02 5 Answer the call at 5/12/2004 6:26:50 PM

182650.03 5 lineAnswer(65965) => 66136

182650.03 5 callinfo CALLEDID

182650.03 5 callinfo ORIGIN

182650.03 5 ring 0

182650.56 5 callstate CONNECTED 65965,1,0

182650.56 5 WorkingModeTAPI@Connected=

182650.56 5 WorkingModeScript@Connected=

182650.59 5 Inband detection not enabled

182650.59 5 StartLoadedVgs at 5/12/2004 6:26:50 PM

182650.59 5 AddRVns [scriptsPath]{X:\}

182650.59 5 rv add [$RV_STARTTIME]{5/12/2004 6:26:50 PM}

182650.59 5 rv add [$RV_DEVICEID]{5}

182650.59 5 rv add [$RV_CIDNAME]{}

182650.59 5 AddRVns [PathApp]{C:\Program Files\VoiceGuide\}

182650.59 5 rv add [$RV_CIDNUMBER]{}

182650.61 5 tapi Reply (LineEvReply) ok 66136 0

182650.61 5 callinfo MONITORMODES

182650.61 5 TimeoutClear

182650.61 5 [Play 1] Playing

182650.61 5 [Play 1] Playing (1\Welcome.wav)

182650.63 5 PlaySoundStart ok [X:\1\Welcome.wav]

182650.63 5 TimeoutClear

182650.63 5 RunModule PLAY end

182650.63 5 wa(2980,16129600)

182650.63 5 callinfo MONITORMODES

182653.63 5 wb(16129600)

182653.67 5 Play End line[5] (id=161296)

182653.67 5 ScriptEventCode 8001 iLineState=1100

182653.67 5 LsPlayMsg EV_PLAY_FINISHED

182653.67 5 TimeoutSet 10 EV_TIMEOUT_HANGUP

182653.67 5 TimeoutSet 0 EV_TIMEOUT_GOTOMODULE

182653.67 5 ScriptEventCode 9002 iLineState=1101

182653.67 5 LsPlayMsgFinished EV_TIMEOUT_GOTOMODULE

182653.67 5 TimeoutClear

182653.69 5 [Job_Offers] Running vb script:[X:\CallFinishScript.vgs]

182727.11 0 Script Load X:\CallFinishScript.vgs

182727.11 5 Loaded VbsAtHangup into:2

182727.11 5 tapi Reply (LineEvReply) ok 66017 0

182727.11 5 TimeoutClear

182727.11 5 [script] Running VB Script...

182727.11 5 RVreplace start (strlen>500)

182727.11 5 RVns [PathSysVoice]{}[PathApp]{C:\Program Files\VoiceGuide\}[PathDataVm]{C:\Program Files\VoiceGuide\data\}[PathVgSys]{C:\Program Files\VoiceGuide\system\}[scriptsPath]{X:\}[$RV_STARTTIME]{5/12/2004 6:26:50 PM}[$RV_DEVICEID]{5}[$RV_CIDNAME]{}[PathApp]{C:\Program Files\VoiceGuide\}[$RV_CIDNUMBER]{}[Job_Offers]{False}[Hangup Time]{5/12/2004 6:27:27 PM}

182727.13 5 VBScript Run continuing...

182727.13 5 stack idx=1

182727.13 5 rv add [scriptStart_Time]{5/12/2004 6:27:27 PM}

182727.13 5 rv add [scriptStart_CalledFrom_Script]{X:\CallFinishScript.vgs}

182727.13 5 rv add [scriptStart_CalledFrom_Module]{Script}

182727.13 0 Script Load X:\Email.vgs

182727.14 5 Loaded X:\Email.vgs into:3

182727.16 5 AddRVns [scriptsPath]{X:\}

182727.16 5 TimeoutClear

182727.16 5 [Evaluate] Evaluate [(($RV_HOUR >= 12) and ($RV_HOUR <= 13) and ($RV_MINUTE >= 00) and ($RV_MINUTE <= 30)) or(($RV_HOUR >= 20) and ($RV_HOUR <= 22))]

182727.16 5 RVreplace start: [(($RV_HOUR >= 12) and ($RV_HOUR <= 13) and ($RV_MINUTE >= 00) and ($RV_MINUTE <= 30)) or(($RV_HOUR >= 20) and ($RV_HOUR <= 22))]

182727.16 5 RVns [PathSysVoice]{}[PathApp]{C:\Program Files\VoiceGuide\}[PathDataVm]{C:\Program Files\VoiceGuide\data\}[PathVgSys]{C:\Program Files\VoiceGuide\system\}[scriptsPath]{X:\}[$RV_STARTTIME]{5/12/2004 6:26:50 PM}[$RV_DEVICEID]{5}[$RV_CIDNAME]{}[PathApp]{C:\Program Files\VoiceGuide\}[$RV_CIDNUMBER]{}[Job_Offers]{False}[Hangup Time]{5/12/2004 6:27:27 PM}[scriptStart_Time]{5/12/2004 6:27:27 PM}[scriptStart_CalledFrom_Script]{X:\CallFinishScript.vgs}[scriptStart_CalledFrom_Module]{Script}[scriptsPath]{X

\}

182727.16 5 RVreplace end: [((18 >= 12) and (18 <= 13) and (27 >= 00) and (27 <= 30)) or((18 >= 20) and (18 <= 22))]

182727.16 5 .Eval(((18 >= 12) and (18 <= 13) and (27 >= 00) and (27 <= 30)) or((18 >= 20) and (18 <= 22)))

182727.16 5 AddRVns [Evaluate_Input]{((18 >= 12) and (18 <= 13) and (27 >= 00) and (27 <= 30)) or((18 >= 20) and (18 <= 22))}

182727.16 5 AddRVns [Evaluate]{False}

182727.16 5 Eval Expr result:[False]

182727.16 5 path {False} not found

182727.16 5 rv add [Hangup Time]{5/12/2004 6:27:27 PM}

182727.16 5 Hanging up call... [No path (False) to next module defined.]

182727.16 5 HangupCall_Common Mode=AfterHangupRun

182727.16 5 ReinitTelephony due to IDLE

182727.17 5 tapic lineDeallocateCall(MainCall:65965) 0

182727.31 5 lineOpen(5)=>

182727.31 5 Waiting for a call...

182727.31 5 LineHandle=66051

182727.31 5 TimeoutSet 3 EV_TIMEOUT_ATERIDLE_ALLOWOUT

182730.48 5 Timer fired EV_TIMEOUT_ATERIDLE_ALLOWOUT

182730.48 5 ScriptEventCode 9013 iLineState=900

[SupportTeam]

Have you tried using quotes around the values you are trying to assign the Excel's cells ?

 

ie: change:

 

wkSheet.Cells(y-1, iColumn+26) = $RV_CIDNUMBER

wkSheet.Cells(y-1, iColumn+27) = $RV_CIDNAME

 

to:

 

wkSheet.Cells(y-1, iColumn+26) = "$RV_CIDNUMBER"

wkSheet.Cells(y-1, iColumn+27) = "$RV_CIDNAME"

 

see the example from the VG help file:

http://www.voiceguide.com/vghelp/html/modVbs.htm

 

Also I notice from the trace (which btw is not from the posted script...) that you are using an Evaluate Expression module to do Time of day based switching - You may want to look at version 5.2 of VG - there is a "Time Switch" module available in that version.