Send SMS Using VB

How to send SMS (Short Message Service) from PC to Mobile phones. 

Devices 

1. Mobile phone (Nokia Model Only)
2. Connecting Device (Such as: Infrared, DataCable, or Bluetooth)
3. Download the appropriate Nokia PC Connectivity SDK depends on the version or model of the Nokia Phone you are using.

Procedures

1. Install the connecting device (Such as: Infrared, DataCable, or Bluetooth) in you pc.
NOTE: You must connect first the phone to your pc before installing.
2. Install the Nokia PC COnnectivity.
3. Open a Visual Studio and start new project.
4. Add the Nokia Components in your preferences.
5. Then copy the code below.

Code

 Private Sub cmdSend_Click()
On Error GoTo ErrorTrap
    
    Dim message As String
    message = txtMsg.Text
    Select Case chkUnicode.Value
    Case vbUnchecked
        If (Len(message) > SMS_TEXT_MAX_SIZE) Then
            pMsgPart1 = Left(message, SMS_CONCATENATED_TEXT_MAX_SIZE)
            pMsgPart2 = Right(message, Len(message) - SMS_CONCATENATED_TEXT_MAX_SIZE)
            SendConcatenatedMessage
            Exit Sub
        End If
    Case vbChecked
        If (Len(message) > SMS_UNICODE_MAX_SIZE) Then
            pMsgPart1 = Left(message, SMS_CONCATENATED_UNICODE_MAX_SIZE)
            pMsgPart2 = Right(message, Len(message) - SMS_CONCATENATED_UNICODE_MAX_SIZE)
            SendConcatenatedMessage
            Exit Sub
        End If
    Case Else
        MsgBox ("Select coding scheme")
    End Select
    
    Dim smsEntry As NokiaCLMessaging.ShortMessageItem
    Set smsEntry = New NokiaCLMessaging.ShortMessageItem
    
    smsEntry.Type = SHORTMESSAGE_TYPE_GSM_SUBMIT
    Set pIGSMSubmit = smsEntry.TypeProperties
    
    pIGSMSubmit.message = txtMsg.Text
    pIGSMSubmit.DestinationAddress = txtDestination.Text
    pIGSMSubmit.ServiceCenterAddress = txtMsgCenter.Text
    pIGSMSubmit.ProtocolID = 0
    If (chkUnicode.Value = vbChecked) Then
        pIGSMSubmit.DataCodingScheme = CODING_SCHEME_UNICODE
    Else
        pIGSMSubmit.DataCodingScheme = CODING_SCHEME_TEXT
    End If
    
    pIGSMSubmit.ValidityPeriodRelative = 255
    
    Call pSMSAdapter.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, pIGSMSubmit)

   'Insert your code here to store the sent message in the database.
        

    MsgBox "Message Sent To " & txtDestination.Text & vbCrLf & "With Reference Number: " & pIGSMSubmit.MessageReference, vbOKOnly, "Message Sent"
    
Exit Sub

ErrorTrap:
    If Err.Number = -2147467259 Or Err.Number = -2147467259 Then
    End If
    MsgBox Err.Description, vbInformation, "SMS Cannot Send"
    

End Sub

 **Compiled this code from titbits that I found during doing Google. If any Trouble or Bugs for the Above please do report as i might be unaware! (croozeus@gmail.com)