Access üzerinden SMS gönderme
#1
Merhaba Arkadaşlar,

(Access üzerine daha önce benzeri sitelerde paylaşımlarım olmuştu. Yeniden access' e yoğunlaştığım için sadece access konusunda aktif bir site arayışına girdim. Bugün birkaç site araştırması yaptım sonuç olarak doğru adresin burası olduğuna kanaat getirdim ve ihtiyacı olabilecek kişilere elimden geldiğince yardımcı olmak adına paylaşımlarımı bundan sonra access-sql.com da yapmaya karar verdim. Umarım faydam dokunur..) Bu sitedeki ilk konum :

Access üzerinden müşterilerinize sms göndermek isterseniz benim geliştirdiğim ve sanıyorumki hiç bir yerde olmayan bu yöntemi kullanabilirsiniz.

Piyasada Access üzerinden sms gönderme imkanı sağlayan bazı programlar mevcut fakat bu programların çoğu bir SMS hesabı ve kontör yükleme zorunluluğu getirmekte ve kontör ücretleri oldukça yüksek olmaktadır.

Benim yöntemimde de yine bir kontör olayı var fakat hem ucuz hemde hiçbir firmaya bağlı kalmadan herhangi bir sözleşme yapmadan ya da firma olmanıza gerek kalmadan özgürce sms gönderebileceğiniz bir kolaylık.

Gelelim nasıl yapacağımıza.

Ben SMS göndermek için Voipraider'i kullanıyorum hem çok ucuz (0,08 cent - 0,14 kuruş) hemde herzaman sorunsuz.

voipraider.com adresinden bir hesap açıyoruz tabi haliyle hesabımıza kontör yüklüyoruz. Son derece güvenli ve benim yıllardır internet üzerinden telefon görüşmesi ve SMS gönderdiğim bir sitedir.

Voipraider hesabımızı açtıktan sonra,

Formumuza Activex Microsoft web Browser ekliyoruz (mesaj HTML üzerinden gittiği için gerekli ve teslim edildiği bilgisini buradan görüyoruz formunuzda istediğiniz yere iliştirebilirsiniz)

Ardından bir komut düğmesi ve bir metin kutusu ekliyoruz
Komut Düğmemizin olay yordamına aşağıdaki kodu ekliyoruz.

Me.metin_kutunuzun_adı = "https://www.voipraider.com/myaccount/sendsms.php?username=XXXXXX&password=XXXXXX&from=XXXXXXX&to=" + Me.CEPTEL + "&text=XXXXXX"
WebBrowser.Navigate URL:=Me.metin_kutunuzun_adı


Komut düğmesine eklenen bu komutta= " + Me.CEPTEL + " yazan kısım kendi formunuzda kayıtlı müşterinizin cep telefonu numarası olan bölümdür yani sizin formunuzda cep telefonu metin kutusunun ismi her ne ise siz onu yazıyorsunuz. Örneğin cep telefonunun kayıtlı olduğu metin kutusunun adı CEPNO ise siz + Me.CEPNO + olarak değiştiriyorsunuz.

Müşterilerinizin cep telefon kayıtları mutlaka "+90" ile başlamalıdır. (biçimlendirmeyi bu şekilde yapabilirsiniz)

SMS iletilerinde Türkçe karakter kullanmamanız gerekmektedir. Mesaj metninde Türkçe karakter olmamasına dikkat edin.

XXXXXX yazan yerler sırasıyla;

username=XXXXXX (voipraider kullanıcı adınız)
password=XXXXXX (voipraider parolanız)
from=XXXXXX (telefon numaranız)
&to= ( yazan bölüme zaten müşterinin telefon numarasını tablodan çağırıyoruz)
text=XXXXXX (müşterinize göndermek istediğiniz mesaj içeriği - Türkçe karakter olmayacak)

Aynı şekilde komut düğmelerini çoğaltarak farklı mesaj kalıpları oluşturabilirsiniz. Örneğin ben teknik servis işinde kullanıyorum ve 2 komut düğmesi kalıp mesajı oluşturdum biri cihazın hazır olduğunu belirten bir mesaj diğeri cihaz alındı bilgisi içeren bir mesaj.

Siz istediğiniz şekilde (doğum günü mesajı v.b) kalıplar oluşturabilir. Birden fazla müşterinize +Me.CEPTEL komutunun yanına virgül koyarak +ME.CEPTEL2 şeklinde de kullanabilirsiniz bu şekilde oluşturduğunuz kadar metin kutusundan max:20 müşterinize aynı anda mesaj gönderebilirsiniz

"WebBrowser.Navigate URL:=Me.metin_kutunuzun_adı " komutundan Formunuza koyduğunuz Activex Microsoft web Browser 'ın ismi ne ise ona göre değiştiriyorsunuz.

Müşterinizin ismini veya tablodan istediğiniz herhangi bir bilgiyide mesaj metninin içine çekebilirsiniz tabi 160 karakterden sonra 2. mesaja geçtiğini ve 2 kontör gittiğini unutmayalım.

Biz şu şekilde kullanıyoruz; Örnek=
Ahmet Mehmet' adına Teknik servisimize bıraktığınız cihazınızın işlemi tamamlanmıştır. Teslim alabilirsiniz (Firma Bilgilerimiz)

Buradaki Ahmet Mehmet yani müşterimizin ismini aynen mesaj metninin içine Cep telefonu numarasını çağırdığımız gibi + Me.ADISOYADI + şeklinde mesaj metninin en başına yani
"&text=+ Me.ADISOYADI +"'adına Teknik servisimize bıraktığınız cihazınızın işlemi tamamlanmıştır. Teslim alabilirsiniz (Firma Bilgilerimiz)"
şeklinde ekleyerek o kişiye özel mesaj haline getirebilirsiniz.

Ayrıca ücretli bir program yaptıysanız HTML metnini gizleyip program hizmeti verdiğiniz müşterinizin adına Voip hesabı acarak SMS göndermelerine olanak tanıyabilirsiniz. Farzedelim ki 10$ lık kontör yüklediniz buda ortalama 125 SMS yapar Siz bir sayaç yaparak kaç sms gittiğini müşterinize yine form üstünden gösterebilirsiniz ve kontörü bitince size ulaşıp yeniden yükleme yapmasını sağlayabilirsiniz.

İşlem bu kadar basit.

Voipraider'i kullanmak zorunda değilsiniz. Benzeri hizmet veren bir programıda kullanabilirsiniz fakat HTML üzerinden SMS göndermeye imkan vermesi gerekmektedir.

Daha iyi anlayabilmeniz için örnek bir çalışma ekliyorum. Örnekte SMS gönderme düğmesine yanlışlıkla sms göndermemek için şifre ekledim faydası olacaktır.

Sorularınız olursa çekinmeden sorabilirsiniz.


Eklenti Dosyaları
.rar   vt1.rar (Boyut: 16,95 KB / İndirilme: 888)



  Alıntı
Bu mesajı beğenenler:
#2
Çok Güzel Bir Paylaşım.
Dershane Otomasyonu, Otopark vb. programlarda kullanılabilir.



  Alıntı
Bu mesajı beğenenler:
#3
ustam belki 1 senedir böle bisey arıyordum kendi capımda emlak işi yapıyorum bana çok faydası olacak Allah razı olsun sırf teşekkür etmek için üye oldum. Üstadım birde türkçe karakter olayını nasıl çözücez ve telefon numarasının başına +9 nasıl eklicez bilgilendirirsen çok sevinirim.. kolay gelsin



  Alıntı
Bu mesajı beğenenler:
#4
Ellerine sağlık güzel paylaşım
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#5
(25-12-2012, 19:09)omerbagis demiş ki: ustam belki 1 senedir böle bisey arıyordum kendi capımda emlak işi yapıyorum bana çok faydası olacak Allah razı olsun sırf teşekkür etmek için üye oldum. Üstadım birde türkçe karakter olayını nasıl çözücez ve telefon numarasının başına +9 nasıl eklicez bilgilendirirsen çok sevinirim.. kolay gelsin

Mesajlarınız için hepinize teşekkür ederim.

Sn. omerbagis, size aşağıdaki kodu yazdım bunu kullanabilirsiniz. Ceptelefonu metin kutunuzun güncelleştirme sonrası olay yordamını aşağıdaki gibi yapınız. (CEPTEL kısmını kendi metin kutunuzun ismine göre değiştiriniz)

Visual Basic
  1. Private Sub CEPTEL_AfterUpdate()
  2. If left(CEPTEL, 1) = "0" Then
  3. CEPTEL = "+9" + CEPTEL
  4. Else
  5. CEPTEL = "+90" + CEPTEL
  6. End If
  7.  
  8. End Sub



Buradaki kod girilen cep telefonu numarasının eğer başında sıfır varsa sadece +9 eklemesi gerektiğini yok ise +90 eklemesi gerektiğini ifade ediyor. (telefon numarasını birleşik olarak yazmalısınız bunun ayarınıda dilerseniz giriş maskesinden yapabilirsiniz farklı yöntemlerde olabilir)

Mesajdaki türkçe karakter olayı da, Müşterinize göndereceğiniz mesaj metnini ilk mesajda belirttiğim gibi siz belirliyorsunuz yani bu mesajı yazarken türkçe karakteri siz kullanmayacaksınız.

Bunun haricinde şöyle bir durum oluşuyor bende bugün farkettim Müşterinizin ismini mesaj metninin içine çağırdığınızda isimde ki türkçe karakterde sorun oluyor bunu iki türlü aşabilirsiniz birincisi, bundan sonraki kayıtlarda müşteri isminde türkçe karakterleri değiştirerek bunun için şöyle bir kod yazdım

Visual Basic
  1. Private Sub ADISOYADI_KeyPress(KeyAscii As Integer)
  2. If KeyAscii = 246 Then '(ö) ise
  3. KeyAscii = 79 '(O) yap
  4. ElseIf KeyAscii = 231 Then '(ç) ise
  5. KeyAscii = 67 '(C) yap
  6. ElseIf KeyAscii = 351 Then '(ş) ise
  7. KeyAscii = 83 '(S) yap
  8. ElseIf KeyAscii = 105 Then '(i) ise
  9. KeyAscii = 73 '(I) yap
  10. ElseIf KeyAscii = 252 Then '(ü) ise
  11. KeyAscii = 85 '(U) yap
  12. ElseIf KeyAscii = 287 Then '(ğ) ise
  13. KeyAscii = 71 '(G) yap
  14.  
  15. ElseIf KeyAscii = 305 Then '(ı) ise
  16. KeyAscii = 73 '(I) yap
  17.  
  18. ElseIf KeyAscii > 96 And KeyAscii < 123 Then
  19. KeyAscii = Asc(UCase(Chr(KeyAscii)))
  20.  
  21.  
  22. End If
  23.  
  24. End Sub


(Türkçe karakter değişim varyasyonlarını kendiniz bu koda göre çoğaltabilirsiniz)

Yukarıdaki kodu müşterinizin ad soyad metin kutusunun tuşa basıldığında olay yordamına giriniz tabi kendi metin kutunuzun ismiyle değiştirmeyi unutmayınız

ikinci yöntem ise genel bir düzenleme olabilir yani türkçe karakterlerin müşteri isimlerinden tamamen kaldırılması gibi bunun içinde bir kod yazabilirim.

yukarıdaki kod ile bundan sonra müşterilerinizin kayıt isimleri türkçe karakter içermez.

ikinci seçenek için biraz uğraşayım kodu bitirince buradan paylaşırım.



  Alıntı
Bu mesajı beğenenler:
#6
Elinize sağlık,
paylaşım için çok teşekkürler...



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Access'den Excel'e Tabloyu Biçimlendirerek Gönderme Örneği efeksk 14 10.285 24-07-2017, 11:20
Son Mesaj: kardanadam51
  Form Üzerinden google maps adres bulma jon206 21 13.898 29-09-2015, 21:19
Son Mesaj: serdem48
  Access Üzerinden Skype Chat ve Grop Chat Yapma - VBA Kodlarını Veriyorum karakabus 1 2.307 15-02-2015, 15:39
Son Mesaj: akd27
access-sql-12 Form Üzerinden Bir Dosyayı Farklı Klasöre Kopyalama Taruz 9 6.066 29-05-2014, 15:11
Son Mesaj: ali rıza özer
access-sql-12 Access Formu Üzerinden MSN ile Canlı Destek Taruz 35 19.510 01-12-2012, 18:51
Son Mesaj: senelkose
  Mail gönderme macinsoft 2 2.640 28-11-2011, 17:10
Son Mesaj: MirzaKatar
  Worda gönderme Kars36 7 3.820 18-02-2011, 14:19
Son Mesaj: DeepBlue
  Worda Resim Gönderme Birden Fazla Kars36 2 2.333 20-01-2011, 16:23
Son Mesaj: dreamt

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi