Access'te SMS

[mehmetdemiral]

Sanki bu forumda okudum gibi hatırlıyorum. Ama aradım bulamadım. Belki yanlış aradım, belki de yanılıyorum. Access ile SMS gönderme ile ilgili bir konu hiç açıldı mı? Yardımcı olur musunuz?

 

[Ersen]

Evet vardı böyle bir merak.

bahsettiğiniz soru bana aitti. Bir başkası da sormuş olabilir arama yapmadım.
http://www.excel.web.tr/showthread.php?t=47839&highlight=cep+telefonuna+mesaj

konuda bahsedilen eklentiyi indirdim ancak deneme şansım olmadı, bu konuyu da sonuna kadar takip edeceksen bize çok faydası olacak ve sonucu bekliyoruz.

 

[mehmetdemiral]

Teşekkür ederim. Aslında benim aradığım şey, bir telefon üzerinden değil, internet üzerinden bu işi yapmaktı. Bunun için GSM operatörlerinden aldıkları kontörlerle bir program aracılığı ile ve özel bir servis üzerinden (sanırım sms server tarzı bir şey kurmuşlar) sms gönderen firmalar var. Aslında programı paea ile satmıyorlar, kontörlerden kazanıyorlardık. Fakat GSM operatörleri işe ayındı ve kontör satışını kendileri yapıyorlar. Benim yapmak istediğim şey, program arayüzünü Access'le yapmak. Net üzerinden bağlanan ve kontör tedariki yapan servisler konusunu nasıl olur bilemiyorum.

 

[modalı]

Sayın mehmetdemiral,

Bazı kodlar buldum. Modüldeki kodlar:

Public Function SendMessage(username As String, password As String,  _
destination As String, message As String)


Dim xmlstring As  String

xmlstring = "<?xml version=" & Chr(34) & "1.0" &  Chr(34) & "?> " & _
"<Request xmlns:xsi=" & Chr(34) &  "http://www.w3.org/2001/XMLSchema-instance" & Chr(34) & "  xsi:noNamespaceSchemaLocation=" & Chr(34) &  "http://schema.2sms.com/1.0/0410_RequestSendMessage.xsd" & Chr(34) & "  Version = " & Chr(34) & "1.0" & Chr(34) & ">" &  _
"<Identification>" & _
"<UserID><![CDATA[" &  username & "]]></UserID>" & _
"<Password>" &  password & "</Password>" & _
"</Identification>" &  _
"<Service>" &  _
"<ServiceName>SendMessage</ServiceName>" &  _
"<ServiceDetail>" & _
"<SingleMessage>" &  _
"<Destination>" & destination & "</Destination>" &  _
"<Text><![CDATA[" & message & "]]></Text>" &  _
"</SingleMessage>" & _
"</ServiceDetail>" &  _
"</Service>" & _
"</Request>"

'open connection to  server and send

Dim xmlrequest As  MSXML2.XMLHTTP
Set xmlrequest = New MSXML2.XMLHTTP

xmlrequest.Open  "POST", "http://www.2sms.com/xml/xml.jsp",  False

xmlrequest.setRequestHeader "content-type",  "text/xml"
xmlrequest.send xmlstring

'get the response  back

response = xmlrequest.responseText

'set up DOM to  parse
Dim xmlresponse As MSXML2.DOMDocument30
Set xmlresponse = New  MSXML2.DOMDocument

xmlresponse.async =  False
xmlresponse.resolveExternals = False
xmlresponse.validateOnParse =  False


On Error Resume Next


xmlresponse.loadXML  response

'pull out relevant variables from response

javaresult =  (xmlresponse.getElementsByTagName("Result").Item(0 ).Text)
errorCode =  (xmlresponse.getElementsByTagName("ErrorCode").Ite m(0).Text)
errorreason =  (xmlresponse.getElementsByTagName("ErrorReason").I tem(0).Text)
messageid =  (xmlresponse.getElementsByTagName("MessageID").Ite m(0).Text)


If  errorCode = "00" Then


SendMessage = javaresult
Else
If  errorreason = "" Then
SendMessage = "Message Failed - Unknown  Error"
Else
SendMessage = "Message FAILED. (Reason: " & errorreason  & ")"
End If
End If

End Function

Bu kodlarla bir form üstünden klikle yollayabilirsiniz. Klik olayı:

Private Sub btnSend_Click()
btnSend.Enabled = False
MsgBox  (SendMessage(txtusername.Text, txtpassword.Text, txtNumber.Text,  txtMessage.Text))
btnSend.Enabled = True
End Sub

Formun görüntüsü de ekte.

İyi çalışmalar

 

[mehmetdemiral]

Teşekkür ederim sayın modalı. Deneyeceğim.

 

[nafis]

Merhaba;

Sayın Modalı Modülü ekledim formu da oluşturdum ama olamadı.

Sayın mehmetdemiral siz denedinizmi?

Saygılarımla

 

[mehmetdemiral]

Maalesef. Henüz deneme fırsatım olmadı.