Android Question Sharing file via Email

[DT1111]

The following codes work when I want to send files via email but the DirRootExternal path appears in the To: field. Is there a way to prevent that?

Dim In As Intent
Dim u As Uri 'ContentResolver library

In.Initialize(In.ACTION_SEND,"file://" & File.Combine(File.DirRootExternal, "test.txt"))
u.Parse("file://" & File.Combine(File.DirRootExternal, "test.txt"))
In.PutExtra("android.intent.extra.STREAM", u)
In.SetType("*/*")
StartActivity(In)

Thanks.

 

[Erel]

Why aren't you using Email from the Phone library?

 

[DT1111]

Hi Erel

I was but I changed to the above code because sometime I want to share files via Bluetooth. The above gives me the options for sharing file.

Is there a workaround to the above minor problem? Thanks.

 

[Erel]

Try to add this field:

In.PutExtra("android.intent.extra.EMAIL", Array As String("[email protected]"))

 

[DT1111]

Hi Erel

Thanks and the path still appears in the To: field with [email protected]

Dim In As Intent
Dim u As Uri 'ContentResolver library

In.Initialize(In.ACTION_SEND,"file://" & File.Combine(File.DirRootExternal, "test.txt"))
u.Parse("file://" & File.Combine(File.DirRootExternal, "test.txt"))
In.PutExtra("android.intent.extra.STREAM", u)
In.PutExtra("android.intent.extra.EMAIL", ArrayAsString("[email protected]"))
In.SetType("*/*")
StartActivity(In)

If the following is commented out there was no attachment

'In.PutExtra("android.intent.extra.STREAM", u)

 

[Erel]

Thanks and the path still appears in the To: field with [email protected]

This is the expected result. Set it to an empty string.

 

[DT1111]

Hi Erel

OK, the following are changed from

Dim In As Intent
Dim u As Uri 'ContentResolver library

In.Initialize(In.ACTION_SEND,"file://" & File.Combine(File.DirRootExternal, "test.txt"))
u.Parse("file://" & File.Combine(File.DirRootExternal, "test.txt"))
In.PutExtra("android.intent.extra.STREAM", u)
In.PutExtra("android.intent.extra.EMAIL", ArrayAsString("[email protected]")) '<<======== from
In.SetType("*/*")
StartActivity(In)

to

Dim In As Intent
Dim u As Uri 'ContentResolver library

In.Initialize(In.ACTION_SEND,"file://" & File.Combine(File.DirRootExternal, "test.txt"))
u.Parse("file://" & File.Combine(File.DirRootExternal, "test.txt"))
In.PutExtra("android.intent.extra.STREAM", u)
In.PutExtra("android.intent.extra.EMAIL", ArrayAsString("")) '<<======== to
In.SetType("*/*")
StartActivity(In)

If that was what you meant, the path still appears in the To: field which I wanted to remove.

 

[Erel]

Emails intents expect the data field to be empty (this is the second parameter in the initialize method).

 

[DT1111]

Excellent Erel. Thanks.