Hi,

Please help me to get all the Lotus Notes inbox. i already get some of the inbox subject title but when i manually check the number of total inbox on that day it was not the same it looks like not all the email subject title is inserted on my database here's my code :

Dim NSession1 As Object 'NotesSession
Dim NMailDb1 As Object 'NotesDatabase
Dim NDocs1 As Object 'NotesDocumentCollection
Dim NDoc1 As Object 'NotesDocument
Dim NNextDoc1 As Object 'NotesDocument
Dim NItem1 As Object 'NotesItem
Dim view1 As String 
Dim filterText1 As String 
Dim subject0 As String 
Dim deli As Date 
 
 'Dim oConn As ADODB.Connection
 'Dim rs As ADODB.Recordset
Dim conn01 As MySqlConnection 
Dim cmd01 As New MySqlCommand 
 
DateTimePicker3.Format = DateTimePickerFormat.Custom 
DateTimePicker3.CustomFormat = "MM/dd/yyyy" 
Label7.Text = DateTimePicker3.Text 
conn01 = New MySqlConnection() 
conn01.ConnectionString = mMySQLConnectionString 
 
view1 = "$All" 'Name of view or folder to retrieve documents from
view1 = "($Inbox)" 
 
 
filterText1 = "" + Label7.Text + "" 'Optional text string to filter the view
 
NSession1 = CreateObject("Notes.NotesSession") 
NMailDb1 = NSession1.GetDatabase("", "") 'Default server and database
 
If Not NMailDb1.IsOpen Then NMailDb1.OpenMail() 
 
NDocs1 = NMailDb1.GetView(view1) 
 ' NDocs1.Clear()
 
 'Apply optional filter
 
If filterText1 <> "" Then 
    NDocs1.FTSearch(filterText1, 0) 
End If 
 
NDoc1 = NDocs1.GetFirstDocument 
 
Do Until NDoc1 Is Nothing 
    NNextDoc1 = NDocs1.GetNextDocument(NDoc1) 
    NItem1 = NDoc1.GetFirstItem("Subject") 
    If Not NItem1 Is Nothing Then 
        subject0 = NDoc1.GetItemValue("Subject")(0) 
        Dim subj As String = Strings.Right(Strings.Left(subject0, 18), 14) 
        Dim subject01 As String = Strings.Right(Strings.Left(subject0, 19), 11) 
        Dim subjecttrim As String = Strings.Right(Strings.Left(subject0, 19), 11) 
        Dim subjectx As String = "***-" + subj 
        deli = NDoc1.GetItemValue("DeliveredDate")(0) 
         
        cmd01.CommandText = "INSERT INTO acd_cds.ln (`subject`,`fsubject`,`subjectrim`,`subject***`, `postdate`) VALUES ('" & subj.Replace("'", "''") & "','" & subject0.Replace("'", "''") & "','" + subjecttrim.Replace("'", "''") + "','" & subjectx.Replace("'", "''") & "','" & Format(deli, "yyyy-MM-dd HH:mm:ss") & "')" 
         
        cmd01.Connection = conn01 
        conn01.Open() 
         
        cmd01.ExecuteNonQuery() 
         
        conn01.Close() 
         
    End If 
    NDoc1 = NNextDoc1 
Loop 
 
 
NMailDb1.Close() 
NSession1.Close() 
 
NSession1 = Nothing 

Formatting tags added by mark007

Thanks