یک نمونه روش استفاده از تابع ارسال گروهی:
Sub test()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select mobile from persons where personid>0")
Dim response As SendGroupSMSResponse
response = SendGroupSMS(rs, 1)
rs.Close
Set rs = Nothing
End Sub
پاسخ با نقل قول