Call Notifier checking Outlook Contacts - Done

[shosa]

Hello,

after some toying around I programmed a solution to check incoming calls against your Outlook contacts - I just need to integrate the VB Script I made into the Call Notifier Java Script.

If anyone can give me a hand here since I'm an absolute idiot when it comes to Java Script, I'd be grateful.

Here is what I made in VB. The 'searchString' variable must be the 'thePhoneNumber' from the Call Notifier script.

[code:1]
On Error Resume Next

Const olFolderContacts = 10
Dim arrContacts (1000)
Dim arrLength, ItemCount

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items

ItemCount = 0
For Each objContact In colContacts
line = objContact.HomeTelephoneNumber & objContact.BusinessTelephoneNumber & objContact.MobileTelephoneNumber
dline = Replace (line, " ", "")
line = objContact.FullName & "_" & dline
arrContacts(ItemCount)= line
ItemCount = ItemCount +1
Next

SearchString = "+43664"
For Each InputItem In arrContacts
TempString = InputItem
If InStr(TempString, SearchString) > 0 Then
pos = InStr(TempString, "_")
displayString = Left(TempString, pos-1)
End If
Next
[/code:1]

If you have any questions, just ask - and a big thanks to you Java wiz kids out there!

[shosa]

Ok, I've changed the whole stuff to vbs now. Enjoy -
[code:1]
function CallStatusChanged( theTerminal, theCallStatus, thePhoneNumber, theCallType, theCID )

'On Error Resume Next

Const olFolderContacts = 10
Const Title = "Incoming call from "
Dim arrContacts (1000)
Dim arrLength, ItemCount

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items

If theCallStatus = 7 Then
If Not thePhoneNumber = "" Then
ItemCount = 0
For Each objContact In colContacts
line = objContact.HomeTelephoneNumber & objContact.BusinessTelephoneNumber & objContact.MobileTelephoneNumber
dline = Replace (line, " ", "")
line = objContact.FullName & "_" & dline
arrContacts(ItemCount)= line
ItemCount = ItemCount +1
Next

SearchString = thePhoneNumber
For Each InputItem In arrContacts
TempString = InputItem
If InStr(TempString, SearchString) > 0 Then
pos = InStr(TempString, "_")
displayString = Left(TempString, pos-1)
'WScript.Echo displayString
End If
Next
displayString = Title & displayString
Else
displayString = Title & " unknown number"
End If
Call ShowMessage (displayString , NoIcon, -1, 1000)
End If

End Function
[/code:1]

[pepe6859]

So when ready to install this will do what Im asking in another post about to display caller name from CALL NOTIFIER right?
The thing is that now I need to syncronize my Nokia PC SUITE with otlook express and till now I've been not able to do so :-(
But a least we are going in the right path jejejejeje

[shosa]

This is what the script does - see attached screenshot. Please note that I am using it with Outlook 2007 not Express.

[pepe6859]

Hi Shosa

Im using office outlook 2007 also (sorry for my mistake)
So that means tha it is already a working script? I copy and paste and thats it?
I did it and not working at all.
I erase the old content and paste the new as it is.

Thankes for any advise.

[shosa]

You'll need to edit the xml file so it matches the new filename (callnotifier.vbs not .js)

[pepe6859]

I still trying to get a software to make my .vbs jejejeje the HTLM already edited.
Thanks for ur tips

[pepe6859]

I dont have the knowlage about debbuger and so on. So not able to install it :?

[pepe6859]

I'm lost!!!!

[pepe6859]

:shock: At least Outlook syncronized with my phone!!!! :D :D :D :D
Only the script file still offering resistance jejejejeje

[frrik]

Hi,

I cant get this to work. It's all done by the book - I think - but I can't figure it out.

This is the log:
Tue Apr 15 19:57:13 2008
Call Notifier - Körningsfel i Microsoft VBScript
[Line: 18 (10)] [color=red]Objektet stöder inte egenskapen eller metoden[/color].: 'objContact.HomeTelephoneNumber'

The RED text reads something like [i]"Object does not support the feature or method"[/i].

HELP PLEASE!

[InGeNeTiCs]

Ok, so how do I change the display interval on this? It seems like it only pops up for half a second before it disappears. Hardly long enough for me to decide whether I want to ignore the person calling or not.

Thanks

[vwmomo]

Did everything I was suppose to do and synced my address book from my phone.. Im wondering also if I can get it to show longer its only up for a half a second... Just shows "Incoming call from unknown number"

Thomas

[shosa]

This entry controlls how long the caller ID is displayed

[code:1]
Call ShowMessage (displayName , NoIcon, -1, 10000)
[/code:1]

Edit the "10000" (equals 10 seconds) to fit your needs.

Regards - Tom

[shosa]

Frrik,

this line
[code:1]
line = objContact.HomeTelephoneNumber & objContact.BusinessTelephoneNumber & objContact.MobileTelephoneNumber
[/code:1]
represents the fields which are queried in Outlook (Mobile Phone Number, etc.) - if you use other fields (like Business Phone Number 2 or alike) you'll need to adapt those fields to your needs.

Or your Outlook is not 2007 that is also possible (I'm afraid those objects only exist in Outlook 2007).

Regards - Tom