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
Thanks