B4A Library New Net library - Android FTP, SMTP and POP3

Here is a copy of my code - whenever one has a chance to review. The MessageSent event has been moved to an activity module to capture event.
SMTP params were derived from a Map file (created in my setup)

Thanks

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


Dim SMTP1 As SMTP


Dim myserver, myadd, mypass, myto1, myto2, myto3 As String
Dim myport As Int
Dim myssl,wassent As Boolean



End Sub


Sub QueMail
Dim C1 As Cursor
Dim i As Int

' que up out going mail

C1 = DefCM.SQL1.ExecQuery2( "SELECT * FROM Inspections WHERE Sent = ?", Array As String(0) )
If C1.RowCount > 0 Then

SendSetup ' setup the SMTP object for sending
For i = 0 To c1.RowCount - 1
c1.Position = i
wassent = False
' open send session
Dim Recno As Long
Dim Name, From As String
Dim buf() As Byte

Buf = C1.GetBlob("Inspect")
Recno = c1.GetLong("ID_Date")
Name = c1.GetString("Name")
From = " "
From = From &c1.GetString("Trip")&" For: "
From = From &c1.GetString("Driver")&" Truck: "
From = From &c1.GetString("Truck")&" Trailer: "
From = From &c1.GetString("Trailer")



Dim out As OutputStream
out = File.OpenOutput( File.DirDefaultExternal&"/InspForms/",Name, False)
out.WriteBytes(buf,0,buf.Length )
out.Flush
out.Close
Log(" Write pdf to disk for sending: "&Name)
DoEvents

If SendFile(Name, From) = True Then
If wassent Then
Log(" Mail WAS Sent: "&Name)
UpDateSent(Recno)
Else
Log(" Mail WAS NOT Sent: "&Name)
End If
End If

'File.Delete(File.DirDefaultExternal&"/InspForms/",Name)
Next
Else
ToastMessageShow(" No Reports to Send Were Found",True)
End If
C1.Close

End Sub


Sub SendFile(Name As String, From As String) As Boolean

SMTP1.To.Add(myto1)
If myto2.Length > 0 Then
SMTP1.CC.Add(myto2)
End If
If myto3.Length > 0 Then
SMTP1.CC.Add(myto3)
End If
' SMTP1.HtmlBody = False
SMTP1.Subject = "MySite.com: "&Name
SMTP1.Body = From&CRLF&CRLF&CRLF&" ***COPYRIGHT*** "&CRLF&" MYSITE.COM "&CRLF&" ALL RIGHTS RESERVED "
SMTP1.AddAttachment(File.DirDefaultExternal&"/InspForms/",Name)
SMTP1.Send

Log("Attempted to Send May Have Failed: ")

DoEvents
Return True
End Sub



' MOVED TO ACTIVITY MODULE
'Sub SMTP1_MessageSent(Success As Boolean)
'
'Log (" Message Sent: "&Success)
'If Success Then
' wassent = True
'Else
' wassent = False
' Log("Send Error: "&LastException.Message)
'End If
'
'
'End Sub



Sub UpDateSent(rec As Long)

Defcm.SQL1.ExecNonQuery2("UPDATE Inspections SET Sent = ? WHERE ID_Date = ?", Array As String(DateTime.Now,rec))

End Sub

Sub SendSetup
' setup the SMTP object
Dim mp As Map


mp.Initialize
If File.Exists(File.DirDefaultExternal,"smtp.map") Then
mp = File.ReadMap(File.DirDefaultExternal,"smtp.map")
Else
ToastMessageShow(" SMTP Setup File Not Found",False)
End If

myServer = mp.Get("smtpserver")
myadd = mp.Get("smptname")
mypass = mp.Get("smtppass")
myport = mp.Get("smtpport")
myssl = mp.Get("cbsmtpssl")

myto1 = mp.Get("to1")
myto2 = mp.Get("to2")
myto3 = mp.Get("to3")

SMTP1.Initialize(myServer,myport,myadd,mypass,"SMTP1")
SMTP1.UseSSL=True

Msgbox(" SMTP: "&myServer&" "&myadd&" "&mypass&" "&myport&" "&myssl&" Send To: "&myto1," SMTP ")


End Sub

you didn't include


is Dim DefCM in Globals?

Sorry vb, DefCM is my default code module - where SQL1 is inited.

The globals contain SMTP1 and user password for priming SMTP1.Intialize.

Funny, I had it all working - sending my pdfs like clockwork then - server responds with Authentication Required....

I setup outlook with the same user and password and get the same result. Must be something with my username and password for that test account.
My tester set my app up with a different account and gets the same return result - no sending

I created a little stub, based on code above and can't seem to get passed it. Time to install 1.8 and then work beyond this.

I will setup a new google email account and see how that flies.

Thanks

Sometimes the SMTP servers want the full username/email address for authentication:

myserver = mp.Get("abc.com")
myadd = mp.Get("harris")


vs.


myserver = mp.Get("abc.com")
myadd = mp.Get("harris@abc.com")



http://en.wikipedia.org/wiki/SMTP_Authentication

I have it working with my own personal account such as: myaccount@gmail.com.

However, I ask my friend who was having issue with the same test app to use my account. He didn't get anywhere... The MessageSent event error he gets on his Galaxy S2 is:
java.net.ConnectionException: localhost/::1:465 - Connection refused.

LocalHost??? wtf?

This is the same he will get using any of his valid email accounts with gmail.

When i try to use another valid gmail account (which worked when I first tried SMTP), I get:
Send Error: java.lang.RuntimeException: Empty writer returned: 530-5.5.1 Authentication Required. Learn more at mail.google.....

I will post my complete test app code to see if anyone else sees the same.

Thanks

Attached is a simple sample of the test smtp.

My primary account works, were as many other accounts produce erros in the connection.

Thanks

what happens when you test the basics out?




Have you read up on the PORTS?

Ports
Server administrators choose whether clients use TCP port 25 (SMTP) or port 587 (Submission), as formalized in RFC 6409, for relaying outbound mail to a mail server. The specifications and many servers support both. Although some servers support port 465 for legacy secure SMTP in violation of the specifications, it is preferable to use standard ports and standard ESMTP commands[14] according to RFC 3207 if a secure session needs to be used between the client and the server.
Some servers are set up to reject all relaying on port 25, but valid users authenticating on port 587 are allowed to relay mail to any valid address.
Some Internet service providers intercept port 25, redirecting traffic to their own SMTP server regardless of the destination address. This means that it is not possible for their users to access an SMTP server outside the ISP's network using port 25.
Some SMTP servers support authenticated access on an additional port other than 25 to allow users to connect to them even if port 25 is blocked.

Click to expand...

Local host issue solved:
Seems the hint color is very close to a valid input color on some devices - and possibly the age of ones eyes plays a role. My tester did not supply a server value because the hint said: smpt.gmail.com My bad.. never supply valid values as hints.... :sign0013:

As for my other valid address to the same gmail server, I will try your basic code above. You saw my test app is not far from your code above?

Also, it would be nice to associate a send request with an ID. That way, I could determine which mail actually "made it" and which ones failed. With the ID, I could then update my tables record with the Sent flag and delete the file I extracted from my blob. Testing with the S2 this am, the mail was received long before (about 2 minutes) the ack came back from the server (Success) saying it was sent. This was due to low signal strength (I assume). When the same test was tried with phone in the signal booster, Success was received right away.

Any suggestions on how to handle this would be most welcome. I have even tried waiting for the event directly after a send. I don't see the event until I exit the loop however long I wait..

SMTP.Send
do while MsgEvent = False
DoEvents
cnt = cnt + 1
if cnt > 2000 then Exit
loop

In the event, I set MsgEvent to True when it fires, however it never does....

Thanks everyone

As for my other valid address to the same gmail server, I will try your basic code above. You saw my test app is not far from your code above?

Click to expand...

I just know that code above works, with my gmail,
so I figured if you can test that other gmail
account with it, we are comparing apples to apples

My other account now works!
GMail was wanting me to authenticate this account. I only used it for testing on my device so I wasn't aware that it needed me to do this since this account was not listed in my gmail. Now that I have done this, it works fine - no error requesting authenication - as posted above.

Yes, the sample code functions fine. Any suggestions about handling multiple mail send and confirmations?
Thanks

Erel said:

However the best approach is to wait for one message to be sent and then send the next one in MessageSent event.

Click to expand...

So, if I understand this correctly:
I have 10 mails to send, create a list of these mails - que up and send the first one. Wait for response in MessageSent event (update list of pass or fail). In MessageSent, check if more mails need to be sent in list. Repeat... to end of list. When entire list has been processed, update my db table with results from list (mark sent field accordingly) and clean up files on disk (attachments).

Sounds recursive but I think I can handle it.

Thanks

I am sending emails ok but the SMTP1_MessageSent(Success As Boolean) sub is not firing. I am using a code module for all routines

does it have to be used in activity mod?

YES, the event must be in activity module.... That was my problem (among others).

I have SMTP sending multiple mails working now...

I dont think its pretty, but it works

I can update my db when the mail was sent and clean up left over files that were the attachments. Keep a clean house (wish I could say for my own - maid wanted...).

I do not know what is wrong but the SMTP1_MessageSent(Success As Boolean) sub is still not firing.

I have putting all the code in the Main Activity Module, Code Module and Service Module.
This is how i send

i have tried putting the dim smtp1 in process globals and globals all without success

The last parameter is not "protocol". It is EventName. It should be "SMTP1" in your case.

:sign0148:

don' t know where i got the protocol from??? I think it was when i looked up Gmail requirements.

Anyway i changed to "SMTP1" and it works beautifully.

Thank you

FWIW to any others, I changed all the code and put it into a Service Module and it runs great in the background. The program keeps running whilst all emails are being silently sent.

Yes, good idea.
I have accomplished what I wanted and have mine in a code module - "attempting" to send when I return to the main form (as would be normal in my app). However, in a service module, it could attempt always and often until all mails went out. My users have limited connection through tablets and areas not served well by cell coverage. This would ensure it would get out when it could.
I shall convert my app pronto...

Thanks all....

Error using the new net library

I was using the network library
I needed the passivemode property so I used the net 1.20 library deselecting the network library

I'm getting this when compiling


why???

I don't see any problem with selecting both Net and Network libraries. Can you upload your project?

Is FTP Resume Supported?

Hi Erel,

Is FTP resume supported? Does the library do it automatically or should I send a resume command first using SendCommand before DownloadFile?