كود لإرسال ال sms

بعد التحية

اليك هذا الكود لارسال رسائل الجوال وهو منقول من برنامج مكتبة الاكواد للاستاذ هيثم القلاف :rolleyes:

Dim SMS As Simplewire.SMS 
Dim carrier As Simplewire.SMSCarrier 
Dim Index As Integer 
' instantiate the the request 
Set SMS = New Simplewire.SMS 
' send off a carrier list request 
SMS.CarrierListSend 
' first off, we need to check if the req
'     uest was a success 
If SMS.Success = False Then 
' display the error description 
MsgBox SMS.ErrorDesc & " " & SMS.ErrorCode, vbCritical, "Carrier List Error" 
' kill the pager interfaces 
Set SMS = Nothing 
' stop the program 
End 
' otherwise, we have a valid response 
Else 
' resize PagerService array to make a pe
'     rfect fit 
ReDim SMSCarrierID(SMS.CarrierList.Count) 
ReDim SMSCarrierTextMaxLength(SMS.CarrierList.Count) 
' init the integer 
Index = 0 
' loop until the next service doesnt exi
'     st 


For Each carrier In SMS.CarrierList 
    ' set the new item on the combo box and 
    '     set the subtitle in the 
    .CarrierList.AddItem carrier.Title & " " & carrier.Subtitle 
    ' set the service id for the global serv
    '     ice id array 
    SMSCarrierID(Index) = carrier.ID 
    SMSCarrierTextMaxLength(Index) = carrier.TextMaxLength 
    ' increment the index 
    Index = Index + 1 
Next 
' init the list 
.CarrierList.ListIndex = 0 
End If 
' kill the sms object 
Set SMS = Nothing

بالتوفيق ان شاء الله :rolleyes:

مشكور أخي ولكن هذا الكود نفسه موجود عندي وتواجهني مشكلة فى السطر الثالث في set sms

أرجو أرسال الكود الصحيح في برنامج

وشكرا جزيلاً

solo man :)

حسب علمي أنه لابد من اشتراك في خدمة أو الاستفادة من خدمة معينة ..

وفي العادة لا تكون هذه الخدمات مجانية ..

والله أعلم ..