// Finalidade : envia uma mensagem SMS e retorna o resultado TRUE/FALSE
// Sintaxe :
//[ <Résult> = ] EnviarSMS (<pNúmero>, <pMensagem>)
//
// Parametros :
// pNúmero : número do telefone celular
// pMensagem : mensagem com até 160 caractertes
// Valor de retorno :
// boolean : // TRUE=sucesso, FALSE=falha no envio
//
Procedure EnviarSMS(pNúmero,pMensagem)

SMS.Number = pNúmero
SMS.Message = pMensagem

IF SMSSend() THEN
RESULT True
ELSE
Error(ErrorInfo(errMessage))
RESULT False
END

// Fonte Lifetech