Skip to main content

AccessTr.neT


ActiveX ekleyememe sorunu

ActiveX ekleyememe sorunu

Çözüldü #4
Merhaba. 2007 versiyonu kullanıyorum. Yanlıç hatırlamıyorsan sn. sledgeab'ın sunduğu Turkcell webten sms iletisi formu üstünde çalışıyordum. yaptığım bir araştırmada msconn activex'i eklenerek ve aşağıdaki kodu yazarak pc'nin com portu üzerinden cep telefonu ile sms göndermek mümkün imiş.

kod da şöyle:
Private Sub Komut0_Click()
Call SendSMS(Me.Metin1, Me.Metin4)
End Sub
Sub SendSMS(cepno As String, mesaj As String)
MSComm1.CommPort = 6 'bazı telefonların portu değişik olabilir
MSComm1.PortOpen = True ' portuaç
MSComm1.Output = "AT+CMGS=" & cepno & Chr$(13) 'cep telefonu numarası
MSComm1.Output = "AT+CMGS=" & mesaj & Chr$(26) ' mesaj
End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
ActiveX ekleyememe sorunu - Yazar: GencerX - 14/07/2009, 11:00
Cvp: ActiveX ekleyememe sorunu - Yazar: GencerX - 15/07/2009, 16:59
Cvp: ActiveX ekleyememe sorunu - Yazar: Seruz - 17/07/2009, 14:04
Cvp: ActiveX ekleyememe sorunu - Yazar: GencerX - 20/07/2009, 11:48
Cvp: ActiveX ekleyememe sorunu - Yazar: mehmetdemiral - 20/07/2009, 13:23
Cvp: ActiveX ekleyememe sorunu - Yazar: GencerX - 20/07/2009, 14:00
Cvp: ActiveX ekleyememe sorunu - Yazar: mehmetdemiral - 20/07/2009, 14:36
Cvp: ActiveX ekleyememe sorunu - Yazar: GencerX - 23/07/2009, 13:18
Cvp: ActiveX ekleyememe sorunu - Yazar: Seruz - 31/07/2009, 17:30
Cvp: ActiveX ekleyememe sorunu - Yazar: Seruz - 19/08/2009, 13:30
Task