If your test machine can connect to a server that has MS Outlook running AND the SMS service is running in outlook (it runs on port 25) then you can send via that. I have some code somewhere I can send if these conditions are met for you.
There are some companies who run websites that allow you to logon and send an SMS message. You can automate this with QTP, put the code in a function and call from your QTP scripts.
Both these methods work as I have personally used them.
Sending an SMS message from QTP
'Only works if your SMTP server has the SMS service (and its running)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "XXXXX"
objMessage.Sender = "email@example.com" ‘ insert your mail ID here
objMessage.To = "+417710414174" ‘ number to sms
objMessage.TextBody = "This is some sample message text"
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.111.1.1"
'Server port (typically 25)
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'==End remote SMTP server configuration section==
Set objMessage = Nothing
'This code need the SMS Service to be running on the Exchange server the IP Address points to.