hahsem2012
29-01-2013, 18:41
من از نرم افزاری که در ضمیمه می باشد برای ارسال پیامک استفاده می کنم این برنامه از یک فایل اکسل جهت دریافت اطلاعات استفاده می کند که ستون اول محتوای پیام را و ستون دوم شماره مقصد را انتخاب می کند .
درخواست [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اگه امکان دارد دوستان آشنا با برنامه نویسی می توانند مسیر ستون اول که همان محتوای پیامک می باشد را طوری تغییر دهند که کلیه پیامهای ارسالی را از یک فایل متنی دریافت کند .در صورت امکان برنامه را تغییر داده و ارسال نمایند متشکرم
' // ================================================== ======================
' // CreateSmsFromExcel.vbs
' // ------------------------------------------------------------------------
' // This VBScript sample demonstrate how to retrieve persons from an Excel
' // sheet and create a new SMS message for each person
' // ================================================== ======================
Option Explicit
CONST STR_EXCELFILE = "C:\Program Files\ActiveXperts\SMS Messaging Server\API Samples\Excel\Students.xls"
Dim objMessageDB, objConstants, numRecordID, objMessage
Dim objExcel, objWorkbook, nExcelRow
' Create global objects
Set objMessageDB = CreateObject( "AxMmServer.MessageDB" )
Set objConstants = CreateObject( "AxMmServer.Constants" )
' Excel initialisations
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
If Err.Number <> 0 Then
WScript.Echo "This example requires MS Excel to be installed."
WScript.Quit
End If
On Error Goto 0
Set objWorkbook = objExcel.Workbooks.Open( STR_EXCELFILE )
nExcelRow = 1
' Open the Database
objMessageDB.Open
If( objMessageDB.LastError <> 0 ) Then
WScript.Quit
End If
Do Until objExcel.Cells(nExcelRow,1).Value = ""
' Create new message in the Message Database
Set objMessage = objMessageDB.Create
If( objMessageDB.LastError <> 0 ) Then
WScript.Echo "Failed to create message, error: " & objMessageDB.LastError
Exit Do
End If
objMessage.DirectionID = objConstants.MESSAGEDIRECTION_OUT
objMessage.TypeID = objConstants.MESSAGETYPE_SMS
objMessage.StatusID = objConstants.MESSAGESTATUS_PENDING
objMessage.ChannelID = 0 ' First available SMS channel
objMessage.ToAddress = objExcel.Cells( nExcelRow,2 ).Value
objMessage.Body = "Hello ; " & objExcel.Cells( nExcelRow, 1 ).Value
' Save the new values that were just assigned
objMessageDB.Save( objMessage )
If( objMessageDB.LastError <> 0 ) Then
WScript.Echo "Failed to create message, error: " & objMessageDB.LastError
Exit Do
End If
nExcelRow = nExcelRow + 1
Loop
' Close the database
objMessageDB.Close
objExcel.Quit
درخواست [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اگه امکان دارد دوستان آشنا با برنامه نویسی می توانند مسیر ستون اول که همان محتوای پیامک می باشد را طوری تغییر دهند که کلیه پیامهای ارسالی را از یک فایل متنی دریافت کند .در صورت امکان برنامه را تغییر داده و ارسال نمایند متشکرم
' // ================================================== ======================
' // CreateSmsFromExcel.vbs
' // ------------------------------------------------------------------------
' // This VBScript sample demonstrate how to retrieve persons from an Excel
' // sheet and create a new SMS message for each person
' // ================================================== ======================
Option Explicit
CONST STR_EXCELFILE = "C:\Program Files\ActiveXperts\SMS Messaging Server\API Samples\Excel\Students.xls"
Dim objMessageDB, objConstants, numRecordID, objMessage
Dim objExcel, objWorkbook, nExcelRow
' Create global objects
Set objMessageDB = CreateObject( "AxMmServer.MessageDB" )
Set objConstants = CreateObject( "AxMmServer.Constants" )
' Excel initialisations
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
If Err.Number <> 0 Then
WScript.Echo "This example requires MS Excel to be installed."
WScript.Quit
End If
On Error Goto 0
Set objWorkbook = objExcel.Workbooks.Open( STR_EXCELFILE )
nExcelRow = 1
' Open the Database
objMessageDB.Open
If( objMessageDB.LastError <> 0 ) Then
WScript.Quit
End If
Do Until objExcel.Cells(nExcelRow,1).Value = ""
' Create new message in the Message Database
Set objMessage = objMessageDB.Create
If( objMessageDB.LastError <> 0 ) Then
WScript.Echo "Failed to create message, error: " & objMessageDB.LastError
Exit Do
End If
objMessage.DirectionID = objConstants.MESSAGEDIRECTION_OUT
objMessage.TypeID = objConstants.MESSAGETYPE_SMS
objMessage.StatusID = objConstants.MESSAGESTATUS_PENDING
objMessage.ChannelID = 0 ' First available SMS channel
objMessage.ToAddress = objExcel.Cells( nExcelRow,2 ).Value
objMessage.Body = "Hello ; " & objExcel.Cells( nExcelRow, 1 ).Value
' Save the new values that were just assigned
objMessageDB.Save( objMessage )
If( objMessageDB.LastError <> 0 ) Then
WScript.Echo "Failed to create message, error: " & objMessageDB.LastError
Exit Do
End If
nExcelRow = nExcelRow + 1
Loop
' Close the database
objMessageDB.Close
objExcel.Quit