receive.frm

我的曾经专科的毕业设计用SMTP协议

VERSION 5.00
Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"
Begin VB.Form receive 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "接收邮件"
   ClientHeight    =   7485
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5595
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   7485
   ScaleMode       =   0  'User
   ScaleWidth      =   4233.134
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdClose 
      Caption         =   "返回"
      Height          =   375
      Left            =   3840
      TabIndex        =   6
      Top             =   6840
      Width           =   1215
   End
   Begin VB.CommandButton cmdNext 
      Caption         =   "下一封"
      Height          =   375
      Left            =   2040
      TabIndex        =   5
      Top             =   6840
      Width           =   1335
   End
   Begin VB.CommandButton cmdPrevious 
      Caption         =   "上一封"
      Height          =   375
      Left            =   360
      TabIndex        =   4
      Top             =   6840
      Width           =   1215
   End
   Begin VB.Frame Frame2 
      Caption         =   "邮件内容"
      Height          =   3735
      Left            =   240
      TabIndex        =   1
      Top             =   2880
      Width           =   5055
      Begin VB.TextBox txtMsgNoteText 
         Height          =   3015
         Left            =   240
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   2
         Top             =   480
         Width           =   4575
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "邮件信息"
      Height          =   2565
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   5055
      Begin VB.Label Label6 
         Caption         =   "主题"
         Height          =   255
         Left            =   120
         TabIndex        =   12
         Top             =   1560
         Width           =   975
      End
      Begin VB.Label Label5 
         Caption         =   "发件人"
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "日期"
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   480
         Width           =   855
      End
      Begin VB.Label lblMsgSubject 
         BorderStyle     =   1  'Fixed Single
         Height          =   375
         Left            =   1320
         TabIndex        =   9
         Top             =   1440
         Width           =   3495
      End
      Begin VB.Label lblMsgOrigDisplayName 
         BorderStyle     =   1  'Fixed Single
         Height          =   375
         Left            =   1320
         TabIndex        =   8
         Top             =   840
         Width           =   3495
      End
      Begin VB.Label lblMsgDateReceived 
         BorderStyle     =   1  'Fixed Single
         Height          =   375
         Left            =   1320
         TabIndex        =   7
         Top             =   240
         Width           =   3495
      End
      Begin VB.Label lblMsgCount 
         BorderStyle     =   1  'Fixed Single
         Caption         =   "第 0 封邮件，总计 0 封邮件"
         Height          =   375
         Left            =   360
         TabIndex        =   3
         Top             =   2040
         Width           =   4455
      End
   End
   Begin MSMAPI.MAPIMessages MAPIMessages1 
      Left            =   5040
      Top             =   3240
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      AddressEditFieldCount=   1
      AddressModifiable=   0   'False
      AddressResolveUI=   0   'False
      FetchSorted     =   0   'False
      FetchUnreadOnly =   0   'False
   End
   Begin MSMAPI.MAPISession MAPISession1 
      Left            =   5160
      Top             =   3960
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DownloadMail    =   -1  'True
      LogonUI         =   -1  'True
      NewSession      =   0   'False
   End
End
Attribute VB_Name = "receive"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdNext_Click()
If MAPIMessages1.MsgIndex < MAPIMessages1.MsgCount - 1 Then
MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex + 1
DisplayMessage
Else
Beep
End If
End Sub
Private Sub cmdPrevious_Click()
If MAPIMessages1.MsgIndex > 0 Then
MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1
DisplayMessage
Else
Beep
End If
End Sub

Public Sub FetchNewMail()
MAPIMessages1.FetchUnreadOnly = True
MAPIMessages1.Fetch
End Sub
Public Sub DisplayMessage()
lblMsgCount.Caption = "第 " & _
LTrim(Str(MAPIMessages1.MsgIndex + 1)) & " 封邮件，总计 " & _
LTrim(Str(MAPIMessages1.MsgCount)) & " 封邮件"
lblMsgDateReceived.Caption = MAPIMessages1.MsgDateReceived
txtMsgNoteText.Text = MAPIMessages1.MsgNoteText
lblMsgOrigDisplayName.Caption = MAPIMessages1.MsgOrigDisplayName
lblMsgSubject.Caption = MAPIMessages1.MsgSubject
End Sub
Private Sub Form_Load()
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
FetchNewMail
DisplayMessage
End Sub
Private Sub Label2_Click()

End Sub