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.