Rolodex/Phone book type interface?

Tell others how you're using MainLobby.
jwilson56
Senior Member
Senior Member
Posts: 103
Joined: Sun Aug 10, 2003 6:56 am
Contact:

Rolodex/Phone book type interface?

Postby jwilson56 » Sat Nov 13, 2004 11:20 am

Has anyone done a phone book/rolodex interface yet?

John

User avatar
DavidL
Simply Incredible
Simply Incredible
Posts: 11071
Joined: Sat Feb 08, 2003 9:39 am
Location: Metamora, Michigan
Contact:

Postby DavidL » Sat Nov 13, 2004 11:47 am

Not in MainLobby yet. You could always use a Homeseer script and then show it via WebLobby as an interm solution until someone makes an Outlook type ML Plugin.

User avatar
Krumpy
Developer
Developer
Posts: 1228
Joined: Thu Sep 04, 2003 10:17 pm
Location: Minneapolis, Mn
Contact:

Postby Krumpy » Sun Nov 14, 2004 8:09 am

CFGuy and myself will be working on updating PhoneWeb to work with ML/MLS/MLHSPlugin some time in the near future. Hopefully we will find some way of displaying the phone numbers/rolodex.

User avatar
fungun
Intermediate
Intermediate
Posts: 298
Joined: Wed May 19, 2004 7:16 pm
Location: usa,ia
Contact:

Postby fungun » Sun Nov 14, 2004 1:45 pm

With the help of sbessel over at the HS forum (he wrote the script for me) I have a text file with the names and numbers I call alot. Then populated a virtual device with each line of the text file. Then i click on a button labeled "dad" and his number pops up. Below are the script and the format for the text file. You have to make a virtual device for each line in the text file.
Tim

the text file format


;,,,,
;
;F NAME,L NAME,PHONE,CELL,EMAIL
George,Mendoza,999-999-9999
Curt,Hansen,999-999-9999
Dave,Dather,999-9999


the script

Public DebugMode
Public VMHouseCode
Public VMFile


'Edit this to point to your text file with the names/numbers. Lines with a ";" in the front will be ignored.
'comma's "," will be converted to spaces.
VMFile = "c:\program files\homeseer\Callers.txt"

'Put the house code here, this program will only import 99 numbers then exit and log an error in the hs.event log.
VMHouseCode = "r"

'these two lines are for debugging, enable only for testing, then reverse for live.
DebugMode = TRUE
hs.nolog = FALSE

sub main
ImportVM()
end sub

Function ImportVM()
Dim objFSO,objTextFile,s_line,s_file_data
DevCode = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
debugit("Opening File: " & VMFile)
Set objTextFile = objFSO.OpenTextFile(VMFile,1,TRUE,0)

Do While Not objTextFile.AtEndOfStream
s_line = objTextFile.ReadLine
' Ignore comment lines starting with ";"
If left(s_line,1) <> ";" and len(s_line) > 10 Then
debugit("Good Line Read from file: " & s_line)
HDCode = VMHouseCode & cstr(DevCode)
s_line = replace(s_line,","," ")
debugit("Set command: hs.setdevicestring " & HDCode & s_line)
hs.setdevicestring HDCode , s_line, TRUE
DevCode = DevCode + 1
If DevCode >= "99" then
hs.writelog "CallerID_Import.txt", "Out of device codes for house code: " & VMHouseCode
exit function
end if

end if
loop

objTextFile.close
Set objTextFile = Nothing
Set objFSO = Nothing

End Function

Function DebugIt(data)
If DebugMode = TRUE then hs.WriteLog "CallerID_Import.txt",Data
End Function


Return to “How are you using MainLobby?”

Who is online

Users browsing this forum: No registered users and 1 guest