'Parses a raw mail message and returns a Message object
'Mail - The mail raw text
'AttachmentsDir - Attachments will be saved in this folder
'
'Example: <code>
'Dim m As Message
'm = MailParser.ParseMail("Content-Type: text/plain; charset=" & QUOTE & "utf-8" & QUOTE, File.DirRootExternal)
'Log(m)</code>
Erel you are the greatest
B4A is so simply to use without knowing java programming. Thank you a lot
'for <example> #
Have a look at Erels first post everything is shown there.
Best regards.
Hi Theera like Klaus said look at Erel's first post.
He has the example there.
Regards, Ricky
Hi Klaus,
I try understand Erel's post,but I don't see example ,I don't clear.
P.S.I'm not good at both English and Programming,Please understand me.
Best Regards
Theera
Sub btn_Click
'Parses a raw mail message and returns a Message object
'Mail - The mail raw text
'AttachmentsDir - Attachments will be saved in this folder
'
'Example: <code>
Dim m As Message
m = MailParser.ParseMail("Content-Type: text/plain; charset=" & QUOTE & "utf-8" & QUOTE, File.DirRootExternal)
Log(m)
End Sub
Sub ParseMail(Mail As String,AttachmentDir As String) As message
index = 0
multipart = Flase
boundary =""
Dim msg As message
msg.initialize
msg.Attachments.initialize
End Sub
'Parses a raw mail message and returns a Message object
'Mail - The mail raw text
'AttachmentsDir - Attachments will be saved in this folder
'
'Example: <code>
'Dim m As Message
'm = MailParser.ParseMail("Content-Type: text/plain; charset=" & QUOTE & "utf-8" & QUOTE, File.DirRootExternal)
'Log(m)</code>
Sub ParseMail(Mail As String,AttachmentDir As String) As message
index = 0
multipart = Flase
boundary =""
Dim msg As message
msg.initialize
msg.Attachments.initialize
End Sub
Here's what you have...
B4X:Sub btn_Click 'Parses a raw mail message and returns a Message object 'Mail - The mail raw text 'AttachmentsDir - Attachments will be saved in this folder ' 'Example: <code> Dim m As Message m = MailParser.ParseMail("Content-Type: text/plain; charset=" & QUOTE & "utf-8" & QUOTE, File.DirRootExternal) Log(m) End Sub Sub ParseMail(Mail As String,AttachmentDir As String) As message index = 0 multipart = Flase boundary ="" Dim msg As message msg.initialize msg.Attachments.initialize End Sub
Hi, you have put the documentation comments inside the btn_click sub. It shouldn't be in any sub. You need to put the documentation comments directly above the Sub declaration you want the documentation for... with no blank lines. You also need to comment ALL lines, including the code.
Finally, you need to put <code> at the beginning of the code example AND </code> at the end of the code example.
B4X:'Parses a raw mail message and returns a Message object 'Mail - The mail raw text 'AttachmentsDir - Attachments will be saved in this folder ' 'Example: <code> 'Dim m As Message 'm = MailParser.ParseMail("Content-Type: text/plain; charset=" & QUOTE & "utf-8" & QUOTE, File.DirRootExternal) 'Log(m)</code> Sub ParseMail(Mail As String,AttachmentDir As String) As message index = 0 multipart = Flase boundary ="" Dim msg As message msg.initialize msg.Attachments.initialize End Sub
Hope that clears things up....
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?