vb6+Outlook Phone Numbers

[justmebliss]

I have a small VB application that will import contacts from an access database into Outlook, and this has worked fine until Windows Vista.

When installed on Vista (no matter what office version it seems) the import will cut out the plus sign (+) from the start of phonenumbers.

Having looked at the running code, I have found that the character is lost here:

Contact.MobileTelephoneNumber = myTable("phone1")

resulting in +47xxxxxxxx getting saved as 47xxxxxxxx.

I have tried various tings, and see that the character is only stripped when it is in the start of the phone number, ex: adding

Contact.MobileTelephoneNumber = "+" & myTable("phone1")

will produce ++47xxxxxxxx

Can anyone explain this/suggest a solution?

[Evolution445]

Maybe it works if you put "+" between brackets : ("+")

[justmebliss]

No, it still produces ++47....and I have tried anything I can think of, and all search terms I can think of in google. :s

The whole code is something like..

Dim objAllContacts As Outlook.Items
Dim Contact As Outlook.ContactItem
Set objAllContacts = objFolder.Items
For Each Contact In objAllContacts
strSQL = "SELECT * FROM contacts WHERE username = '" & Contact.CustomerID & "';"
Set myTable = myDB.OpenRecordset(strSQL)
If Not myTable.EOF Then
Contact.MobileTelephoneNumber = (" ") & myTable("phone1")
Contact.Save
end if
myTable.Close
myDB.Close
next