FoxPro/Visual FoxPro - Enviar mensaje de texto o wasap automáticamente

Buenas tardes estimados, alguien sabe de alguna rutina para enviar mensajes de texto o wsaap desde un sistema programado en Foxpro 9 ? , Por ejemplo avisar de un turno a los pacientes de una clínica , aguardo alguna respuesta, gracias !

Buen día:
Navegando encuentro esta pregunta
Si no la has solucionado aún, te envío texto subido en el año 2015


*****
***** RUTINA DE ENVIO SMS UNIDAD
*****

IF THISFORM.olecontrol1.portopen
THISFORM.olecontrol1.portopen = .F.
ENDIF
THISFORM.olecontrol1.commport = ypuerto
THISFORM.olecontrol1.portopen = .T.

SELECT 3 &&&& tabla que contiene datos entre los cuales el numero de celular

LOCATE FOR CODIGO=UCOL
XNUMERO=ALLTRIM(CELULAR)
***
***
YREF=""
***
***
IF LEN(XNUMERO)=0.OR.LEN(XNUMERO)<10
MESSAGEBOX("SMS NO SE ENVIA A UNIDAD - NUMERO DE CELULAR VACIO O MENOR A 9 CARACTERES "+XNUMERO,0+48,"SEGURIDAD Y VALIDACION")
* RETURN 0
ELSE
NRO1 = XNUMERO
NRO2 = '"'+NRO1+'"'
IF ALLTRIM(YNOMBRE)=ALLTRIM(YUSUARIO)
SMS1=ALLTRIM(STR(xyyy))+" - "+ALLTRIM(YUSUARIO)+" - "+ALLTRIM(yorigen)+" - "+ALLTRIM(yref)+" - "+xamen
ELSE
SMS1=ALLTRIM(STR(xyyy))+" - "+ALLTRIM(YNOMBRE)+" - "+ALLTRIM(YUSUARIO)+" - "+ALLTRIM(yorigen)+" - "+ALLTRIM(yref)+" - "+xamen
ENDI
*THISFORM.olecontrol1.OUTPUT = "AT+CMGS="+'"NRO1"' + CHR(13)
THISFORM.olecontrol1.OUTPUT = "AT+CMGS="+NRO2 + CHR(13)
INKEY(1)
THISFORM.olecontrol1.OUTPUT = SMS1 + CHR(26)
THISFORM.olecontrol1.OUTPUT = "ATH"+CHR(13)
THISFORM.olecontrol1.portopen = .F.
ENDIF

Tu respuesta esta a medias,.
Que olecontrol1 estas usando?

Insertar un ActiveX Control

TIPO Microsoft Communications Control

Este genera un OLECONTROL(N) su n♪mero estará dado por la cantidad de (ole control ) insertados

Saludos

Primero debes tener dispositivo BAM o TLF conectado a tu PC ,debes saber que puerto COM esta usando y luego abrirlo con el control OLE y de ahi en adelante programar los envios y recepciones en internet hay un ejemplo de unos hyndues si mal no recuerdo.