Sub Main

 dim mailSubject
 dim mailMessage 
 dim tempNum
 dim tempName
 dim temp
 dim temp2
 dim i
 
 If hs.DeviceString("[1") <> "Voice" then exit sub
 if hs.DeviceString("z1") = hs.devicestring("[3") then exit sub

'LookUp Names
 temp="" 
 for i = 1 to Len(hs.DeviceString("[4"))
   temp2 = mid(hs.DeviceString("[4") ,i,1)
   if (asc(temp2) > 47 and asc(temp2) < 58) then 
	temp = temp & temp2
   end if
 next

 Path="C:\Program Files\HomeSeer\config\dasCID.txt"
 set objFSO = CreateObject("scripting.filesystemobject")
 set file = objFSO.OpenTextFile(Path,1,True)
 
 do until file.AtEndOfStream
   data = file.ReadLine
   splitdata = split(data, ",")
   if splitdata(0) = temp then
      tempName = splitdata(1)
      hs.setdevicestring "[5", tempname
      exit do
   end if
 loop
 file.close
 
 if tempName <> "" then 
    hs.writelog "Debug","Valid Call from " & tempName & " (" & hs.devicestring ("[4") & ")"
 else 
    hs.writelog "Debug","Valid Call from " & hs.devicestring("[4")
 end if

 hs.setDeviceString "z1",hs.devicestring("[3")
 hs.setDeviceValue "z2" ,hs.DeviceValue("z2")+1
 hs.setDeviceString "z2", hs.DeviceValue("z2")


 
 ' Send Net message 
 hs.plugin("message server").messagetoclient hs.DeviceString("[4"),"New Call", 2,0,1

 if tempName <> "" then 
   hs.plugin("message server").messagetoclient tempName,"New Call", 2,0,1
 else 
   hs.plugin("message server").messagetoclient hs.DeviceString("[4"),"New Call", 2,0,1
 end if



 ' E-Mail
 if tempName <> "" then  
   mailSubject = "Phone Call From : " & tempName & " (" & hs.devicestring("[4") & ")"
 else
   mailSubject = "Phone Call From : " & hs.devicestring("[4")
 end if
 mailMessage = "**** Homeseer Notification ****" & Chr(13) & Chr(10)
 mailMessage = mailMessage & "" & Chr(13) & Chr(10)
 mailMessage = mailMessage & "New Phone Call" & Chr(13) & Chr(10)
 mailMessage = mailMessage & "From : " & hs.devicestring("[4") & Chr(13) & Chr(10)
 mailMessage = mailMessage & "Name : " & hs.devicestring("[5") & Chr(13) & Chr(10)
 mailMessage = mailMessage & "Date : " & hs.devicestring("[2") & Chr(13) & Chr(10)
 mailMessage = mailMessage & "Time : " & hs.devicestring("[3") & Chr(13) & Chr(10)
 mailMessage = mailMessage & "Line : " & hs.devicestring("[6") & Chr(13) & Chr(10)
 
 hs.Sendemail "xxxxx@xxxx.com","yyyyy@yyyyy.org.uk",mailSubject,mailMessage
 hs.Sendemail "xxxxx@xxxxx.co.uk","yyyyy@yyyyy.org.uk",mailSubject,mailMessage

End Sub