iOS Question [SOLVED] B4I - EMAIL ACCOUNT

[Anton Solans Argemí]

Is there any way to send an email using the email account set up in iphone?

 

[Biswajit]

Mails and SMS messages

MailComposer and MessageComposer types from the iPhone library allow the user to send mails and SMS messages from your app. The users will see a pre-filled form which they can modify and send. (press on the small gear button and set the quality to HD) Not all devices support these two...

www.b4x.com

 

[Anton Solans Argemí]

First of all thank you very much for your solution, that is what I wanted but now I have a problem:
Once I push "Send" the email send properly but the email screen doesn't disapear and the focus doesn't return to my APP.

I send the code I am using:

'Code module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Private Page1 As Page
    Private hd As HUD
    Private mailc As MailComposer
    Private smsc As MessageComposer
    Private lsasunto,lsfitcsv As String
    Private lfiles As List
End Sub

Sub show (psfitcsv As String)
    
    If Page1.IsInitialized=False Then 
        Page1.Initialize("Page1")
    End If
    Main.NavControl.ShowPage(Page1)
            
    memail.preparaemail
    
    SendMail
End Sub


Private Sub SendMail

    lsfitcsv="Fichero.csv"    

    'always dim and initialize the MailComposer before you use it
    Dim mailc As MailComposer
    mailc.Initialize("mailc")
    mailc.SetSubject("Subject EMail")
    'mailc.SetBody("Body EMail", False)
    ' Adjutnar fichero csv
    mailc.AddAttachment(Main.gsdircsv, lsfitcsv,"csv")
    mailc.Show(Page_memailnc)
End Sub

Sub Mailc_Complete (Result As Int)
    Dim lssentsql As String
    
    If Result = mailc.RESULT_SENT Then
        'hd.ToastMessageShow("EMail enviado correctamente", True)
        Msgbox("EMail enviado correctamente","Atención")
        Finalizar(True)
    Else
        'hd.ToastMessageShow("Error al enviar EMail", True)
        Msgbox2("Msg","EMail no enviado. Desea marcar los registros como enviados?","Atención",Array("Si","No"))
        Wait For Msg_Click (ButtonText As String)
        If ButtonText="Si" Then
            Finalizar(True)
        Else
            Finalizar(False)
        End If
    End If
End Sub

Sub Finalizar(Traspasar As Boolean)

    
    If Traspasar=True Then
        Main.sql1.ExecNonQuery("UPDATE xxxxx")
    End If
    
    Main.NavControl.RemoveCurrentPage
    mtraspas.show2    
End Sub

 

[Erel]

Does it also happen when you try the example: https://www.b4x.com/android/forum/threads/mails-and-sms-messages.46131/ ?

 

[Anton Solans Argemí]

The example works fine

 

[Anton Solans Argemí]

Inform you that in my APP if I cancel the sending of the EMail it works correctly, I get the message "" Message was not sent "and it returns me to my APP

 

[Anton Solans Argemí]

It just doesn't work for me when I send the email

 

[Anton Solans Argemí]

In debugger mode this log appears "Unbalanced calls to begin / end appearance transitions for Page (vc): (null)."

 

[Erel]

n debugger mode this log appears "Unbalanced calls to begin / end appearance transitions for Page (vc): (null)."

It is probably not related.
Compare your code to the example code.

 

[Anton Solans Argemí]

I have found the solution to the problem by applying a "sleep" before doing the "RemoveCurrentPage" .
Thank you all.