Rolodex/Phone book type interface?

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

Rolodex/Phone book type interface?

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

Has anyone done a phone book/rolodex interface yet?


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

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
Posts: 1228
Joined: Thu Sep 04, 2003 10:17 pm
Location: Minneapolis, Mn

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
Posts: 298
Joined: Wed May 19, 2004 7:16 pm
Location: usa,ia

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.

the text file format


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
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

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