www.pudn.com > 20063518740652.zip > STATUS32.FRM
VERSION 4.00
Begin VB.Form STATUS
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Status"
ClientHeight = 6930
ClientLeft = 3180
ClientTop = 1125
ClientWidth = 6090
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 7620
Left = 3120
LinkTopic = "Form1"
ScaleHeight = 6930
ScaleWidth = 6090
Top = 495
Width = 6210
Begin VB.TextBox ePass
Appearance = 0 'Flat
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1560
PasswordChar = "*"
TabIndex = 2
Top = 960
Width = 3495
End
Begin VB.TextBox eUser
Appearance = 0 'Flat
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1560
TabIndex = 3
Top = 600
Width = 3495
End
Begin VB.TextBox eResult
Appearance = 0 'Flat
Height = 495
Left = 120
MultiLine = -1 'True
TabIndex = 7
Top = 6240
Visible = 0 'False
Width = 5895
End
Begin VB.TextBox eMessage
Appearance = 0 'Flat
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4455
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 5
Top = 1680
Width = 5895
End
Begin VB.TextBox eServer
Appearance = 0 'Flat
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1560
TabIndex = 0
Top = 240
Width = 3495
End
Begin VB.Label lPass
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Password"
ForeColor = &H80000008&
Height = 375
Left = 120
TabIndex = 4
Top = 960
Width = 1215
End
Begin VB.Label lUser
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "User"
ForeColor = &H80000008&
Height = 255
Left = 240
TabIndex = 8
Top = 600
Width = 1095
End
Begin VB.Label lMessage
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Status"
ForeColor = &H80000008&
Height = 255
Left = 2400
TabIndex = 6
Top = 1320
Width = 975
End
Begin VB.Label lServer
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "POP3 Server"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 1
Top = 240
Width = 1215
End
Begin VB.Menu mCheckMail
Caption = "CheckMail"
End
Begin VB.Menu mExit
Caption = "Exit"
End
End
Attribute VB_Name = "STATUS"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub bOK_Click()
eResult.Visible = False
eResult.Text = ""
End Sub
Private Sub Form_Load()
Dim Version As Integer
Dim S1, S2, S3 As String
eResult.Visible = True
Version = seeStatistics(SEE_GET_VERSION)
S1 = "SMTP/POP3 Email Engine Version "
S2 = Hex$(Version)
S3 = Mid$(S2, 1, 1) + "." + Mid$(S2, 2, 1) + "." + Mid$(S2, 3, 1)
eResult.Text = S1 + S3 + ". Ready to connect."
End Sub
Private Sub mCheckMail_Click()
Dim I As Integer
Dim N As Integer
Dim NbrMsg As Long
Dim Code As Long
Dim Buffer As String * 1024
Dim Temp As String * 256
Dim NL As String
NL = Chr$(13) + Chr$(10)
eMessage.Text = ""
eResult.Text = ""
'check that POP3 server name has been specifed
If Len(eServer.Text) = 0 Then
eResult.Text = Time$ + " Missing POP3 server name."
Exit Sub
End If
'check USER name
If Len(eUser.Text) = 0 Then
eResult.Text = Time$ + " Missing User name."
Exit Sub
End If
'check Password
If Len(ePass.Text) = 0 Then
eResult.Text = Time$ + " Missing Password."
Exit Sub
End If
' set up log file
Code = seeStringParam(SEE_LOG_FILE, "STATUS.LOG")
'connect to server
mCheckMail.Enabled = False
eResult.Text = Time$ + " Connecting to POP3 server " + eServer.Text
Code = seePop3Connect(eServer.Text, eUser.Text, ePass.Text)
If Code < 0 Then
'error attempting to connect
Call ShowError(STATUS, Code, "seePop3Connect:")
mCheckMail.Enabled = True
Code = seeClose()
Exit Sub
End If
' get server IP address
Code = seeDebug(SEE_GET_SERVER_IP, Temp, 40)
eResult.Text = Time$ & " Connected to IP " & Left$(Temp, Code)
' get # messages waiting
NbrMsg = seeGetEmailCount()
If NbrMsg < 0 Then
Call ShowError(STATUS, NbrMsg, "seeGetEmailCount:")
mCheckMail.Enabled = True
Code = seeClose()
Exit Sub
End If
eMessage.Text = Str$(NbrMsg) & " messages waiting." & NL
If NbrMsg = 0 Then
eResult.Text = Time$ & " You have no email on the server."
Else
eResult.Text = Time$ & " " & Str$(NbrMsg) & " messages waiting."
' read message headers
For I = 1 To NbrMsg
' read message I
eMessage.Text = eMessage.Text & "---[ Message " + Str(I) + " ]------------------------------------" & NL
Code = seeGetEmailLines(I, 0, Buffer, 1024)
If Code > 0 Then
' display "DATE: " line
N = seeExtractText(Buffer, "Date: ", Temp, 255)
If N > 0 Then
eMessage.Text = eMessage.Text & Temp & NL
End If
' display "FROM: " line
N = seeExtractText(Buffer, "From: ", Temp, 255)
If N > 0 Then
eMessage.Text = eMessage.Text & Temp & NL
End If
' display "SUBJECT: " line
N = seeExtractText(Buffer, "Subject: ", Temp, 255)
If N > 0 Then
eMessage.Text = eMessage.Text & Temp & NL
End If
End If
Next I
End If
Code = seeClose()
eResult.Text = Time$ + " Done."
mCheckMail.Enabled = True
End Sub
Private Sub mExit_Click()
Dim Code As Long
Code = seeClose()
End
End Sub