MSComm1.CommPort = 6 If MSComm1.PortOpen = False Then MSComm1.PortOpen = True With MSComm1 .Output = "AT" & Chr$(13) .Output = "AT+CMGF=1" & Chr$(13) & Chr(10) .Output = "AT+CMGS=" & Chr$(34) & Text1.Text & Chr$(34) & Chr(13) & Chr(10) .Output = text2.Text & Chr(26) MsgBox "Message has send" `` End With End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)