French Comment envoyer un MMS ?

Sub SendPhotoMessage
    Dim iIntent As Intent

    iIntent.Initialize("android.intent.action.SEND_MSG", "")

    iIntent.setType("vnd.android-dir/mms-sms")
    iIntent.PutExtra("android.intent.extra.STREAM", CreateUri("file://" & File.Combine(File.DirDefaultExternal, "1.jpeg")))
    iIntent.PutExtra("sms_body", "bonjour")
    iIntent.PutExtra("address", "061111111")
    iIntent.SetType("image/jpeg")

    StartActivity(iIntent)
    
End Sub
Sub CreateUri(uri As String) As Object
    Dim r As Reflector
    Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(uri), Array As String("java.lang.String"))
End Sub

Dim iIntent AsIntent
iIntent.Initialize("android.intent.action.SEND_MSG", "")
iIntent.SetComponent("com.android.mms/.ui.ComposeMessageActivity")