Skip to main content

AccessTr.neT


Onay Kutusu İle Sms Göndermek??

Onay Kutusu İle Sms Göndermek??

#1
S.aleykum değerli forum üyeleri-adminler;
Motorlu Taşıtlar Sınav Görevlisi (Ehliyet Sınavları) belirlemek için bu işle görevli arkadaşlarımın isteği üzerine tasarlamış olduğum uygulama örneği ektedir.

Örnek sorunsuz bir şekilde çalışmakta ve işleyişe büyük katkı sağlamış bulunmaktadır.
Uygulamanın geliştirilmesi için burada paylaşıyorum, dileyen herkes fikir olması açısından inceleyebilir-geliştirip kullanabilir ya da  bu hali ile  kullanabilir.

Uygulama için benim de sizden bir ricam var, herhangi birisi için görev verildiğinde (Görevli EVET/HAYIR) yani evet kutucuğuna onay tiki atıldığında,
SAYIN; X KİŞİ 12.03.2017 Pazar Günü Ehliyet Sınavı Direksiyon Uygulamasında Görevlendirildiniz şeklinde SMS atmak mümkün mü??

Bu konuda öneri ve yardımlarınızı bekliyor saygılar sunuyorum.

Not:Kurumsal olarak sms şirketi ya da milli eğitim bakanlığı kurumsal sms paketi üyeliği üzerinden sms.ler yollanacak.
.rar MTSK.rar (Dosya Boyutu: 175,52 KB | İndirme Sayısı: 44)
Cevapla
#2
Microsoft Access İle SMS Gönder

Bağlantısındaki örneği inceleyiniz.
Cevapla
#3
Değerli Ozan hocam;bahsettiğiniz konudaki örneğinizi daha önce de incelemiştim.Konuyu tam kavrayamadığımdan sanırım,mevcut uygulamaya uyarlamada sıkıntı yaşadım.Verdiğiniz örnek başlı başına bir uygulama.

Bizim istediğimiz halihazırda sistemde kayıtlı olan öğretmenlere sınav görevi verildiğinde (sınav tarihi-sınav günü hanesi doldurulup görev evet-hayırdan evet işaretlendiğinde) kime görev verildiyse o kişi işaretlenir işaretlenmez arka planda O KİŞİNİN TEL NO'ya SMS yollamasıdır.Bunun için onay kutusunun tıklandığında olay yordamına nasıl bir kod yazmalıyız bu konuda yardıma ihtiyacım var.

Öneri ve yardımlarınızı bekliyor saygılar sunuyorum.


Not:Benzer özellikteki diğer konumda ise aynı şekilde bu defa SMS değil de MAİL yollaması sözkonusu.
Son Düzenleme: 12/03/2017, 21:51, Düzenleyen: mehami.
Cevapla
#4
Merhaba, Sizin sms firmanız ne bilmiyorum. Eklediğim bağlantıdaki uygulamada iletimerkezi'ne ait api kullanıldı. 

A2 Grubu kısmındaki alt formdaki "Onay123" onay kutusunun güncelleştirme sonrasında olayına

If Onay123 = -1 Then
MsgBox (Me.telefon & "Numaralı telefona SMS gönderilsin mi?")

GMesaj = "SAYIN " & Me.ad_soyad & "; " & Me.grv_tarih & " " & Metin187 & " günü Ehliyet Sınavı Direksiyon Uygulamasında Görevlendirildiniz"

GirisTel = "000000" ' kullanıcı tel no
GirisSifre = "000000" ' kullanıcı şifresi
GBaslik = "AccessTrneT" 'kullanıcı başlığı

GZaman = Format(Date, "dd/mm/yyyy") & " " & Format(Time(), "hh:nn")
GZaman = Replace(GZaman, ".", "/")
XMLVerisi = "<?xml version='1.0' encoding='UTF-8' ?><request><authentication><username>" & GirisTel & "</username><password>" & GirisSifre & "</password></authentication><order><sender>" & GBaslik & " </sender><sendDateTime>" & GZaman & "</sendDateTime><message><text><![CDATA[" & GMesaj & "]]></text><receipents><number>" & Me.telefon & "</number></receipents></message></order></request>"
GelenXML = XMLPOST("http://api.iletimerkezi.com/v1/send-sms", XMLVerisi)

MsgBox (GelenXML)

End If

Aynı formun Vba sayfasına

Private Function XMLPOST(ByVal PostAddress As String, ByVal xmlData As String) As String
On Error GoTo hata_kontrol
   Dim XMLSender As New MSXML2.XMLHTTP
   XMLSender.Open "POST", PostAddress, False
   XMLSender.send xmlData
   XMLPOST = XMLSender.responseText
   Exit Function
hata_kontrol:
   XMLPOST = ""
End Function

Kodu ekle, son olarak Microsoft XML referansını ekle. Onay kutusu tıklandığında gönderilen sms aşağıdaki gibidir.


[Resim: do.php?imgf=148941702340981.png]
Cevapla
#5
Konunuza geri dönüş yapmanızı bekliyoruz.......
Cevapla
#6
Değerli Ozan Hocam vermiş olduğunuz kod ile sorun çözüldü.Çok tşk ederim.Konu taşınabilir.

Not:İş yoğunluğu sebebiyle ancak fırsat bulabildim geç cevap verdiğim için kusura bakmayınız.
Saygılar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task