Strict On

[Peter Osawa]

Hi, I'm trying to retreive outlook contact info with the phone number...

I code this with Option Strict On:

Dim myApp As New Outlook.Application
Dim contact As Outlook.ContactItem
Dim espace As Outlook.NameSpace
Dim contacts As Outlook.MAPIFolder

myApp = New Outlook.Application
espace = myApp.GetNamespace("MAPI")
contacts = espace.GetDefaultFolder(OlDefaultFolders.olFolderC ontacts)

contact = contacts.Items.Find("[BusinessTelephoneNumber]=0558XXXX") <<<---
Error

Me.Text = contact.FullName

And I have this error:

Option Strict On disallows implicit conversions from 'System.Object' to
'Outlook.ContactItem'.

I know Strict option is used for not melting types, but I don't know how
declare contact...

Any help ?

TIA

[Armin Zingler]

"Peter Osawa" <po****@sun.es> schrieb

I code this with Option Strict On:

Dim myApp As New Outlook.Application
Dim contact As Outlook.ContactItem
Dim espace As Outlook.NameSpace
Dim contacts As Outlook.MAPIFolder

myApp = New Outlook.Application
espace = myApp.GetNamespace("MAPI")
contacts =
espace.GetDefaultFolder(OlDefaultFolders.olFolderC ontacts)

contact = contacts.Items.Find("[BusinessTelephoneNumber]=0558XXXX")
<<<--- Error

Me.Text = contact.FullName

And I have this error:

Option Strict On disallows implicit conversions from 'System.Object'
to 'Outlook.ContactItem'.

I don't know the object model, but I guess the return type of the Find
function is Object. This means the function could return any type of object,
so you'd get a runtime error if the object's type is not
Outlook.ContactItem. So, if you are sure that the function will always
return a Outlook.ContactItem object, you can write:

contact = directcast( _
contacts.Items.Find("[BusinessTelephoneNumber]=0558XXXX"),
Outlook.ContactItem _
)
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[tMan]

use CType for type casting. also, look up DirectCast and the difference between these two

tr
contact=CType(contacts.Items.Find("[BusinessTelephoneNumber]=0558XXXX"), outlook.contactitem
catc
'handle erro
finall
end tr

----- Peter Osawa wrote: ----

Hi, I'm trying to retreive outlook contact info with the phone number..

I code this with Option Strict On

Dim myApp As New Outlook.Applicatio
Dim contact As Outlook.ContactIte
Dim espace As Outlook.NameSpac
Dim contacts As Outlook.MAPIFolde

myApp = New Outlook.Applicatio
espace = myApp.GetNamespace("MAPI"
contacts = espace.GetDefaultFolder(OlDefaultFolders.olFolderC ontacts

contact = contacts.Items.Find("[BusinessTelephoneNumber]=0558XXXX") <<<--
Erro

Me.Text = contact.FullNam

And I have this error

Option Strict On disallows implicit conversions from 'System.Object' t
'Outlook.ContactItem'

I know Strict option is used for not melting types, but I don't know ho
declare contact..

Any help

TI

[Peter Osawa]

Thank you very much !!!

"tMan" <an*******@discussions.microsoft.com> wrote in message
news:6E**********************************@microsof t.com...

use CType for type casting. also, look up DirectCast and the difference between these two.
try
contact=CType(contacts.Items.Find("[BusinessTelephoneNumber]=0558XXXX"), outlook.contactitem) catch
'handle error
finally
end try

----- Peter Osawa wrote: -----

Hi, I'm trying to retreive outlook contact info with the phone number...
I code this with Option Strict On:

Dim myApp As New Outlook.Application
Dim contact As Outlook.ContactItem
Dim espace As Outlook.NameSpace
Dim contacts As Outlook.MAPIFolder

myApp = New Outlook.Application
espace = myApp.GetNamespace("MAPI")
contacts = espace.GetDefaultFolder(OlDefaultFolders.olFolderC ontacts)

contact = contacts.Items.Find("[BusinessTelephoneNumber]=0558XXXX") <<<--- Error

Me.Text = contact.FullName

And I have this error:

Option Strict On disallows implicit conversions from 'System.Object' to 'Outlook.ContactItem'.

I know Strict option is used for not melting types, but I don't know how declare contact...

Any help ?

TIA

[Armin Zingler]

"Peter Osawa" <po****@sun.es> schrieb

I code this with Option Strict On:

Dim myApp As New Outlook.Application
Dim contact As Outlook.ContactItem
Dim espace As Outlook.NameSpace
Dim contacts As Outlook.MAPIFolder

myApp = New Outlook.Application
espace = myApp.GetNamespace("MAPI")
contacts =
espace.GetDefaultFolder(OlDefaultFolders.olFolderC ontacts)

contact = contacts.Items.Find("[BusinessTelephoneNumber]=0558XXXX")
<<<--- Error

Me.Text = contact.FullName

And I have this error:

Option Strict On disallows implicit conversions from 'System.Object'
to 'Outlook.ContactItem'.

I don't know the object model, but I guess the return type of the Find
function is Object. This means the function could return any type of object,
so you'd get a runtime error if the object's type is not
Outlook.ContactItem. So, if you are sure that the function will always
return a Outlook.ContactItem object, you can write:

contact = directcast( _
contacts.Items.Find("[BusinessTelephoneNumber]=0558XXXX"),
Outlook.ContactItem _
)
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html