VoipCheap

[Luciano]

Hi
I'm using a VBA-function (sendSMS) to sent a Text-message with VoipCheap.
something like :

Public Function sendSMS(ByVal sms_username As String, _
ByVal sms_password As String, _
ByVal sms_from As String, _
ByVal sms_to As String, _
ByVal sms_msg As String)

On Error GoTo Err_sendSMS

Dim strResult As String
Dim URL_base As String
Dim str_POST As String
Dim XMLHttpRequest As XMLHTTP

Set XMLHttpRequest = New MSXML2.XMLHTTP

URL_base = "https://www.voipcheap.com/myaccount/sendsms.php?"

str_POST = URL_base & _
"username=" & sms_username & _
"&password=" & sms_password & _
"&from=" & sms_from & _
"&to=" & sms_to & _
"&text=" & sms_msg

Debug.Print str_POST

XMLHttpRequest.Open "GET", str_POST, False

XMLHttpRequest.send

MsgBox XMLHttpRequest.responseText

Exit_sendSMS:
Exit Function


Err_sendSMS:
' MsgBox "sendSMS - " & Err.Description & " " & Err.Number
MsgBox "ErrorsendSMS"


Resume Exit_sendSMS
End Function

I call this function in my vba-Code (cdmSMS1 and cmdSMS2 are command-buttons in a form)

Private Sub cmdSMS1_Click()
Dim strMobile1 As String, strSMSText As String
strSMSText = "Test1"
strMobile1 = "00 32 474 68 59 65"
Call sendSMS(gstrVoipCheapAccount, gstrVoipCheapPassWord, gstrMyCompanyName, strMobile1, strSMSText)
End SubPrivate Sub cmdSMS_Click()

This is working fine (one sms_to number)

Private Sub cmdSMS2_Click()
Dim strMobile2 As String, strSMSText As String
strSMSText = "Test2"
strMobile2 = "00 32 474 68 59 65" & vbCrLf & "00 32 478 27 08 91"
Call sendSMS(gstrVoipCheapAccount, gstrVoipCheapPassWord, gstrMyCompanyName, strMobile2, strSMSText)
End Sub

This is not working, only the first sms_to number is receiving the strSMSText-message.

[RuralGuy]

You are defining two separate objects here:

Dim XMLHttpRequest As XMLHTTP

Set XMLHttpRequest = New MSXML2.XMLHTTP

It should be either:

Dim XMLHttpRequest As XMLHTTP

'-- not needed
'Set XMLHttpRequest = New MSXML2.XMLHTTP

...or:

Dim XMLHttpRequest As Object

Set XMLHttpRequest = New MSXML2.XMLHTTP

And don't forget: when you Set something then Set it to Nothing when you are done.

[ItsMe]

Does VoipCheap's API support multiple numbers/texts? How do they say you need to format this in the XML element? You are providing it as a list and including a Carriage Return and a Line Feed.

[orange]

I saw this from their web site

Sending text messages (SMS) via VoipCheap

You may use special characters; however the use of special characters '(characters like ç, @, €, etc.) may result in longer messages. To check how many messages would be needed to send your message, please use the SMS function in your myaccount, your desktop client or MobileVOIP client.


Using the VoipCheap client:

Select the SMS-tab in the application:
Your user name is already filled out in the Caller ID field. You can opt to show your mobile phone number as well. Just make sure your mobile number is entered in your personal profile and verified (to counter misuse of the SMS).
You can enter multiple recipients. Simply select them from your phone book or enter them directly in the text field (comma separated, use the full international number)

[RuralGuy]

Hmm...looks like a comma is in order.

[Luciano]

Comma doesn' work neither ';';

[RuralGuy]

You've displayed a semi-colon ";". A comma is ",".

[Luciano]

I know, I mean neither comma "," neither semi-colon ";" is working

[RuralGuy]

So you changed this:
strMobile2 = "00 32 474 68 59 65" & vbCrLf & "00 32 478 27 08 91"
...to:
strMobile2 = "00 32 474 68 59 65,00 32 478 27 08 91"
...right?

[orange]

Luciano,

Have you read the info at the VoipCheap website? I did not see an example of any interface for programmers, but I did not download nor look in detail. You could also try to contact the company.

This is basic for windows computer
Good luck.

[rpeare]

if the first one *is working* and the second one isn't is working try:

Private Sub cmdSMS2_Click()
Dim strMobile2 As String, strSMSText As String
strSMSText = "Test2"
strMobile2 = "00 32 474 68 59 65" 
Call sendSMS(gstrVoipCheapAccount, gstrVoipCheapPassWord, gstrMyCompanyName, strMobile2, strSMSText)
strMobile2 = "00 32 478 27 08 91"
Call sendSMS(gstrVoipCheapAccount, gstrVoipCheapPassWord, gstrMyCompanyName, strMobile2, strSMSText)
End Sub

edit: bad wording

[Luciano]

It's rather :
strMobile1 = "00 32 474 68 59 65"

strMobile2 = "00 32 474 68 59 65" & "," & "00 32 478 27 08 91"

[rpeare]

Did you try what I suggested, two different sends rather than trying to do it together? If the single send works sending two individually should work as well.

[RuralGuy]

There is *no* difference between:
strMobile2 = "00 32 474 68 59 65" & "," & "00 32 478 27 08 91"
...and...
strMobile2 = "00 32 474 68 59 65,00 32 478 27 08 91"

[Luciano]

yes I did and it's working fine but rather slow. I thought maybe selecting more numbers it should be work faster?