Android Question Get file from server and send to email automatically

[Makumbi]

i have this file here which i want to automatically send to my email please help

http://kccug.com/KabojjaApp/workold/P5WORK.PDF

Dim FileName As String = "b4a.png"
    'copy the shared file to the shared folder
    File.Copy(File.DirAssets, FileName, Starter.Provider.SharedFolder, FileName)
    Dim email As Email
    email.To.Add("makumbisulaiman58@gmail.com")
    email.Subject = "subject"
    email.Attachments.Add(Starter.Provider.GetFileUri(FileName))
    email.Attachments.Add(Starter.Provider.GetFileUri(FileName)) 'second attachment
    Dim in As Intent = email.GetIntent
    in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
    StartActivity(in)

 

[Peter Simpson]

Hello @Makumbi,
Firstly you have not said if you know how to download the pdf file from the server, if you don't know how to do that then I recommend that you watch this video from Erel.

B4X Programming Video Tutorials

www.b4x.com

 

[Peter Simpson]

Oh yes, I forgot about your second question.

[B4X] Sending emails with Gmail REST API

This solution is compatible with B4A, B4J and B4i. Up until now there were two ways to send emails: 1. Using the default mobile app which required the user to actually send the message (available in B4A and B4i). 2. Using SMTP from the Net library. This required the user to enter the email...

www.b4x.com

 

[Makumbi]

Oh yes, I forgot about your second question.

[B4X] Sending emails with Gmail REST API

This solution is compatible with B4A, B4J and B4i. Up until now there were two ways to send emails: 1. Using the default mobile app which required the user to actually send the message (available in B4A and B4i). 2. Using SMTP from the Net library. This required the user to enter the email...

www.b4x.com

i use this file to download but this downloads and save on the phone

DownloadAndSaveFileP1("http://kccug.com/KabojjaApp/workold/P1WORK.PDF")
Sub DownloadAndSaveFileP1 (Link As String)
 
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download(Link)
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
      
        Dim out As OutputStream = File.OpenOutput(File.DirInternal, "P1WORK.PDF", False)
        File.Copy2(j.GetInputStream, out)
        out.Close
              
        Dim rp As RuntimePermissions
        rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
        Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
        If Result Then
            File.Copy(File.DirInternal, "P1WORK.PDF", File.DirRootExternal, "Download/P1WORK.PDF")
            Dim FilePath As String = File.Combine(File.DirRootExternal, "Download/P1WORK.PDF")
            
            Dim Phone As Phone
            If Phone.SdkVersion <= 18 Then           ' min - 4.3.1
                Dim i As Intent
                i.Initialize("android.intent.action.MEDIA_SCANNER_SCAN_FILE", "file://" & FilePath)
                Phone.SendBroadcastIntent(i)
            Else
                Dim ctxt As JavaObject
                ctxt.InitializeContext
                Dim MediaScannerConnection As JavaObject
                MediaScannerConnection.InitializeStatic("android.media.MediaScannerConnection")
                Dim interface As Object = MediaScannerConnection.CreateEventFromUI("android.media.MediaScannerConnection.OnScanCompletedListener", "ScanCompleted", _
                   Null)
                MediaScannerConnection.RunMethod("scanFile", Array(ctxt, Array As String(FilePath), Array As String("image/pdf"), interface))
            End If
        End If
      
    End If
    j.Release
    MsgboxAsync("The downloaded work has been placed in Downloads of Adobe acrobat reader. Please Install adobe acrobat reader incase it is not yet installed on your phone thank you. And Check in Adobe click files. ","Homework Downloaded")
    ProgressDialogHide
    'Sleep(0)'saveimag
End Sub

this what iam using to download and save but i wanted to download and automatically send to email

 

[Peter Simpson]

Well, once you have downloaded the file and used j.released, just run your next routine which will be your send email routine that I posted a link to in Post #2.

Get file from server and send to email automatically

i have this file here which i want to automatically send to my email please help http://kccug.com/KabojjaApp/workold/P5WORK.PDF Dim FileName As String = "b4a.png" 'copy the shared file to the shared folder File.Copy(File.DirAssets, FileName, Starter.Provider.SharedFolder...

www.b4x.com