Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/esmail01/form1.frm

Visual Basic Form | 1996-01-08 | 7.6 KB | 273 lines

VERSION 4.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   5295
   ClientLeft      =   510
   ClientTop       =   1740
   ClientWidth     =   11040
   Height          =   5760
   Left            =   450
   LinkTopic       =   "Form1"
   ScaleHeight     =   5295
   ScaleWidth      =   11040
   Top             =   1335
   Width           =   11160
   Begin VB.CommandButton Command10
      Caption         =   "Enumerate"
      Height          =   375
      Left            =   3120
      TabIndex        =   17
      Top             =   4680
      Width           =   1575
   End
   Begin VB.CommandButton Command9
      Caption         =   "Reset"
      Height          =   375
      Left            =   4800
      TabIndex        =   16
      Top             =   4200
      Width           =   1575
   End
   Begin VB.CommandButton Command8
      Caption         =   "Delete"
      Height          =   375
      Left            =   3120
      TabIndex        =   14
      Top             =   4200
      Width           =   1575
   End
   Begin VB.TextBox msgno
      Height          =   285
      Left            =   5880
      TabIndex        =   13
      Text            =   "1"
      Top             =   3720
      Width           =   495
   End
   Begin VB.TextBox Text3
      Height          =   4575
      Left            =   6480
      MultiLine       =   -1  'True
      TabIndex        =   9
      Text            =   "Form1.frx":0000
      Top             =   240
      Width           =   4455
   End
   Begin VB.CommandButton Command7
      Caption         =   "Getmail"
      Height          =   375
      Left            =   3120
      TabIndex        =   8
      Top             =   3720
      Width           =   1575
   End
   Begin VB.CommandButton Command6
      Caption         =   "List"
      Height          =   375
      Left            =   4800
      TabIndex        =   7
      Top             =   3240
      Width           =   1575
   End
   Begin VB.CommandButton Command5
      Caption         =   "Status"
      Height          =   375
      Left            =   3120
      TabIndex        =   6
      Top             =   3240
      Width           =   1575
   End
   Begin VB.TextBox Text2
      Height          =   285
      Left            =   360
      TabIndex        =   5
      Text            =   "Text2"
      Top             =   4320
      Width           =   1935
   End
   Begin VB.TextBox Text1
      Height          =   285
      Left            =   360
      TabIndex        =   4
      Text            =   "Text1"
      Top             =   3720
      Width           =   1935
   End
   Begin VB.CommandButton Command4
      Caption         =   "LogOff"
      Height          =   375
      Left            =   4800
      TabIndex        =   3
      Top             =   2760
      Width           =   1575
   End
   Begin VB.CommandButton Command3
      Caption         =   "LogOn"
      Height          =   375
      Left            =   3120
      TabIndex        =   2
      Top             =   2760
      Width           =   1575
   End
   Begin VB.CommandButton Command2
      Caption         =   "Add Attachment..."
      Height          =   495
      Left            =   2880
      TabIndex        =   1
      Top             =   1200
      Width           =   2775
   End
   Begin VB.CommandButton Command1
      Caption         =   "SendMail"
      Height          =   375
      Left            =   3120
      TabIndex        =   0
      Top             =   480
      Width           =   2175
   End
   Begin VB.Label Label3
      Alignment       =   1  'Right Justify
      Caption         =   "Message No:"
      Height          =   255
      Left            =   4800
      TabIndex        =   15
      Top             =   3720
      Width           =   975
   End
   Begin VB.Line Line1
      X1              =   6360
      X2              =   120
      Y1              =   2040
      Y2              =   2040
   End
   Begin VB.Label Label2
      Caption         =   "Total Size"
      Height          =   255
      Left            =   360
      TabIndex        =   12
      Top             =   4080
      Width           =   1935
   End
   Begin VB.Label Label1
      Caption         =   "# of Messages"
      Height          =   255
      Left            =   360
      TabIndex        =   11
      Top             =   3480
      Width           =   1935
   End
   Begin ComctlLib.ProgressBar ProgressBar1
      Height          =   255
      Left            =   3240
      TabIndex        =   10
      Top             =   2400
      Width           =   2895
      _Version        =   65536
      _ExtentX        =   5106
      _ExtentY        =   450
      _StockProps     =   192
      Appearance      =   1
   End
   Begin EsmailLibCtl.EsPop EsPop1
      Left            =   480
      Top             =   2760
      _version        =   65536
      _extentx        =   2566
      _extenty        =   1085
      _stockprops     =   0
   End
   Begin EsmailLibCtl.EsSmtp EsSmtp1
      Left            =   360
      Top             =   360
      _version        =   65536
      _extentx        =   3201
      _extenty        =   873
      _stockprops     =   0
   End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
    EsSmtp1.DestinationAddress = "root"
    EsSmtp1.Domain = "eurosource.se"
    EsSmtp1.MailData = "Detta
r ett testmeddelande som inneh
ller b
 och en massa andra tecken. Framf
rallt s
r det l
ngre
n den stipulerade l
ngd som g
ller f
r meddelanden. Hoppas att detta skall fungera som det
nkt och inte s
tta en massa k
ppar i hjulet f
r den process som detta
    EsSmtp1.SmtpServerIP = "194.17.255.4"
    EsSmtp1.SourceAddress = "oxygen"
    EsSmtp1.SourceMailer = "ESSMTP test-mailer"
    EsSmtp1.SourceName = "
ke Hedman"
    EsSmtp1.Subject = "Test av SMTP mailer with
    If (EsSmtp1.SendMail = 1) Then
        MsgBox "OK"
    Else
        MsgBox "Failed " + Str$(EsSmtp1.ErrorNo)
    End If
End Sub
Private Sub Command10_Click()
    EsPop1.EnumContent
End Sub
Private Sub Command2_Click()
    Dim file As String
    file = InputBox("Path to file:")
    EsSmtp1.AddAttachment file, 0
End Sub
Private Sub Command3_Click()
    EsPop1.POPServerIP = "194.17.255.4"
    EsPop1.UserName = "test"
    EsPop1.Password = "test"
    If (EsPop1.LogOn) Then
        Text1.Text = Str$(EsPop1.NumOfMsg)
        Text2.Text = Str$(EsPop1.TotMsgSize)
    Else
        MsgBox "Fail!!!"
    End If
End Sub
Private Sub Command4_Click()
    If (Not EsPop1.LogOff) Then
        MsgBox "Fail!!!"
    End If
End Sub
Private Sub Command5_Click()
    MsgBox "|" + EsPop1.GetMailStatus + "|"
End Sub
Private Sub Command6_Click()
    MsgBox EsPop1.GetMailList
End Sub
Private Sub Command7_Click()
    If (Not EsPop1.GetMail(Val(msgno.Text))) Then
        MsgBox "Fail...."
        Text3.Text = "Failure....."
    Else
        Text3.Text = EsPop1.Message
    End If
End Sub
Private Sub Command8_Click()
    If (Not EsPop1.DeleteMail(Val(msgno))) Then
        MsgBox "Fail...."
    Else
        Text1.Text = Str$(EsPop1.NumOfMsg)
        Text2.Text = Str$(EsPop1.TotMsgSize)
    End If
End Sub
Private Sub Command9_Click()
    EsPop1.Reset
End Sub
Private Sub EsPop1_Status(ByVal progress As Integer)
    ProgressBar1.Value = progress
End Sub