frmemail.frm

企业人事管理系统,有考勤,人员管理等功能,值得研究,也是我付费弄来的,绝对超值

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form frmEMAIL 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "发邮件"
   ClientHeight    =   6705
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8190
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   6705
   ScaleWidth      =   8190
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   4680
      Top             =   2040
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.TextBox txtStatus 
      Height          =   270
      Left            =   0
      TabIndex        =   14
      Top             =   6360
      Width           =   8055
   End
   Begin VB.Frame Frame2 
      Caption         =   "邮件正文"
      Height          =   3975
      Left            =   0
      TabIndex        =   2
      Top             =   2280
      Width           =   8055
      Begin VB.TextBox txtSubject 
         Height          =   270
         Left            =   2760
         MaxLength       =   50
         TabIndex        =   11
         Text            =   "你好"
         Top             =   240
         Width           =   2895
      End
      Begin VB.TextBox txtMessage 
         Height          =   3015
         Left            =   120
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   10
         Top             =   720
         Width           =   7695
      End
      Begin VB.Label Label5 
         Caption         =   "标题"
         Height          =   255
         Left            =   2160
         TabIndex        =   12
         Top             =   240
         Width           =   375
      End
   End
   Begin VB.Frame Frame1 
      Height          =   2175
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   8055
      Begin VB.CommandButton cmdFrom 
         Caption         =   "..."
         Height          =   255
         Left            =   4200
         TabIndex        =   18
         Top             =   1200
         Width           =   495
      End
      Begin VB.CommandButton cmdAddress 
         Caption         =   "..."
         Height          =   255
         Left            =   4200
         TabIndex        =   13
         Top             =   240
         Width           =   495
      End
      Begin VB.TextBox txtFrom 
         Height          =   270
         Left            =   1320
         MaxLength       =   50
         TabIndex        =   7
         Top             =   1200
         Width           =   2895
      End
      Begin VB.TextBox txtPwd 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1320
         MaxLength       =   50
         PasswordChar    =   "*"
         TabIndex        =   0
         Top             =   1680
         Width           =   2895
      End
      Begin VB.TextBox txtHost 
         Height          =   270
         Left            =   1320
         MaxLength       =   50
         TabIndex        =   6
         Top             =   720
         Width           =   2895
      End
      Begin VB.TextBox txtTo 
         Height          =   270
         Left            =   1320
         MaxLength       =   50
         TabIndex        =   5
         Top             =   240
         Width           =   2895
      End
      Begin MSForms.CommandButton cmdGetSetting 
         Height          =   495
         Left            =   5280
         TabIndex        =   20
         Top             =   840
         Width           =   1215
         Caption         =   "读取设置"
         Size            =   "2143;873"
         FontName        =   "宋体"
         FontHeight      =   180
         FontCharSet     =   134
         FontPitchAndFamily=   34
         ParagraphAlign  =   3
      End
      Begin MSForms.CommandButton cmdSaveSetting 
         Height          =   495
         Left            =   5280
         TabIndex        =   19
         Top             =   240
         Width           =   1215
         Caption         =   "保存设置"
         Size            =   "2143;873"
         FontName        =   "宋体"
         FontHeight      =   180
         FontCharSet     =   134
         FontPitchAndFamily=   34
         ParagraphAlign  =   3
      End
      Begin MSForms.CommandButton cmdExit 
         Height          =   495
         Left            =   6600
         TabIndex        =   17
         Top             =   240
         Width           =   1215
         Caption         =   "退出"
         Size            =   "2143;873"
         FontName        =   "宋体"
         FontHeight      =   180
         FontCharSet     =   134
         FontPitchAndFamily=   34
         ParagraphAlign  =   3
      End
      Begin MSForms.CommandButton cmdNew 
         Height          =   495
         Left            =   6600
         TabIndex        =   16
         Top             =   840
         Width           =   1215
         Caption         =   "新邮件"
         Size            =   "2143;873"
         FontName        =   "宋体"
         FontHeight      =   180
         FontCharSet     =   134
         FontPitchAndFamily=   34
         ParagraphAlign  =   3
      End
      Begin MSForms.CommandButton cmdSend 
         Height          =   495
         Left            =   5280
         TabIndex        =   15
         Top             =   1440
         Width           =   2535
         Caption         =   "发邮件"
         Size            =   "4471;873"
         FontName        =   "宋体"
         FontHeight      =   180
         FontCharSet     =   134
         FontPitchAndFamily=   34
         ParagraphAlign  =   3
      End
      Begin VB.Label Label4 
         Caption         =   "密  码"
         Height          =   375
         Left            =   480
         TabIndex        =   9
         Top             =   1680
         Width           =   735
      End
      Begin VB.Label Label3 
         Caption         =   "服务器"
         Height          =   375
         Left            =   480
         TabIndex        =   8
         Top             =   720
         Width           =   615
      End
      Begin VB.Label Label2 
         Caption         =   "发信人"
         Height          =   255
         Left            =   480
         TabIndex        =   4
         Top             =   1200
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   "收信人"
         Height          =   255
         Left            =   480
         TabIndex        =   3
         Top             =   240
         Width           =   615
      End
   End
End
Attribute VB_Name = "frmEMAIL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Enum SMTP_State
    MAIL_CONNECT
    MAIL_HELO
    MAIL_FROM
    MAIL_RCPTTO
    MAIL_DATA
    MAIL_DOT
    MAIL_QUIT
    MAIL_USER
    MAIL_PASS
    MAIL_LOGIN
End Enum

Private m_State As SMTP_State



Private Sub cmdAddress_Click()
  frmAddress.blnTo = True