AccessTr.neT
Userform İle Tanımlı Adresten Sms Atmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Userform İle Tanımlı Adresten Sms Atmak (/konu-userform-ile-tanimli-adresten-sms-atmak.html)

Sayfalar: 1 2 3 4 5

Userform İle Tanımlı Adresten Sms Atmak - hayalibey - 06/01/2021

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


RE: Userform İle Tanımlı Adresten Sms Atmak - feraz - 08/01/2021

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


[Resim: do.php?img=10666]

RE: Userform İle Tanımlı Adresten Sms Atmak - hayalibey - 08/01/2021

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


[Resim: do.php?img=10666]
 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.

RE: Userform İle Tanımlı Adresten Sms Atmak - feraz - 08/01/2021

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.

RE: Userform İle Tanımlı Adresten Sms Atmak - hayalibey - 09/01/2021

(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

RE: Userform İle Tanımlı Adresten Sms Atmak - feraz - 09/01/2021

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.