Android Question Send Many Email

Erel said:

Which problem? Make sure to use an email server that doesn't restricts the number of recipients.

Click to expand...

If lvTo.Size>0 Then
                For i=0 To lvTo.Size-1
                    Dim splt() As String  = Regex.Split("\|",lvTo.GetItem(i))
                    ProgressDialogShow2("Please wait . . .Send email to " & splt(0) & "/" & splt(2) ,  True)
                    SMTP1.to.Add(splt(2))
                    SMTP1.bcc.Add(edtFrom.Text)
                    SMTP1.Subject = edtJudul.Text.Replace("[block]", splt(1) & "(" & splt(0) & ")")
                    If edtAt.Text<>"" Then
                        If File.Exists(strfolder,strfile) Then
                            SMTP1.AddAttachment(strfolder,strfile )
                        End If
                    End If
                    SMTP1.Body = edtPesan.Text.Replace("[block]", splt(1) & "(" & splt(0) & ")")
                    SMTP1.Send
                Next
            End If

The MessageSent event will be raised after the message was sent.

Click to expand...

MessageSent(Success As Boolean)

Click to expand...

MarkusR said:

found in docu
https://www.b4x.com/android/help/net.html#smtp_send


because the event did not have a message id i would use
"Wait for" in the send loop.

Click to expand...

nickysuwandi said:

MarkusR, how we know that last email has finish sent, if i send 300 message, so i can warning the user no to close the apps.

Thanks

Click to expand...

Sub SMTP_MessageSent(Success As Boolean)
    IntMailSendCount=IntMailSendCount+1
    ProgressDialogShow2("Please wait . . .Sending Email " & IntMailSendCount & "/" & IntTotMail ,  False)
    If IntMailSendCount = IntTotMail Then
       ProgressDialogHide
       ToastMessageShow("All Email Sended",False)
    End If
End Sub

MarkusR said:

if u use "Wait for Event" direct after send u have a better control.

Click to expand...

wait for (IntMailSendCount = IntTotMail)  IntMailSendCount = IntTotMail

MarkusR said:

see this tutorial
https://www.b4x.com/android/forum/threads/b4x-resumable-subs-sleep-wait-for.78601/

it should something like

B4X:

SMTP1.Send
Wait For SMTP1_MessageSent(Success As Boolean)
If Success Then
Else
End If

"SMTP1" is the name u used at initialize

Its a bit slower because u send the mail one by one but u know which one was not send out.

Click to expand...