Userform İle Tanımlı Adresten Sms Atmak

1 2 3 4 5

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

Kod:
Dim tur As String

tur = "Normal"

Dim smsNN As String

smsNN = vbNullString

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.

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.

1 2 3 4 5