Skip to main content

AccessTr.neT


Userform İle Tanımlı Adresten Sms Atmak

Userform İle Tanımlı Adresten Sms Atmak

Çözüldü #1
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
.rar SMS.rar (Dosya Boyutu: 33,31 KB | İndirme Sayısı: 5)
Cevapla
#2
Normalde okla gösterdiğim yerler tersi olmalı.
Resimdeki gibi deneyin.


[Resim: do.php?img=10666]
Cevapla
#3
(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.
Cevapla
#4
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.
Cevapla
#5
(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
Cevapla
#6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da