Converting Unicode Strings in Access/Basic

[Alphaboomer]

I'm using the following code to retrieve a list of all the Categories
used by Microsoft Outlook:

sub test()
Dim objWSHShell As Object
Dim strCategoryList As Variant

Set objWSHShell = CreateObject("WScript.Shell")
strCategoryList = objWSHShell.RegRead_
("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0 \Outlook\Categories\MasterList")

end sub

Upon viewing strCategoryList, I can see that I have unicode characters.
What I'd like to do is convert this unicode string to a normal string
that works with VB functions.

How can I do that?

By the way, I tried to declare strCategoryList as a String variable,
but received a type mismatch when it attempted to copy the values.
Any help would be appreciated. I'm a Unicode Newbie!

Terry

[Alphaboomer]

Ooops! I suppose I should have said that I'm using Access 2003 and
Outlook 2003.

Thanks,

Terry

[jimfortune]

Alphaboomer wrote:

I'm using the following code to retrieve a list of all the Categories
used by Microsoft Outlook:

sub test()
Dim objWSHShell As Object
Dim strCategoryList As Variant

Set objWSHShell = CreateObject("WScript.Shell")
strCategoryList = objWSHShell.RegRead_
("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0 \Outlook\Categories\MasterList")
end sub

Upon viewing strCategoryList, I can see that I have unicode characters. What I'd like to do is convert this unicode string to a normal string
that works with VB functions.

How can I do that?

If your problem is really converting from Unicode, the StrConv function
using the vbFromUnicode constant should work. Also, I feel comfortable
using the Outlook Object Model so perhaps check to see if Categories
are part of the Object Model.

James A. Fortune

A form's complexity seldom grows linearly with the number of controls
on it.

[Alphaboomer]

James,

Thanks for your reply. Unfortunately, any time I try to use a string
conversion function, I get a type mismatch error (13).

According to some other Outlook forums, the only location that stores
the Master Category list is the registry.
Any other ideas would be appreciated!

Terry

[Alphaboomer]

James,

Thanks for your reply. Unfortunately, any time I try to use a string
conversion function, I get a type mismatch error (13).

According to some other Outlook forums, the only location that stores
the Master Category list is the registry.
Any other ideas would be appreciated!

Terry

[David Schofield]

On 9 Dec 2004 14:24:30 -0800, "Alphaboomer" <al*********@hotmail.com>
wrote:

I'm using the following code to retrieve a list of all the Categories
used by Microsoft Outlook:

sub test()
Dim objWSHShell As Object
Dim strCategoryList As Variant

Set objWSHShell = CreateObject("WScript.Shell")
strCategoryList = objWSHShell.RegRead_
("HKEY_CURRENT_USER\Software\Microsoft\Office\11. 0\Outlook\Categories\MasterList")

end sub

Upon viewing strCategoryList, I can see that I have unicode characters.
What I'd like to do is convert this unicode string to a normal string
that works with VB functions.

How can I do that?

By the way, I tried to declare strCategoryList as a String variable,
but received a type mismatch when it attempted to copy the values.
Any help would be appreciated. I'm a Unicode Newbie!

Terry

Hi
This surely should work without any conversion, as VB works in unicode
internally. Your code worked for me (admittedly with a different
registry string) both in vb6 and in Access 97 with strCategoryList
declared as a string.
David

[David Schofield]

On 9 Dec 2004 14:24:30 -0800, "Alphaboomer" <al*********@hotmail.com>
wrote:

I'm using the following code to retrieve a list of all the Categories
used by Microsoft Outlook:

sub test()
Dim objWSHShell As Object
Dim strCategoryList As Variant

Set objWSHShell = CreateObject("WScript.Shell")
strCategoryList = objWSHShell.RegRead_
("HKEY_CURRENT_USER\Software\Microsoft\Office\11. 0\Outlook\Categories\MasterList")

end sub

Upon viewing strCategoryList, I can see that I have unicode characters.
What I'd like to do is convert this unicode string to a normal string
that works with VB functions.

How can I do that?

By the way, I tried to declare strCategoryList as a String variable,
but received a type mismatch when it attempted to copy the values.
Any help would be appreciated. I'm a Unicode Newbie!

Terry

Hi
This surely should work without any conversion, as VB works in unicode
internally. Your code worked for me (admittedly with a different
registry string) both in vb6 and in Access 97 with strCategoryList
declared as a string.
David

[Alphaboomer]

Thanks to all - the problem is solved.

Apparently the registry entry is stored in a binary format, not
Unicode.

Sorry for the annoyance!

Terry

[Alphaboomer]

Thanks to all - the problem is solved.

Apparently the registry entry is stored in a binary format, not
Unicode.

Sorry for the annoyance!

Terry