Found a perfect solution for SMS through VB

"rahul i think ,vb com component added in ur tools.

Public Sub send_SMS()
Dim message As String
Dim i
Dim k
MSComm1.CommPort = CInt(comPort)'value is 1
If Not MSComm1.PortOpen = True Then
MSComm1.PortOpen = True
End If
For i = 0 To 3
If Not StrComp(HPalert(i), "NoNumber", vbTextCompare)=0 'handphone
nos in HPalert(i)
message = "AT+CMGS=" + HPalert(i) + Chr(13)
'message = "AT+CMGS=97805342" + Chr(13)
MSComm1.Output = message
message = ""
For k = 0 To 2
If k = 0 Then
message = message + MSComm1.Input
If Not InStr(1, message, ">", 1) = 0 Then
k = 3
End If
End If
Next k

MSComm1.PortOpen = False

End Sub

"rahul" <mercz3@rediffmail.com> wrote:
>
>Found an Solution which allows u to send SMS through VB. No net connection
>required. It uses your mobile device which should support infrred communication.
>Lets exchange ideas

"clicker" <hoangtuhero@yahoo.com> wrote:
>
>"rahul" <mercz3@rediffmail.com> wrote:
>>
>>Found an Solution which allows u to send SMS through VB. No net connection
>>required. It uses your mobile device which should support infrred communication.
>>Lets exchange ideas
>
I have Ericsson FCT (fixed cellular Terminal) it has in built modem so can
be interfaced through com port. Please confirm if your software can be used
with this.