ارسال با send2 یه مشکل داره
اگه تعداد کارکترها زیاد باشه درست کار نمیده و اگر 2 پیامک شد که اصلا جوا نمیده ( اینطور که رو تبلت من جواب داد )
ولی با تابع زیر تونستم با همون امکانات ولی بدون محدودیت کارکتری ارسال کنم
Sub SendLargeSms(Destination As String, Message As String)
Dim r As Reflector
r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
Dim parts As Object
parts = r.RunMethod2("divideMessage", Message, "java.lang.String")
r.RunMethod4("sendMultipartTextMessage", _
Array As Object(Destination, Null, parts, Null, Null), _
Array As String("java.lang.String", "java.lang.String", _
"java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
End Sub
بعد با دستور زیر هر جای برنامه میتونید پیامک ارسال کنید
SendLargeSms("09381111111","matn sms")