I am trying to retrieve, data from port7 and pass it to another computer through SMS, from port1 of same computer.I am using 2 comm controls for same purpose.MSComm1 is commected to port1
and MSComm2 is connected to port2.Now my problem is that, i am able to retrieve data from port1,
but i am not able to SMS it to other computer.ReadMsg(MessageNo) is the procedure to send SMS.
The program do not show any error, but it foes not send SMS either.On debugging, the control passes
through SendMsg() procedure, but do not send SMS.I am attaching the code with my query.
Do anybody have any idea?
Private sub SendMsg(GPs)
On error goto a
MSComm2.PortOpen = False
MSComm1.output = "AT+CMGF=1" & vbCr
Gpos = GPs & Chr$(26)
MSCOmm1.output = "AT+CMGS=5903635" & vbCr
MSComm1.output = Gpos
Msgbox "Cannot send SMS"