[Panos Mixos]

Καλησπερα τασο με την bulk sms δουλευει κανονικα ο κωδικας με την attenzoservices.com/api_http2/http? δεν δουλευει.
Την bulk εχω τωρα αλλα ειναι πανακριβη

το θεμα πρεπει να ειναι στην κωδικοποιηση utf-8 κατι πρεπει να πεζει εδω..!!

Μαλον o τροπος που δεχετε τα sms η bulk με τον τροπο που τα δεχετε η attenzoservices πρεπει να ειναι διαφορετικος.

Private Function URL_Encode(input_text As String)

Dim count As Integer
Dim one_char As String
URL_Encode = ""


For count = 1 To Len(input_text)
one_char = Mid(input_text, count, 1)


If InStr("0123456789ABCDEFGHIJKLMNOPRSTUVWXYZ", UCase(one_char)) = 0 Then
one_char = "%" & Right("0" & Hex(Asc(one_char)), 2)
End If
URL_Encode = URL_Encode & one_char
Next

End Function