Journal problem recording correct phone number

[donwb]

I use Outlook 2003 on Windows 7 Pro 64 bit

I am trying to use the code listed below to record a dialled number in Journal.

I use the autodialler function of Outlook, where I select between Business, Mobile & Home numbers.

If the listing in my Contacts folder has a Business number as well as a Mobile Number listed

and I select and autodial the Mobile number, the intention of the code is to record that Mobile number in the resulting Journal entry.

However, the Journal entry always lists the Business Number even though I selected and dialled the Mobile number.

Is there a problem with the code?

Dim WithEvents m_colCalItems As Outlook.Items

Private Sub Application_Startup()

Dim objNS As Outlook.NameSpace

Set objNS = Application.GetNamespace("MAPI")

Set m_colCalItems = objNS.GetDefaultFolder(olFolderJournal).Items

Set objNS = Nothing

End Sub

Private Sub m_colCalItems_ItemAdd(ByVal Item As Object)

Dim objContact As Outlook.ContactItem

Dim strBusinessTelephoneNumber As String

Dim strHomeTelephoneNumber As String

Dim strMobileTelephoneNumber As String

Dim myUserProperty As UserProperty

Set myUserProperty = Item.UserProperties.Add("MyPhone", olText)

If Item.Links.Count = 1 Then

Set objContact = Item.Links(1).Item

strBusinessTelephoneNumber = objContact.BusinessTelephoneNumber

strHomeTelephoneNumber = objContact.HomeTelephoneNumber

strMobileTelephoneNumber = objContact.MobileTelephoneNumber

If strBusinessTelephoneNumber <> "" Then

Item.UserProperties("MyPhone") = strBusinessTelephoneNumber

Item.Save

ElseIf strHomeTelephoneNumber <> "" Then

Item.UserProperties("MyPhone") = strHomeTelephoneNumber

Item.Save

ElseIf strMobileTelephoneNumber <> "" Then

Item.UserProperties("MyPhone") = strMobileTelephoneNumber

Item.Save

End If

End If

Set objContact = Nothing

End Sub

 

[Diane Poremsky]

This:

If strBusinessTelephoneNumber <> "" Then
Item.UserProperties("MyPhone") = strBusinessTelephoneNumber

says if the number is not blank, to use it.

I'll have to double check, but i don't think you can get the number dialed - the dialer is not exposed in the object model - but that is what you would need to grab to get the correct number. Or maybe check to see if other numbers have entries and ask which one you want to choose.

 

[donwb]

Hi Diane

Thanks for your reply.

Could you please clarify this part of your answer:-

"Or maybe check to see if other numbers have entries and ask which one you want to choose."

also, when you say:-



"but I don't think you can get the number dialed"



I presume you mean that even if I dial Mobile, Outlook defaults to Business for entry in Journal. If that's so, what would be the criteria for choosing this default?



Kind Regards

donwb

 

[Diane Poremsky]

You could do something like the following (for example only, the code is not complete )

if mobile <>"" then
inputbox ("which number do you want to use?")
' more code

end if

When you use the dialer, Outlook can't detect which number you are dialing, only who you are calling. It can grab all of the numbers and anything field in the contact, but it doesn't know which number you actually selected in the call dialog.

 

[donwb]

Thanks Diane

As Outlook can't detect which number I'm dialing, then there's nothing more I can do.

I will put Business and Mobile numbers into separate Contact entries.

Regards

donwb

 

[Diane Poremsky]

I'd probably use an if statement to check - it will require input from you though, where separate contacts won't.

dim caller as string then change your code like this - after the call, you need to press b, h, or m and it will use the correct number. You could make it a little more complicated by checking numbers and if there is only 1, use it instead of asking which one to use.

caller = InputBox("Which number?") 
 
If caller = "b" Then
Item.UserProperties("MyPhone") = strBusinessTelephoneNumber
Item.Save
ElseIf caller = "h" Then
Item.UserProperties("MyPhone") = strHomeTelephoneNumber
Item.Save
ElseIf caller = "m" Then
Item.UserProperties("MyPhone") = strMobileTelephoneNumber
Item.Save

 

[Diane Poremsky]

This checks to see if either biz or mobile is empty and if so, use the field that has a number. if both have number, it asks which to use

 If strBusinessTelephoneNumber = "" Or strMobileTelephoneNumber = "" Then
If strBusinessTelephoneNumber <> "" Then
    Item.UserProperties("MyPhone") = strBusinessTelephoneNumber
      Item.Save
    ElseIf strMobileTelephoneNumber <> "" Then
   Item.UserProperties("MyPhone") = strMobileTelephoneNumber
   Item.Save
   Exit Sub
End If
Else
caller = InputBox("Which number?") 
 
If caller = "b" Then
Item.UserProperties("MyPhone") = strBusinessTelephoneNumber
Item.Save
ElseIf caller = "h" Then
Item.UserProperties("MyPhone") = strHomeTelephoneNumber
Item.Save
ElseIf caller = "m" Then
Item.UserProperties("MyPhone") = strMobileTelephoneNumber
Item.Save
End If
 End If

 

[donwb]

Many thanks for the code. I'll try it shortly & let you know the result.

donwb