Lotus notes mail in asp.net gridview control

Is it posible to insert data from Lotus database in any control other than ListBox, that I can later fill GridView from. It is really urgent stuff so please help. Thanks all

If you have to do the export/import only once, wouldn't it be a lot easier to export the contacts to a file, then import it in your SQL tables? Or write some agent/script in Lotus Notes to add the data directly to the SQL database? Or use LEI to connect to the SQL database?

PS I know nothing of grids, so I'm merely asking why you want to go through all the trouble to create a rather complex application to transfer some data...

Solution was to create datatable, insert data from LN database to it and then use datatable as datasource for GridView. Thanx for your help anyway

Yes, I saw you got that solution in a different question... Get this question deleted, I'd say.

No it is not still deleted because I now realise that I need a body as an object and not like I did with join. Can you help me, as you can see all other parameters I get as an object except Body that I get with a join, and in that way I cant insert it in a datatable. Thanks again

got it

 With vwInbox
            docMessage = .GetLastDocument
            Do
                Dim bdy As Object
                bdy = appNotes.Evaluate("@Text(Body)", docMessage)
                List3.Items.Add(bdy(0))
                'List3.Items.Add(docMessage.GetItemValue("Body"))
                'List3.Items.Add(Join(docMessage.GetItemValue("Body")))
                docMessage = .GetPrevDocument(docMessage)
            Loop Until docMessage Is Nothing
        End With
        On Error Resume Next

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

That's not the right way to get the Body field. Evaluate shouldn't be used for every field, and certainly not when you don't need it. I think I mentioned the proper code to get Rich-text fields in some other question of yours.

Anyway, try this:

With vwInbox
            docMessage = .GetLastDocument
            Do
                Dim bdy As String
                bdy = docMessage.GetItemValue("Body").Text
                List3.Items.Add(bdy)
                docMessage = .GetPrevDocument(docMessage)
            Loop Until docMessage Is Nothing
End With

I tried your code, with evaluate I get body as plain text and can insert it in text field in sql database table, but with GetItemValue list box is empty and no text at all.

Strange... Here's a different way:

With vwInbox
            docMessage = .GetLastDocument
            Do
                Dim bdy As String
                bdy = docMessage.GetItemValue("Body").GetUnformattedText( )
                List3.Items.Add(bdy)
                docMessage = .GetPrevDocument(docMessage)
            Loop Until docMessage Is Nothing
End With

Or a two-step approach:

With vwInbox
            docMessage = .GetLastDocument
            Do
                Dim obdy As Object
                Dim bdy As String
                obdy = docMessage.GetItemValue("Body")
                bdy = obdy.Text
                List3.Items.Add(bdy)
                docMessage = .GetPrevDocument(docMessage)
            Loop Until docMessage Is Nothing
End With

no, nothing again, in both ways I get empty listbox.

Just leave the Evaluate then, it's the pragmatic thing to do. I'm kinda baffled...

I did that and it works. But I have problem with attachment names again, still getting 2 rows in listbox for mails with attachments. In one row I have attachment names and second row is empty. Second row is problem because now I have more rows in attachment listbox then in other listboxes. How to get only one row with attachment names?

The attachmentNames variable is filled with one string containing the names of the attachments, separated by comma and space. Could it be that VB or your code splits it up? What does the statement    List5.Items.Add(" ")   do exactly?

List5.Items.Add(" ") is suppose to insert empty string for mails without attachment. If I remove this line of code I only get list of all attachments without empty rows for mails without attachment. Actually I need empty string in ListBox for mail without attachment and string with attachment names for mails with attachment.

So that line should ONLY be executed if there are no attachments at all? Aaargh, your code is too complex! Consider this approach:
- one outer loop over the documents
- inside the loop: you add one entry to each list, always

Might that be better??

yes this line of code is only for mails that are without any attachment, just like I said in first question that was posted. Can you give me some more details about your approach with two loops.

this is working fine, a little bit faster, except the part with attachment listbox. Now I need that empty strings only for mails without attachments.

A little faster, but a lot less code. And it should be a lot faster when there are many documents in the view.

About the mails without attachments: is that why you added a string with a single space?

Try this quick hack then:

                Dim attachmentNames As Object
                attachmentNames = appNotes.Evaluate("@Implode(@AttachmentNames; "", "")", docMessage)
            If attachmentNames(0)="" Then attachmentNames(0)=" "
                List5.Items.Add(attachmentNames(0))

quick hack works fine, let me check everything and then finish with this question. OK?

Fine with me! :-)