title: Vb 6.0 Send SMS nokia pc suite
body: <p>Can anyone help me how to send sms in vb 6.0 using nokia mobile connected through pcsuite. </p>
  
  <p>Below is the code im using . iam getting error in the Call pSMSAdapter.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, pIGSMSubmit). it is saying that object variable or with block variable not set</p>
  
  <pre><code>Private lngEventCounter As Long
  Private pFolderList() As NokiaCLMessaging.ShortMsgFolderItem
  Private pSMSAdapter As NokiaCLMessaging.ShortMsgAdapter
  Private pIGSMSubmit As NokiaCLMessaging.IGSMSubmit
  Private pSMSMessageItem As NokiaCLMessaging.ShortMessageItem
  Private pIGSMDeliver As NokiaCLMessaging.IGSMDeliver
  Private pIMemory As NokiaCLMessaging.IMemory
  Private pFreeIdxs As Variant
  Private pFreeSimIdxs As Variant
  Private pCurrentFolderIndex As Byte
  Private pMsgPart1 As String
  Private pMsgPart2 As String
  Private Const CODING_SCHEME_UNICODE = 8
  Private Const CODING_SCHEME_TEXT = 0
  Private Const SMS_TEXT_MAX_SIZE = 160
  Private Const SMS_UNICODE_MAX_SIZE = 70
  Private Const SMS_CONCATENATED_TEXT_MAX_SIZE = 153
  Private Const SMS_CONCATENATED_UNICODE_MAX_SIZE = 67
  Private parameterEntry As NokiaCLMessaging.IGSMParameters
  Private Sub SendConcatenatedMessage()
  
  On Error GoTo ErrorTrap
  
      Dim smsEntry As NokiaCLMessaging.ShortMessageItem
      Set smsEntry = New NokiaCLMessaging.ShortMessageItem
  
      Dim headerArray(0 To 5) As Byte
  
      smsEntry.Type = SHORTMESSAGE_TYPE_GSM_SUBMIT
      Set pIGSMSubmit = smsEntry.TypeProperties
  
      pIGSMSubmit.message = pMsgPart1
      pIGSMSubmit.DestinationAddress = txtDestinationNumber.Text
      pIGSMSubmit.ServiceCenterAddress = "+919894051914"
      pIGSMSubmit.ProtocolID = 0
      pIGSMSubmit.DataCodingScheme = 0
      pIGSMSubmit.ValidityPeriodRelative = 255
  
      headerArray(0) = 5 'header lenght
      headerArray(1) = 0 'concatenated sms
      headerArray(2) = 3 'length of information element A
      headerArray(3) = 50 'reference number
      headerArray(4) = 2 '2 messages
      headerArray(5) = 1 'sequence number of sms
  
      pIGSMSubmit.UserDataHeader = headerArray
  
      Call pSMSAdapter.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, pIGSMSubmit)
  
      pIGSMSubmit.message = pMsgPart2
      pIGSMSubmit.DestinationAddress = txtDestinationNumber.Text
      pIGSMSubmit.ServiceCenterAddress = "+919894051914"
      pIGSMSubmit.ProtocolID = 0
      pIGSMSubmit.DataCodingScheme = 0
      pIGSMSubmit.ValidityPeriodRelative = 255
  
      headerArray(0) = 5 'header lenght
      headerArray(1) = 0 'concatenated sms
      headerArray(2) = 3 'length of information element A
      headerArray(3) = 51 'reference number
      headerArray(4) = 2 '2 messages
      headerArray(5) = 2 'sequence number of sms
  
      pIGSMSubmit.UserDataHeader = headerArray
  
      Call pSMSAdapter.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, pIGSMSubmit)
      MsgBox ("Concatenated MEssage sent")
  
  Exit Sub
  
  ErrorTrap:
      MsgBox Err.Description, vbInformation, "Error Concatenate Message"
  End Sub
  
  Private Sub Form_Load()
  
  End Sub
  </code></pre>