Protected Sub ttt_elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs)
Try
Dim Myserver As String
Dim popserver As String
Dim port As Integer
Dim login As String
Dim password As String
oSession.UseSSL = True
Myserver = "192.168.100.205"
popserver = "pop.mail.ru"
login = "yuginfo"
PrintLog2(login)
port = 995
password = "uginform"
' oSession = New OSPOP3_Plus.Session
PrintLog2(port)
oSession.UseSSL = True
oSession.ServerName = popserver
oSession.PortNumber = port
oSession.Login = login
oSession.Password = password
PrintLog2(popserver)

' oSession.OpenPOP3(popserver, port, login, password)
oSession.OpenPOP3()

System.NullReferenceException: В экземпляре объекта не задана ссылка на объект.
в OSPOP3_Plus.Session.ClosePOP3()
в OSPOP3_Plus.Session.OpenPOP3(String ServerName, Int32 PortNumber, String Login, String Password, Boolean UseSSL)
в MonitorKurier.MonitorKurier.t_elapsed(Object sender, ElapsedEventArgs e)
В экземпляре объекта не задана ссылка на объект.

Public Class MonitorKurier
Private t As System.Timers.Timer = Nothing
Private tt As System.Timers.Timer = Nothing
Private ttt As System.Timers.Timer = Nothing
Public WithEvents oSession As New OSPOP3_Plus.Session

30.09.2014 10:32:02- начинаем описывать ошибку
System.NullReferenceException: Ссылка на объект не указывает на экземпляр объекта.
   в OSPOP3_Plus.Session.OpenPOP3(String ServerName, Int32 PortNumber, String Login, String Password, Boolean UseSSL)
   в MonitorScreens.MonitorKurier.ttt_elapsed(Object sender, ElapsedEventArgs e)
подробное описание ошибки
Ссылка на объект не указывает на экземпляр объекта.
заканчиваем описание ошибки

Imports System.Timers
Imports System.IO
Imports System.Net
Imports System.Net.Mail
Imports System.Threading
Imports OSPOP3_Plus
'Imports System.Net.NetworkCredential

Public Class MonitorKurier
    'Private t As System.Timers.Timer = Nothing
    ' Private tt As System.Timers.Timer = Nothing
    Private ttt As System.Timers.Timer = Nothing
    Private WithEvents oSession As New OSPOP3_Plus.Session
    Public alreadyProcessing
    Public alreadyProcessing2

    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        't.Interval = 1000000
        Me.alreadyProcessing2 = False
        '  PrintLog(t.Interval)
        '  PrintLog2(tt.Interval)
        ttt.Start()
        ' tt.Start()
        ' t.Start()
    End Sub

    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
        ' t.Stop()
        ' tt.Stop()
        ttt.Stop()
    End Sub
    Protected Overrides Sub Oncontinue()
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        '  t.Start()
        ' tt.Start()
        ttt.Stop()

    End Sub
    Protected Overrides Sub Onpause()
        ' Add code here to perform any tear-down necessary to stop your service.
        ' t.Stop()
        ' tt.Stop()
        ttt.Stop()

    End Sub
    Protected Sub ttt_elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs)
        Try

            Dim Myserver As String
            Dim popserver As String
            Dim port As Integer
            Dim login As String
            Dim password As String
            oSession.UseSSL = True
            Myserver = "192.168.100.205"
            popserver = "pop.mail.ru"
            login = "yuginfo"
            PrintLog2(login)
            port = 995
            password = "214"
            ' oSession = New OSPOP3_Plus.Session
            PrintLog2(port)
            oSession.UseSSL = True
            oSession.ServerName = popserver
            oSession.PortNumber = port
            oSession.Login = login
            oSession.Password = password
            PrintLog2(popserver)

            ' oSession.OpenPOP3(popserver, port, login, password)
            oSession.OpenPOP3()
            PrintLog2(popserver)
            Dim omle As OSPOP3_Plus.MessageListEntry
            Dim i As Integer
            Dim m As OSPOP3_Plus.Message
            Dim good As Boolean
            Dim zzz As String
            Dim filevloz As String
            Dim tip As Integer

            i = 1


            'oSession.OpenPOP3(txtServer.Text, Convert.ToInt32(port), Login, txtPassword.Text)
            oSession.OpenPOP3(popserver, port, login, password)

            For Each omle In oSession.MessageList
                m = oSession.GetMessageHeaders(i)

                If UCase(m.Subject) = "MONBASE" Or UCase(m.Subject) = "MONBASEPFR" Or UCase(m.Subject) = "DAYDAY" Or UCase(m.Subject) = "DAYREG" Or UCase(m.Subject) = "DAYDAYPERSONAL" Then

                    zzz = m.DateSent
                    Select Case UCase(m.Subject)
                        Case "ALLBASE"
                            tip = 1
                        Case "DOBBASE"
                            tip = 2
                        Case "MONBASE"
                            tip = 3
                        Case "MONBASEPFR"
                            tip = 4
                        Case "DAYDAY"
                            tip = 11
                        Case "DAYREG"
                            tip = 111
                        Case "DAYDAYPERSONAL"
                            tip = 1111
                    End Select
                    m = oSession.GetMessage(i, False)

                    Dim a As OSPOP3_Plus.Attachment
                    For Each a In m.Attachments


                        If FolderExists(My.Application.Info.DirectoryPath & "\Tmp") Then
                        Else
                            IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Tmp")
                        End If
                        If FolderExists(My.Application.Info.DirectoryPath & "\Tmp2") Then
                        Else
                            IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Tmp2")
                        End If

                        Dim fileName As String = ""
                        Dim attachmentCounter As Integer = 1
                        If a.AttachmentName <> "" Then
                            fileName = a.AttachmentName.Replace("""", "") 'attachment name may contain quotes!
                        Else
                            fileName = "attachment_" + attachmentCounter.ToString() 'file name can't be blank
                            If a.ContentType = "message/rfc822" Then
                                fileName = fileName + ".eml"
                            End If

                        End If

                        a.Save(My.Application.Info.DirectoryPath & "\Tmp\" & fileName)
                        '  MsgBox(My.Application.Info.DirectoryPath)

                        filevloz = fileName
                        'pppoe = "insert into priem (email, [file],tip,datepriem,atcname,atcfile) values ('" & m.Sender.Address & "','" & m.Sender.Address & "'," & tip & ",'" & zzz & "','" & filevloz & "',)"

                        'IsServer(pppoe, "192.168.100.205")
                        ' MsgBox(fileName)


                        Call sendtopriem(m.Sender.Address, filevloz, tip, zzz, Myserver, good)
                        'Exit For

                    Next
                    If good = True Then
                        ' MsgBox("recorded")
                        m = oSession.GetMessage(i, True)
                        ' MsgBox("OSPPOP DELETED")
                        'On Error Resume Next
                        Kill(My.Application.Info.DirectoryPath & "\Tmp\" & filevloz)


                    End If
                End If
                i = i + 1
            Next
            oSession.ClosePOP3()
            'MsgBox("Сделано!!!")
        Catch ex As Exception
            Dim path As String = "c:\logQQQ.txt"
            Dim tw As StreamWriter = New StreamWriter(path, True)
            tw.WriteLine(Date.Now.ToString + "- начинаем описывать ошибку")
            tw.WriteLine(ex.ToString)



            Dim inner As Exception = ex.GetBaseException
            tw.WriteLine("подробное описание ошибки")
            tw.WriteLine(inner.Message.ToString)
            tw.WriteLine("заканчиваем описание ошибки")
            tw.Close()

        End Try

    End Sub

   
End Class

Imports System.ServiceProcess
Imports System.Timers
Imports System.IO
Imports System.Net
Imports OSPOP3_Plus

Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbCommand
Imports System.Data.SqlClient
Imports System.Data.Common.DbCommand
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class MonitorKurier
    Inherits System.ServiceProcess.ServiceBase

    'UserService overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' The main entry point for the process
    <MTAThread()> _
    <System.Diagnostics.DebuggerNonUserCode()> _
    Shared Sub Main()
        Dim ServicesToRun() As System.ServiceProcess.ServiceBase

        ' More than one NT Service may run within the same process. To add
        ' another service to this process, change the following line to
        ' create a second service object. For example,
        '
        '   ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
        '
        ServicesToRun = New System.ServiceProcess.ServiceBase() {New MonitorKurier}

        System.ServiceProcess.ServiceBase.Run(ServicesToRun)
    End Sub

    'Required by the Component Designer
    Private components As System.ComponentModel.IContainer

    ' NOTE: The following procedure is required by the Component Designer
    ' It can be modified using the Component Designer.  
    ' Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        '
        'MonitorKurier
        '
        Me.CanPauseAndContinue = True
        Me.CanShutdown = True
        Me.ServiceName = "MonitorKurier"

    End Sub

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        '  t = New Timer(10000)
        ' tt = New Timer(60000)
        ttt = New Timer(60000)
        '   AddHandler t.Elapsed, New System.Timers.ElapsedEventHandler(AddressOf Me.t_elapsed)
        '  AddHandler tt.Elapsed, New System.Timers.ElapsedEventHandler(AddressOf Me.tt_elapsed)
        AddHandler ttt.Elapsed, New System.Timers.ElapsedEventHandler(AddressOf Me.ttt_elapsed)
    End Sub

    Private Sub MonitorKurier_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed

    End Sub
End Class

Imports System.Timers
Imports System.IO
Imports System.Net
Imports System.Net.Mail
Imports System.Threading
Imports OSPOP3_Plus
'Imports System.Net.NetworkCredential

Public Class MonitorKurier
    'Private t As System.Timers.Timer = Nothing
    ' Private tt As System.Timers.Timer = Nothing
    Private ttt As System.Timers.Timer = Nothing
    ' Private WithEvents oSession As New OSPOP3_Plus.Session
    Public alreadyProcessing
    Public alreadyProcessing2

    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        't.Interval = 1000000
        Me.alreadyProcessing2 = False
        '  PrintLog(t.Interval)
        '  PrintLog2(tt.Interval)
        ttt.Start()
        ' tt.Start()
        ' t.Start()
    End Sub

    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
        ' t.Stop()
        ' tt.Stop()
        ttt.Stop()
    End Sub
    Protected Overrides Sub Oncontinue()
        ' Add code here to start your service. This method should set things
        ' in motion so your service can do its work.
        '  t.Start()
        ' tt.Start()
        ttt.Stop()

    End Sub
    Protected Overrides Sub Onpause()
        ' Add code here to perform any tear-down necessary to stop your service.
        ' t.Stop()
        ' tt.Stop()
        ttt.Stop()

    End Sub
    Protected Sub ttt_elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs)
        Try
            '  Private WithEvents oSession As New OSPOP3_Plus.Session
            Dim oSession As OSPOP3_Plus.Session
            Dim Myserver As String
            Dim popserver As String
            Dim port As Integer
            Dim login As String
            Dim password As String
            oSession = New OSPOP3_Plus.Session
            oSession.UseSSL = True
            Myserver = "192.168.100.205"
            popserver = "pop.mail.ru"
            login = "yuginfo"
            PrintLog2(login)
            port = 995
            password = "214"
            ' oSession = New OSPOP3_Plus.Session
            PrintLog2(port)
            oSession.UseSSL = True
            oSession.ServerName = popserver
            oSession.PortNumber = port
            oSession.Login = login
            oSession.Password = password
            PrintLog2(popserver)

            ' oSession.OpenPOP3(popserver, port, login, password)
            oSession.OpenPOP3()
            PrintLog2(popserver)
            Dim omle As OSPOP3_Plus.MessageListEntry
            Dim i As Integer
            Dim m As OSPOP3_Plus.Message
            Dim good As Boolean
            Dim zzz As String
            Dim filevloz As String
            Dim tip As Integer

            i = 1


            'oSession.OpenPOP3(txtServer.Text, Convert.ToInt32(port), Login, txtPassword.Text)
            oSession.OpenPOP3(popserver, port, login, password)

            For Each omle In oSession.MessageList
                m = oSession.GetMessageHeaders(i)

                If UCase(m.Subject) = "MONBASE" Or UCase(m.Subject) = "MONBASEPFR" Or UCase(m.Subject) = "DAYDAY" Or UCase(m.Subject) = "DAYREG" Or UCase(m.Subject) = "DAYDAYPERSONAL" Then

                    zzz = m.DateSent
                    Select Case UCase(m.Subject)
                        Case "ALLBASE"
                            tip = 1
                        Case "DOBBASE"
                            tip = 2
                        Case "MONBASE"
                            tip = 3
                        Case "MONBASEPFR"
                            tip = 4
                        Case "DAYDAY"
                            tip = 11
                        Case "DAYREG"
                            tip = 111
                        Case "DAYDAYPERSONAL"
                            tip = 1111
                    End Select
                    m = oSession.GetMessage(i, False)

                    Dim a As OSPOP3_Plus.Attachment
                    For Each a In m.Attachments


                        If FolderExists(My.Application.Info.DirectoryPath & "\Tmp") Then
                        Else
                            IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Tmp")
                        End If
                        If FolderExists(My.Application.Info.DirectoryPath & "\Tmp2") Then
                        Else
                            IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Tmp2")
                        End If

                        Dim fileName As String = ""
                        Dim attachmentCounter As Integer = 1
                        If a.AttachmentName <> "" Then
                            fileName = a.AttachmentName.Replace("""", "") 'attachment name may contain quotes!
                        Else
                            fileName = "attachment_" + attachmentCounter.ToString() 'file name can't be blank
                            If a.ContentType = "message/rfc822" Then
                                fileName = fileName + ".eml"
                            End If

                        End If

                        a.Save(My.Application.Info.DirectoryPath & "\Tmp\" & fileName)
                        '  MsgBox(My.Application.Info.DirectoryPath)

                        filevloz = fileName
                        'pppoe = "insert into priem (email, [file],tip,datepriem,atcname,atcfile) values ('" & m.Sender.Address & "','" & m.Sender.Address & "'," & tip & ",'" & zzz & "','" & filevloz & "',)"

                        'IsServer(pppoe, "192.168.100.205")
                        ' MsgBox(fileName)


                        Call sendtopriem(m.Sender.Address, filevloz, tip, zzz, Myserver, good)
                        'Exit For

                    Next
                    If good = True Then
                        ' MsgBox("recorded")
                        m = oSession.GetMessage(i, True)
                        ' MsgBox("OSPPOP DELETED")
                        'On Error Resume Next
                        Kill(My.Application.Info.DirectoryPath & "\Tmp\" & filevloz)


                    End If
                End If
                i = i + 1
            Next
            oSession.ClosePOP3()

            'MsgBox("Сделано!!!")
        Catch ex As Exception
            Dim path As String = "c:\logQQQ.txt"
            Dim tw As StreamWriter = New StreamWriter(path, True)
            tw.WriteLine(Date.Now.ToString + "- начинаем описывать ошибку")
            tw.WriteLine(ex.ToString)



            Dim inner As Exception = ex.GetBaseException
            tw.WriteLine("подробное описание ошибки")
            tw.WriteLine(inner.Message.ToString)
            tw.WriteLine("заканчиваем описание ошибки")
            tw.Close()

        End Try

    End Sub

30.09.2014 15:50:18- начинаем описывать ошибку
System.NullReferenceException: Ссылка на объект не указывает на экземпляр объекта.
   в OSPOP3_Plus.Session.OpenPOP3(String ServerName, Int32 PortNumber, String Login, String Password, Boolean UseSSL)
   в MonitorScreens.MonitorKurier.ttt_elapsed(Object sender, ElapsedEventArgs e)
подробное описание ошибки
Ссылка на объект не указывает на экземпляр объекта.
заканчиваем описание ошибки

Imports System.Data.SqlClient
Imports System.IO
Public Class frmSession
  Inherits System.Windows.Forms.Form
   
    Public WithEvents oSession As New OSPOP3_Plus.Session
    Public bHeadersOnly As Boolean

#Region " Windows Form Designer declarations "
    Private WithEvents chkSSL As System.Windows.Forms.CheckBox
    Friend WithEvents cmdRefresh As System.Windows.Forms.Button
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents label2 As System.Windows.Forms.Label
    Friend WithEvents txtNumber As System.Windows.Forms.TextBox
    Friend WithEvents txtPort As System.Windows.Forms.TextBox
    Friend WithEvents cmdConnect As System.Windows.Forms.Button
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents cmdHeaders As System.Windows.Forms.Button
    Friend WithEvents fmMessages As System.Windows.Forms.GroupBox
    Friend WithEvents cmdDelete As System.Windows.Forms.Button
    Friend WithEvents cmdView As System.Windows.Forms.Button
    Friend WithEvents lvwMessages As System.Windows.Forms.ListView
    Friend WithEvents clmID As System.Windows.Forms.ColumnHeader
    Friend WithEvents clmSize As System.Windows.Forms.ColumnHeader
    Friend WithEvents clmUIDL As System.Windows.Forms.ColumnHeader
    Friend WithEvents cmdReset As System.Windows.Forms.Button
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents txtSize As System.Windows.Forms.TextBox
    Friend WithEvents txtPassword As System.Windows.Forms.TextBox
    Friend WithEvents txtStatus As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents txtServer As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents txtLogin As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents TxtSrv2 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.chkSSL = New System.Windows.Forms.CheckBox
        Me.cmdRefresh = New System.Windows.Forms.Button
        Me.Label6 = New System.Windows.Forms.Label
        Me.label2 = New System.Windows.Forms.Label
        Me.txtNumber = New System.Windows.Forms.TextBox
        Me.txtPort = New System.Windows.Forms.TextBox
        Me.cmdConnect = New System.Windows.Forms.Button
        Me.Label4 = New System.Windows.Forms.Label
        Me.cmdHeaders = New System.Windows.Forms.Button
        Me.fmMessages = New System.Windows.Forms.GroupBox
        Me.cmdDelete = New System.Windows.Forms.Button
        Me.cmdView = New System.Windows.Forms.Button
        Me.lvwMessages = New System.Windows.Forms.ListView
        Me.clmID = New System.Windows.Forms.ColumnHeader
        Me.clmSize = New System.Windows.Forms.ColumnHeader
        Me.clmUIDL = New System.Windows.Forms.ColumnHeader
        Me.cmdReset = New System.Windows.Forms.Button
        Me.Label5 = New System.Windows.Forms.Label
        Me.txtSize = New System.Windows.Forms.TextBox
        Me.txtPassword = New System.Windows.Forms.TextBox
        Me.txtStatus = New System.Windows.Forms.TextBox
        Me.Label3 = New System.Windows.Forms.Label
        Me.txtServer = New System.Windows.Forms.TextBox
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.Button2 = New System.Windows.Forms.Button
        Me.Button1 = New System.Windows.Forms.Button
        Me.txtLogin = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.TxtSrv2 = New System.Windows.Forms.TextBox
        Me.fmMessages.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
        'chkSSL
        '
        Me.chkSSL.AutoSize = True
        Me.chkSSL.Location = New System.Drawing.Point(148, 58)
        Me.chkSSL.Name = "chkSSL"
        Me.chkSSL.Size = New System.Drawing.Size(68, 17)
        Me.chkSSL.TabIndex = 4
        Me.chkSSL.Text = "Use SSL"
        Me.chkSSL.UseVisualStyleBackColor = True
        '
        'cmdRefresh
        '
        Me.cmdRefresh.Location = New System.Drawing.Point(448, 160)
        Me.cmdRefresh.Name = "cmdRefresh"
        Me.cmdRefresh.Size = New System.Drawing.Size(113, 23)
        Me.cmdRefresh.TabIndex = 8
        Me.cmdRefresh.Text = "Refresh Msg. List"
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(232, 26)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(88, 13)
        Me.Label6.TabIndex = 7
        Me.Label6.Text = "Number of emails"
        '
        'label2
        '
        Me.label2.AutoSize = True
        Me.label2.Location = New System.Drawing.Point(195, 26)
        Me.label2.Name = "label2"
        Me.label2.Size = New System.Drawing.Size(26, 13)
        Me.label2.TabIndex = 9
        Me.label2.Text = "Port"
        '
        'txtNumber
        '
        Me.txtNumber.Location = New System.Drawing.Point(328, 24)
        Me.txtNumber.Name = "txtNumber"
        Me.txtNumber.Size = New System.Drawing.Size(48, 20)
        Me.txtNumber.TabIndex = 7
        Me.txtNumber.Text = "0"
        Me.txtNumber.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'txtPort
        '
        Me.txtPort.Location = New System.Drawing.Point(224, 24)
        Me.txtPort.Name = "txtPort"
        Me.txtPort.Size = New System.Drawing.Size(36, 20)
        Me.txtPort.TabIndex = 1
        Me.txtPort.Text = "995"
        '
        'cmdConnect
        '
        Me.cmdConnect.Location = New System.Drawing.Point(229, 54)
        Me.cmdConnect.Name = "cmdConnect"
        Me.cmdConnect.Size = New System.Drawing.Size(113, 23)
        Me.cmdConnect.TabIndex = 5
        Me.cmdConnect.Text = "Connect"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(400, 26)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(53, 13)
        Me.Label4.TabIndex = 7
        Me.Label4.Text = "Password"
        '
        'cmdHeaders
        '
        Me.cmdHeaders.Location = New System.Drawing.Point(448, 92)
        Me.cmdHeaders.Name = "cmdHeaders"
        Me.cmdHeaders.Size = New System.Drawing.Size(113, 23)
        Me.cmdHeaders.TabIndex = 11
        Me.cmdHeaders.Text = "View Headers"
        '
        'fmMessages
        '
        Me.fmMessages.Controls.Add(Me.cmdDelete)
        Me.fmMessages.Controls.Add(Me.cmdHeaders)
        Me.fmMessages.Controls.Add(Me.cmdView)
        Me.fmMessages.Controls.Add(Me.lvwMessages)
        Me.fmMessages.Controls.Add(Me.cmdReset)
        Me.fmMessages.Controls.Add(Me.cmdRefresh)
        Me.fmMessages.Controls.Add(Me.Label6)
        Me.fmMessages.Controls.Add(Me.txtNumber)
        Me.fmMessages.Controls.Add(Me.Label5)
        Me.fmMessages.Controls.Add(Me.txtSize)
        Me.fmMessages.Location = New System.Drawing.Point(2, 94)
        Me.fmMessages.Name = "fmMessages"
        Me.fmMessages.Size = New System.Drawing.Size(568, 192)
        Me.fmMessages.TabIndex = 20
        Me.fmMessages.TabStop = False
        Me.fmMessages.Text = "Messages"
        '
        'cmdDelete
        '
        Me.cmdDelete.Location = New System.Drawing.Point(448, 120)
        Me.cmdDelete.Name = "cmdDelete"
        Me.cmdDelete.Size = New System.Drawing.Size(113, 23)
        Me.cmdDelete.TabIndex = 12
        Me.cmdDelete.Text = "Delete Message"
        '
        'cmdView
        '
        Me.cmdView.Location = New System.Drawing.Point(448, 64)
        Me.cmdView.Name = "cmdView"
        Me.cmdView.Size = New System.Drawing.Size(113, 23)
        Me.cmdView.TabIndex = 10
        Me.cmdView.Text = "View Message"
        '
        'lvwMessages
        '
        Me.lvwMessages.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.clmID, Me.clmSize, Me.clmUIDL})
        Me.lvwMessages.FullRowSelect = True
        Me.lvwMessages.HideSelection = False
        Me.lvwMessages.Location = New System.Drawing.Point(8, 56)
        Me.lvwMessages.Name = "lvwMessages"
        Me.lvwMessages.Size = New System.Drawing.Size(432, 128)
        Me.lvwMessages.TabIndex = 13
        Me.lvwMessages.UseCompatibleStateImageBehavior = False
        Me.lvwMessages.View = System.Windows.Forms.View.Details
        '
        'clmID
        '
        Me.clmID.Text = "ID"
        Me.clmID.Width = 38
        '
        'clmSize
        '
        Me.clmSize.Text = "Size"
        Me.clmSize.Width = 91
        '
        'clmUIDL
        '
        Me.clmUIDL.Text = "UIDL"
        Me.clmUIDL.Width = 274
        '
        'cmdReset
        '
        Me.cmdReset.Location = New System.Drawing.Point(448, 24)
        Me.cmdReset.Name = "cmdReset"
        Me.cmdReset.Size = New System.Drawing.Size(113, 23)
        Me.cmdReset.TabIndex = 9
        Me.cmdReset.Text = "Reset Session"
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(16, 26)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(133, 13)
        Me.Label5.TabIndex = 5
        Me.Label5.Text = "Mailbox size, octets (bytes)"
        '
        'txtSize
        '
        Me.txtSize.Location = New System.Drawing.Point(160, 24)
        Me.txtSize.Name = "txtSize"
        Me.txtSize.Size = New System.Drawing.Size(56, 20)
        Me.txtSize.TabIndex = 6
        Me.txtSize.Text = "0"
        Me.txtSize.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'txtPassword
        '
        Me.txtPassword.Location = New System.Drawing.Point(456, 24)
        Me.txtPassword.Name = "txtPassword"
        Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
        Me.txtPassword.Size = New System.Drawing.Size(102, 20)
        Me.txtPassword.TabIndex = 3
        Me.txtPassword.Text = "214373fhf"
        '
        'txtStatus
        '
        Me.txtStatus.Location = New System.Drawing.Point(10, 294)
        Me.txtStatus.Multiline = True
        Me.txtStatus.Name = "txtStatus"
        Me.txtStatus.ScrollBars = System.Windows.Forms.ScrollBars.Both
        Me.txtStatus.Size = New System.Drawing.Size(560, 144)
        Me.txtStatus.TabIndex = 21
        Me.txtStatus.Text = "Connection status"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(262, 26)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(33, 13)
        Me.Label3.TabIndex = 5
        Me.Label3.Text = "Login"
        '
        'txtServer
        '
        Me.txtServer.Location = New System.Drawing.Point(48, 24)
        Me.txtServer.Name = "txtServer"
        Me.txtServer.Size = New System.Drawing.Size(141, 20)
        Me.txtServer.TabIndex = 0
        Me.txtServer.Text = "pop3.mail.ru"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.TxtSrv2)
        Me.GroupBox1.Controls.Add(Me.Button2)
        Me.GroupBox1.Controls.Add(Me.Button1)
        Me.GroupBox1.Controls.Add(Me.chkSSL)
        Me.GroupBox1.Controls.Add(Me.label2)
        Me.GroupBox1.Controls.Add(Me.txtPort)
        Me.GroupBox1.Controls.Add(Me.cmdConnect)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.txtPassword)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.txtLogin)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Controls.Add(Me.txtServer)
        Me.GroupBox1.Location = New System.Drawing.Point(2, 3)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(568, 87)
        Me.GroupBox1.TabIndex = 19
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Session"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(491, 57)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(69, 19)
        Me.Button2.TabIndex = 11
        Me.Button2.Text = "Orders"
        Me.Button2.UseVisualStyleBackColor = True
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(366, 57)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(115, 19)
        Me.Button1.TabIndex = 10
        Me.Button1.Text = "IP"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'txtLogin
        '
        Me.txtLogin.Location = New System.Drawing.Point(295, 24)
        Me.txtLogin.Name = "txtLogin"
        Me.txtLogin.Size = New System.Drawing.Size(105, 20)
        Me.txtLogin.TabIndex = 2
        Me.txtLogin.Text = "yuginfo3"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(8, 26)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(38, 13)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Server"
        '
        'TxtSrv2
        '
        Me.TxtSrv2.Location = New System.Drawing.Point(48, 56)
        Me.TxtSrv2.Name = "TxtSrv2"
        Me.TxtSrv2.Size = New System.Drawing.Size(94, 20)
        Me.TxtSrv2.TabIndex = 22
        Me.TxtSrv2.Text = "192.168.100.205"
        '
        'frmSession
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(572, 440)
        Me.Controls.Add(Me.fmMessages)
        Me.Controls.Add(Me.txtStatus)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "frmSession"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "OstroSoft POP3 Component"
        Me.fmMessages.ResumeLayout(False)
        Me.fmMessages.PerformLayout()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Private Sub frmSession_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fmMessages.Enabled = False
    End Sub

    Private Sub cmdConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConnect.Click
        cmdConnect.Enabled = False
        If cmdConnect.Text = "Connect" Then
            txtStatus.Text = ""
            oSession.UseSSL = True
            oSession.OpenPOP3(txtServer.Text, Convert.ToInt32(txtPort.Text), txtLogin.Text, txtPassword.Text)
        Else
            oSession.ClosePOP3()
        End If
    End Sub

    Private Sub cmdRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRefresh.Click
        GetStats()
    End Sub

    Private Sub cmdReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdReset.Click
        oSession.ResetSession()
        GetStats()
    End Sub

    Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
        If lvwMessages.SelectedItems.Count > 0 Then
            If MsgBox("Would you like to delete a selected email?", vbYesNo, "Confirm") = vbYes Then
                oSession.DeleteMessage(lvwMessages.SelectedItems(0).Text)
                lvwMessages.Items.Remove(lvwMessages.SelectedItems(0))
            End If
        End If
    End Sub

    Private Sub cmdHeaders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHeaders.Click
        If lvwMessages.SelectedItems.Count > 0 Then
            bHeadersOnly = True
            Dim frm As New frmMessage
            With frm
                .iMessageID = lvwMessages.SelectedItems(0).Text
                .bHeadersOnly = bHeadersOnly
                .oSession = oSession
                .ShowDialog()
            End With
        End If
    End Sub

    Private Sub cmdView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdView.Click
        If lvwMessages.SelectedItems.Count > 0 Then
            bHeadersOnly = False
            Dim frm As New frmMessage
            With frm
                .iMessageID = lvwMessages.SelectedItems(0).Text
                .bHeadersOnly = bHeadersOnly
                .oSession = oSession
                .ShowDialog()
            End With
        End If
    End Sub

    Private Sub txtStatus_Change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtStatus.Click
        txtStatus.SelectionStart = Len(txtStatus.Text)
        txtStatus.ScrollToCaret()
    End Sub

    Private Sub oSession_Closed() Handles oSession.Closed
        '  Exit Sub
        txtSize.Text = "0"
        txtNumber.Text = "0"
        lvwMessages.Items.Clear()

        cmdConnect.Text = "Connect"
        cmdConnect.Enabled = True
        fmMessages.Enabled = False
    End Sub

    Private Sub oSession_Connected() Handles oSession.Connected
        '  Exit Sub
        GetStats()
        cmdConnect.Text = "Disconnect"
        cmdConnect.Enabled = True
        fmMessages.Enabled = True
    End Sub

    Private Sub oSession_ErrorPOP3(ByVal Number As Integer, ByVal Description As String) Handles oSession.ErrorPOP3
        'txtStatus.Text = txtStatus.Text & "Error " & Number & ": " & Description & vbCrLf
        If oSession.State = OSPOP3_Plus.Session.StateConstants.popClosed Then
            cmdConnect.Text = "Connect"
            fmMessages.Enabled = False
        Else
            cmdConnect.Text = "Disconnect"
        End If
        cmdConnect.Enabled = True
    End Sub

    Private Sub oSession_StatusChanged(ByVal Status As String, ByVal StatusType As OSPOP3_Plus.Session.StatusTypeConstants) Handles oSession.StatusChanged
        '    Exit Sub
        Dim sPrompt As String
        Select Case StatusType
            Case OSPOP3_Plus.Session.StatusTypeConstants.stPOP3Request : sPrompt = "< "
            Case OSPOP3_Plus.Session.StatusTypeConstants.stPOP3Response : sPrompt = "> "
            Case OSPOP3_Plus.Session.StatusTypeConstants.stError : sPrompt = "! "
            Case OSPOP3_Plus.Session.StatusTypeConstants.stState : sPrompt = "# "
            Case Else : sPrompt = "? "
        End Select

        txtStatus.Text = txtStatus.Text & sPrompt & Status & vbCrLf
    End Sub

    Private Sub GetStats()
        '    Exit Sub
        oSession.GetMailboxSize()
        txtSize.Text = oSession.MailboxSize
        txtNumber.Text = oSession.MessageCount

        Dim oMessageList As New Collection
        Dim oMLE As OSPOP3_Plus.MessageListEntry
        Dim li As ListViewItem

        lvwMessages.Items.Clear()
        oSession.GetMessageList()
        For Each oMLE In oSession.MessageList
            li = lvwMessages.Items.Add(oMLE.ID)
            li.SubItems.Add(oMLE.Size)
            li.SubItems.Add(oMLE.UIDL)
        Next
    End Sub

   
    Public Function IsServer(ByVal per As String, ByVal mserver As String) As String
        Dim queryString As String = per
        Dim oledbcon As New _
        System.Data.OleDb.OleDbConnection("Provider=SQLOLEDB.1;User Id=""aaad"";password=""3rokswick_yuginform"";Data Source=" & mserver & ";Initial Catalog=otpravka")
        IsServer = ""
        Dim command As New OleDb.OleDbCommand(queryString, oledbcon)
        oledbcon.Open()
        Dim reader As OleDb.OleDbDataReader = command.ExecuteReader()
        While reader.Read
            IsServer = Trim(reader(0).ToString)
        End While
        ' always call  

        reader.Close()
        oledbcon.Close()
    End Function
    Private Sub sendtopriem(ByVal theme As String, ByVal filevloz As String, ByVal tip As Integer, ByVal zzz As String, ByVal Server As String, ByRef Good As Boolean)
        Dim con As New SqlConnection _
        ("User Id=""aaad"";password=""3rokswick_yuginform"";Data Source=" & Server & ";Initial Catalog=otpravka")
        '("Server=" & Server & ";uid=<aaad>;pwd=<3rokswick_yuginform>;database=otpravka")

        Dim da As New SqlDataAdapter _
         ("Select * From priem", con)
        Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New DataSet()
        '  MsgBox("Начинаем запись")
        Good = False
        Try
            da.MissingSchemaAction = MissingSchemaAction.AddWithKey

            Dim fs As New FileStream _
             (My.Application.Info.DirectoryPath & "\Tmp\" & filevloz, FileMode.OpenOrCreate, _
              FileAccess.Read)
            Dim MyData(fs.Length) As Byte
            'Dim MYDATA As String
            fs.Read(MyData, 0, fs.Length)
            Dim QQ As String
            QQ = System.Text.Encoding.Default.GetString(MyData)
            '   MsgBox(QQ)
            'fs.Read(MYDATA)
            fs.Close()
            ' MsgBox(MyData)
            con.Open()
            da.Fill(ds, "priem")
            Dim myRow As DataRow
            myRow = ds.Tables("priem").NewRow()
            myRow("datepriem") = zzz
            myRow("tip") = tip
            myRow("email") = theme
            myRow("file") = theme
            myRow("atcname") = filevloz
            myRow("atcfile") = QQ
            ds.Tables("priem").Rows.Add(myRow)
            da.Update(ds, "priem")

            fs = Nothing
            MyCB = Nothing
            ds = Nothing
            da = Nothing

            con.Close()
            con = Nothing
            Good = True
            '  MsgBox("Image saved to database")
            Exit Sub
        Catch ex As Exception
            MsgBox(ex.ToString)
            Exit Sub
        End Try
    End Sub
    Public Function FolderExists(ByVal Katalog As String) As Boolean
        Dim per As String
        per = Dir(Katalog, FileAttribute.Directory)
        If per <> "" Then
            FolderExists = True
        Else
            FolderExists = False
        End If
    End Function
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim omle As OSPOP3_Plus.MessageListEntry
        Dim i As Integer
        Dim m As OSPOP3_Plus.Message
        Dim zzz As String
        Dim pppoe As String
        Dim mybody As String
        i = 1
        oSession.UseSSL = True
        oSession.OpenPOP3(txtServer.Text, Convert.ToInt32(txtPort.Text), txtLogin.Text, txtPassword.Text)
        For Each omle In oSession.MessageList
            m = oSession.GetMessageHeaders(i)
            If m.Subject = "IP" Then
                zzz = m.DateSent

                m = oSession.GetMessage(i, False)
                mybody = m.Body
                ' MsgBox(mybody)
                pppoe = "insert into priem (email, [file],tip,datepriem) values ('" & m.Sender.Address & "','" & mybody & "',1,'" & zzz & "')"
                m = oSession.GetMessage(i, True)
                IsServer(pppoe, "192.168.100.21")
            End If
            i = i + 1
        Next
        oSession.ClosePOP3()
        MsgBox("Сделано!!!")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim omle As OSPOP3_Plus.MessageListEntry
            Dim i As Integer
            Dim m As OSPOP3_Plus.Message
            Dim good As Boolean
            Dim zzz As String
            Dim filevloz As String
            Dim tip As Integer
            Dim Myserver As String
            i = 1
            oSession.UseSSL = True
            Myserver = TxtSrv2.Text
            oSession.OpenPOP3(txtServer.Text, Convert.ToInt32(txtPort.Text), txtLogin.Text, txtPassword.Text)
            For Each omle In oSession.MessageList
                m = oSession.GetMessageHeaders(i)

                If UCase(m.Subject) = "MONBASE" Or UCase(m.Subject) = "MONBASEPFR" Or UCase(m.Subject) = "DAYDAY" Or UCase(m.Subject) = "DAYREG" Or UCase(m.Subject) = "DAYDAYPERSONAL" Then

                    zzz = m.DateSent
                    Select Case UCase(m.Subject)
                        Case "ALLBASE"
                            tip = 1
                        Case "DOBBASE"
                            tip = 2
                        Case "MONBASE"
                            tip = 3
                        Case "MONBASEPFR"
                            tip = 4
                        Case "DAYDAY"
                            tip = 11
                        Case "DAYREG"
                            tip = 111
                        Case "DAYDAYPERSONAL"
                            tip = 1111
                    End Select
                    m = oSession.GetMessage(i, False)

                    Dim a As OSPOP3_Plus.Attachment
                    For Each a In m.Attachments

                       
                        If FolderExists(My.Application.Info.DirectoryPath & "\Tmp") Then
                        Else
                            IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Tmp")
                        End If
                        If FolderExists(My.Application.Info.DirectoryPath & "\Tmp2") Then
                        Else
                            IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Tmp2")
                        End If

                        Dim fileName As String = ""
                        Dim attachmentCounter As Integer = 1
                        If a.AttachmentName <> "" Then
                            fileName = a.AttachmentName.Replace("""", "") 'attachment name may contain quotes!
                        Else
                            fileName = "attachment_" + attachmentCounter.ToString() 'file name can't be blank
                            If a.ContentType = "message/rfc822" Then
                                fileName = fileName + ".eml"
                            End If

                        End If

                        a.Save(My.Application.Info.DirectoryPath & "\Tmp\" & fileName)
                        '  MsgBox(My.Application.Info.DirectoryPath)

                        filevloz = fileName
                        'pppoe = "insert into priem (email, [file],tip,datepriem,atcname,atcfile) values ('" & m.Sender.Address & "','" & m.Sender.Address & "'," & tip & ",'" & zzz & "','" & filevloz & "',)"

                        'IsServer(pppoe, "192.168.100.205")
                        ' MsgBox(fileName)


                        Call sendtopriem(m.Sender.Address, filevloz, tip, zzz, Myserver, good)
                        'Exit For
                        
                    Next
                    If good = True Then
                        ' MsgBox("recorded")
                        m = oSession.GetMessage(i, True)
                        ' MsgBox("OSPPOP DELETED")
                        'On Error Resume Next
                        Kill(My.Application.Info.DirectoryPath & "\Tmp\" & filevloz)


                    End If
                End If
                i = i + 1
            Next
            oSession.ClosePOP3()
            MsgBox("Сделано!!!")
        Catch ex As Exception
            MsgBox(ex.ToString)

        End Try
    End Sub

    Private Sub txtLogin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLogin.TextChanged

    End Sub
End Class