السلام عليكم ورحمة الله وبركاته ،
من المعروف الاكسس هو لقواعد البيانات وليس لغة برمجة للبرامج التي يمكن ان تصنع مرسل لرسائل sms ...... ولكن الا يمكن تطويع الاكسس لرسائل sms في اي حال من الاحول هذا هو سؤالي .... واتمنى ان اجد مثال او اجابة من احد الاعضاء ... او يمكن ان يكون عمل جماعي لانشاء برنامج على الاكسس لارسال رسائل sms ..... كما اتمنى من احد الاعضاء ان يلقي الضوء على هذه الشفرة ادناه ويوضح لنا بمثال يرفقه عملها والتي هي من موقع اجنبي
http://www.access-programmers.co.uk/forums...9&highlight=sms
'All you really need to do for this is set access to send an e-mail to an sms service. I have used esendex in the past the email is simply sent to "mobile number"@esendex.net
With the e-mail body which is changed to text
You do have to set up an account with a monthly charge and a per text charge for this service as well.
But it really does work well
here is some code which i have used previously for this
I have added a delay in the loop to this purly as out e-mail was not up to sending hundreds at a time
Function SendTextMessage()
Dim strMobile As String
Dim strEmail As String
Dim strSlot As String
Dim strSlotDetail As String
Dim strName As String
Dim strDate As String
Dim strMessage As String
Dim a As String
Dim dbs As Database, rst As Recordset
DoCmd.Hourglass True
DoCmd.SetWarnings False
'Return reference to current database and recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Mobile Text List", dbOpenSnapshot)
With rst
.MoveLast
.MoveFirst
If .RecordCount = 0 Then
Exit Function
End If
a = 1
Do While Not .EOF
a = a + 1
Do While Not a < 700000
strMobile = ![Mobile Number]
strSlotDetail = ![Slot Detail]
strName = ![Name]
strDate = ![Schedule Date]
strSlot = ![Slot]
strEmail = strMobile & "@esendex.net"
strMessage = "Dear " & strName & ". Your services will be installed on " & strDate & " " & strSlotDetail & "."
DoCmd.SendObject , "", "", strEmail, "", "", "", strMessage, False, ""
.MoveNext
a = 1
Loop
Loop
End With
End Function
