Sms

[hemaazez]

dear All
thank you for your great support
i have a form in my database to send SMS to any one , i have 2 buttons in the form to send a message ( one for English and one for Arabic ) , i use a program Unicode Converter to convert Arabic language to Unicode
i need a code to send both English and Arabic via one button without using any program to Convert Arabic to Unicode

the code for send the English SMS is
Private Sub Command4_Click()
Dim result1w As String
Dim sampleurl1w As String
Dim winhttp1w As Object
Set winhttp1w = CreateObject("winhttp.winhttprequest.5.1")
Dim w, wt As String
Me.Texfon.SetFocus
w = Me.Texfon.Text
wt = Me.Texsms.Value
sampleurl1w = "http://smsmisr.com/api/send.aspx?username=×××××××&password=×××××&language =1&sender=IPSP&mobile=" & w & "&message=" & wt & ""
winhttp1w.Open "get", sampleurl1w, False
winhttp1w.Send
result1w = Left(winhttp1w.ResponseText, 63)
MsgBox result1w
End Sub


the code for send Arabic SMS is:
Private Sub Command7_Click()
Dim result1w As String
Dim sampleurl1w As String
Dim winhttp1w As Object
Set winhttp1w = CreateObject("winhttp.winhttprequest.5.1")
Dim w, wt As String
Me.Texfon.SetFocus
w = Me.Texfon.Text
wt = Me.Texsms.Value


sampleurl1w = "http://smsmisr.com/api/send.aspx?username=××××××&password=×××××&language= 3&sender=IPSP&mobile=" & w & "&message=" & wt & ""
winhttp1w.Open "get", sampleurl1w, False
winhttp1w.Send
result1w = Left(winhttp1w.ResponseText, 63)
MsgBox result1w
End Sub

[pbaldy]

If the only thing different is the language argument in the url, you could make a function that takes it as an input argument. You'd still need a way to identify which was desired.

[hemaazez]

thank you for your comment
i use a program Unicode Converter to convert Arabic language to Unicode

[hemaazez]

thank you for your comment
i use a program Unicode Converter to convert Arabic language to Unicode