Herkese Merhaba
ekteki dosya ile userform ile arada sms gidiyor genelde ise sms göndermiyor. aşağıda belirttiğim kısımda hata veriyor ama çözemedim Ekteki dosya da bu kısımda normal yazınca Türkçemizin karekterlerini ingilizce karaktere çevirip yolluyor . Normal Yazan yerde Türkçe yazınca ise Türkçe karakterleri ingilizce karaktere çevirmeden Türkçe ç ş ğ ü ö şeklinde göndermesini istiyorum.
Yardım edebilecek olan varsa çok sevinirim.

Hata aldığım kısım aşağıda

Dim cevap As String

cevap = bytRetData



Dim ilkKarakter As String

ilkKarakter = Left$(cevap, 1)

    If ilkKarakter = "1" Then

        MsgBox "SMS Gönderimi Başarıyla Tamamlandı.!"

    Else

        MsgBox "SMS Gönderimi BAŞARISIZ.!"

    End If

Set oXmlHttp = Nothing

Debug.Print smsNN

Normalde okla gösterdiğim yerler tersi olmalı.
Resimdeki gibi deneyin.

(08/01/2021, 21:34)feraz yazdı: Normalde okla gösterdiğim yerler tersi  olmalı.
Resimdeki gibi deneyin.

 Dim cevap As String

cevap = bytRetData



Dim ilkKarakter As String

ilkKarakter = Left$(cevap, 1)

If ilkKarakter = "1" Then

MsgBox "SMS Gönderimi Başarıyla Tamamlandı.!"

Else

MsgBox "SMS Gönderimi BAŞARISIZ.!"

End If

Set oXmlHttp = Nothing

Debug.Print smsNN  

Hocam buradaki kısım hatalı görünüyor.

Ben dosyanızı denerken.Comboboxtan seçim yapmıştım ve textboxlara veri girince resime eklediğim yer hata vermişti çünkü dizi yaptığınız için ve dizi olarak uygulamadığınız için hata vermişti.
O kısma sonra bakabilirim.
Kısaca resimde gösterdiğim yerde hatalı yazmıştınız.

---

(08/01/2021, 23:24)hayalibey yazdı: cevap = bytRetData

Burdaki byReyData kodunu yazabilirmisiniz bir mobilden inceleyeyim.

(08/01/2021, 23:55)feraz yazdı: Ben dosyanızı denerken.Comboboxtan seçim yapmıştım ve textboxlara veri girince resime eklediğim yer hata vermişti çünkü dizi yaptığınız için ve dizi olarak uygulamadığınız için hata vermişti.
O kısma sonra bakabilirim.
Kısaca resimde gösterdiğim yerde hatalı yazmıştınız.

---

(08/01/2021, 23:24)hayalibey yazdı: cevap = bytRetData

Burdaki byReyData kodunu yazabilirmisiniz bir mobilden inceleyeyim.

Hocam elimde olan tüm kodlar yüklü olan dosyada mevcut . Elimde malesef başka kod yok

Bende Pc açmadan kodu eklerseniz bakayım demek istemiştim mobilden.

---

cevap = bytRetData
Burdan gelen sonucun solundaki 1 ise diye şart koşmuşsunuz.Onun için bakacaktım koda.

---

(06/01/2021, 20:16)hayalibey yazdı: Left$(cevap, 1)

Ayrıca burdaki dolar işaretine gerekte yok.