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
ActiveX ekleyememe sorunu
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
|
Konuyu Okuyanlar: 1 Ziyaretçi