ماهو كود ارسال sms

ربما هذا الكود يفي بالغرض

انا ما جربته

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