Unicode SMS, again?!

[williamwklee]

I wrote the following lines of code in VB6:

-- begin code --
Private SMSAdapter As SMS3ASuiteLib.SMS_SuiteAdapter

Private Sub commandSend_Click()
Dim SMSMessage As SMS3ASuiteLib.ShortMessage
Set SMSMessage = SMSAdapter.CreateShortMsg
SMSMessage.UserDataFormat = UNICODE_16_BIT
SMSMessage.OtherEndAddress = textDestDirectoryNumber.Text
SMSMessage.UserDataLength = 70
SMSMessage.UserDataText = StrConv(textMessage.Text, vbUnicode)
Call SMSAdapter.Send(SMSMessage)
End Sub

Private Sub Form_Load()
Set SMSAdapter = New SMS3ASuiteLib.SMS_SuiteAdapter
End Sub

Private Sub Form_Unload(Cancel As Integer)
SMSAdapter.Terminate
Set SMSAdapter = Nothing
End Sub
-- end code --

On the form (formMain), there are two text boxes (textDestDirectoryNumber and textMessage) and a command button (commandSend). This little program sends out a message to the specified directory number, but the contents of the message is empty. Any ideas?

(If the message is in ANSI, commenting out the SMSMessage.UserDataFormat line and without the Unicode convertion function [StrConv] will work perfectly.)

The PCCSDK I am using is 3.0 beta. Development platform: Windows 2K Professional and Visual Basic 6.0sp5.

Please give your helping hand. Thank you.

William WK Lee
Hong Kong

[ttbbssnotes]

Well,
I had the same problem and solved it.
I changed the phone model to Nokia 6310i and I am using the "namespace NokiaCLMessaging" - NCLMSG.DLL.

It works now...