Android Question Send email directly (without user intervention) ?

[ComposerB4A]

Hello to all, i search send directly a email (without user intervention), i try:

SMTP.Initialize("smtp.mail.yahoo.com", 465, "[email protected]","clave123","SMTP")
SMTP.To.Add("[email protected]")
SMTP.Subject = "hola"
SMTP.Body = "Hola"
SMTP.Send
...
MessageSent event not run

the question, ¿because not send the email?

 

[NJDude]

Try adding this line, which is required by Yahoo mail servers.

SMTP.UseSSL = True

 

[ComposerB4A]

Thanks You, i apply and works
SMTP.Initialize("smtp.mail.yahoo.com", 465, "[email protected]","clave123","SMTP")
SMTP.UseSSL = True
SMTP.To.Add("[email protected]")
SMTP.Subject = "hola"
SMTP.Body = "Hola"
SMTP.Send
...
Sub SMTP_MessageSent(Success As Boolean)
...
ButMessageSent event not run

But the event "MessageSent" not work, because i run the App, not run event "MessageSent", the user "not know" that the email "was send", but after of minutes, the email appear in the adressee(r) ¿exist some code for know that sending was correct (maybe using a service)?

 

[Erel]

You should post the code. Are you initializing SMTP multiple times?

 

[ComposerB4A]

Hi, set only one once initializing SMTP object:

Sub Globals
    'These variables can only be accessed from this module.
  Dim StatusSend1 As String
  Dim SMTP As SMTP
  StatusSend1=""
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("3")
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub EnviarEMail1
  SMTP.Initialize("smtp.mail.yahoo.com", 465, "[email protected]","clave123","SMTP")
  SMTP.UseSSL = True
  SMTP.To.Add("[email protected]")
  SMTP.Subject = "hola2"
  SMTP.Body = "Hola2"
  SMTP.Send
End Sub

Sub SMTP_MessageSent(Success As Boolean)
  If Success=True Then StatusSend1="SI enviado"
  If Success=False Then StatusSend1="NO Enviado"
  Log(StatusSend1)
End Sub

Sub Button1_Click
EnviarEMail1
End Sub

(fix: code original, in code tags)

 

[Erel]

Please use [ code ] [ /code ] tags (without spaces) when posting code.

You should declare SMTP as a process global variable and initialize it in Activity_Create when FirstTime is True (and not anywhere else).

 

[ComposerB4A]

Excellent, the code now work perfect, thanks you very much

 

[piero123]

i have a error i initialize SMTP In activity create but i have error

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub
Sub Globals
    'These variables can only be accessed from this module.
  Dim StatusSend1 As String
  Dim SMTP As SMTP
  StatusSend1=""
    Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
  SMTP.Initialize
 
    Activity.LoadLayout("3")


End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub EnviarEMail1
SMTP.Initialize("smtp.gmail.com", 465, "[email protected]", "awdawd", "SMTP")
SMTP.UseSSL = True
SMTP.To.Add("[email protected]")
SMTP.Subject = "Asunto del Email"
SMTP.Body = "Cuerpo del mensaje."
SMTP.AddAttachment(File.DirRootExternal, "elarchivoquequeremosadjuntar")
SMTP.Send
End Sub

Sub SMTP_MessageSent(Success As Boolean)
  If Success=True Then StatusSend1="SI enviado"
  If Success=False Then StatusSend1="NO Enviado"
  Log(StatusSend1)
End Sub

Sub Button1_Click
EnviarEMail1
End Sub

[ /code ]

 

[Erel]

Please start a new thread for this question and also post the error message.

 

[pesquera]

I need SMTP on a service instead of an activity.. how/where should I initialize it?

 

[Erel]

In Service_Create.