Spanish ENVIO EMAIL

[Anton Solans Argemí]

Quiero enviar un correo electrónico con unos ficheros adjuntos y me gustaría saber como debería enviar el email con los datos de la cuenta de correo que se tenga parametrizada en el teléfono.

 

[Don Oso]

tienes que usar la libreria Network o Net en B4J

    Try
    dim SMTPc as SMTP

    dim slash as string ="/"    ' Depende del tipo de servidor si es en B4J

    SMTPc.Initialize("obra.constructor1.cl", 465, "[email protected]", "123223", "SMTPc")
    SMTPc.UseSSL = True
    SMTPc.HtmlBody = False
    'SMTPc.AdditionalHeaders.Put("Content-Type","application/pdf")

    SMTPc.Sender = "Compras Constructor  <[email protected]>"
    SMTPc.to = Array  As String(strEmails)
    SMTPc.BCC =  Array  As String(strCCEmails)
    SMTPc.Subject = "ORDEN DE COMPRA " & strEmpresa
    SMTPc.Body = "Se adjunta Orden de Compra" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) & " Atentamente " & Chr(13) & Chr(10) &" Compras Constructor"
    SMTPc.AddAttachment(File.DirApp & slash &  DownloadFolder & "OC-" & IDOBRA & slash,OCOMPRA &"-ordendecompra.pdf")
    SMTPc.Send

    Catch
        Log("Email NO enviado  ")
    End Try

ese codigo funciona enviando un adjunto con un PDF.

Saludos

 

[Anton Solans Argemí]

Seguramente me expliqué mal, yo lo que quiero hacer es que en esta parte:

SMTPc.Initialize("obra.constructor1.cl", 465, "[email protected]", "123223", "SMTPc")

me coja automáticamente los valores de la cuenta de correo que yo veo directamente en el móbil.

 

[josejad]

Hola:

Esta librería tiene un método getgaccount

Si no te vale, quizás podrías usar el correo desde el propio correo del usuario

https://www.b4x.com/android/forum/threads/b4x-sending-emails-with-gmail-rest-api.81736/

O con este método:
https://www.b4x.com/android/forum/threads/class-send-e-mail-with-fileprovideruri.89217/