AccessTr.neT
access ile sms göndermek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: access ile sms göndermek (/konu-access-ile-sms-gondermek--76639.html)



access ile sms göndermek - accessman - 19/01/2013

bu program çalışıyor mu
çalışıyorsa nasıl
çalışmıyorsa nasıl çalışır hale getirebiliriz
teşekkürler

downloadznow.com/download/smslibx-sms-activex


Cvp: access ile sms göndermek - alpeki99 - 19/01/2013

Mesele SMS göndermek ise bunun çok ama çok daha kolay yolları var. Hiç bu şekilde bileşen,kütüphane vs. eklemeden web tarayıcı aracılığı ile toplu mesaj gönderilebiliyor. "Yok ben daha garanti çalışayım" diyorsanız elbette kütüphane kaçınılmaz ancak bu defada yerel firmalar ile çalışmanızı tavsiye ederim. Onlar size API kodlarını veriyorlar kullanımınıda örneklendiriyorlar.


Cvp: access ile sms göndermek - esrefigit - 24/01/2013

sayın accessman bu soru bir çok defa soruldu bunun bir kaç yolu var bunlardan en basiti mscom32.ocx ile yani microsoft connection activex i ile com port üzerinden cep telefonu modemine bağlanarak at kodları ile sms gönderme bununla ilgili sitelerde bir çok kod bulabilirsin

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
'Change this with the Baud rate of your modem (The one you use with Hyper Terminal)
MSComm1.Settings = "9600,n,8,1"
' Change this with the port your Modem is attached
MSComm1.CommPort = 1
MSComm1.PortOpen = True

End Sub

Private Sub Command1_Click()
'This line can be removed if your modem will always be in Text Mode...
MSComm1.Output = "AT+CMGF=1" & vbCrLf
Sleep 500
'Replace this with your mobile Phone's No.
MSComm1.Output = "AT+CMGS=+91232538538" & vbCrLf
Sleep 1000
MSComm1.Output = "Hello This is my test message"
Sleep 2000
If InStr(MSComm1.Input, "OK") Then
    MsgBox "Message Send"
Else
    MsgBox "Message Not Send"
End If

End Sub


bu kod
ikincisi ise
bir sms şirketi ile anlaşıp onlardan api kodlarını alıp kendi programına uyarlamak
3.türkcell avea vodafone firmalarının toplu sms antlaşmaları çözümleri var onlar sana Excel Access yani vb kodlarınıda veriyorlar sen kendi programına entegre ediyorsun mesela aveadan alıntı

Alıntı:Aveamesaj basit ve kullanışlı bir toplu SMS gönderim aracıdır. Alıcı ya da grupları seçtikten sonra iletinizi yazıp gönder tuşuna basarak işlemizi kolayca gerçekleştirirsiniz. Adres defteri ve gruplar oluşturabilir, kişiselleştirilmiş toplu SMS gönderebilirsiniz.

Ayrıca Microsoft® Excel yazılımı aracılığı ile kayıtlı numaralarınıza SMS gönderebilir ve Microsoft® Excel gönderilen SMS’lerle ilgili raporlar almanız da mümkün.