form1.frm

本文件包含200个visual baisc实例

VERSION 5.00
Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"
Begin VB.Form Form1 
   Caption         =   "收取未读和已读邮件"
   ClientHeight    =   2745
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4275
   LinkTopic       =   "Form1"
   ScaleHeight     =   2745
   ScaleWidth      =   4275
   StartUpPosition =   1  '所有者中心
   Begin VB.CheckBox Check1 
      Caption         =   "包含已读信件"
      Height          =   345
      Left            =   180
      TabIndex        =   11
      Top             =   2430
      Width           =   2385
   End
   Begin VB.ListBox List1 
      Height          =   420
      ItemData        =   "form1.frx":0000
      Left            =   585
      List            =   "form1.frx":000A
      TabIndex        =   10
      Top             =   225
      Width           =   3585
   End
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   285
      Left            =   2820
      TabIndex        =   8
      Top             =   2475
      Width           =   1335
   End
   Begin VB.TextBox text1 
      Height          =   270
      Index           =   0
      Left            =   585
      TabIndex        =   6
      Text            =   "问候"
      Top             =   690
      Width           =   3585
   End
   Begin MSMAPI.MAPIMessages MAPIMessages1 
      Left            =   -135
      Top             =   75
      _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            =   -255
      Top             =   -135
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DownloadMail    =   -1  'True
      LogonUI         =   -1  'True
      NewSession      =   0   'False
   End
   Begin VB.TextBox text1 
      Height          =   825
      Index           =   2
      Left            =   585
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   5
      Text            =   "form1.frx":001C
      Top             =   1605
      Width           =   3585
   End
   Begin VB.TextBox text1 
      Height          =   270
      Index           =   1
      Left            =   585
      TabIndex        =   4
      Text            =   "[e-mail]"
      Top             =   975
      Width           =   3585
   End
   Begin VB.TextBox text1 
      Height          =   270
      Index           =   3
      Left            =   2145
      TabIndex        =   3
      Text            =   "2002-1-2"
      Top             =   1290
      Width           =   2025
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "总计 0 封邮件"
      Height          =   255
      Index           =   3
      Left            =   1470
      TabIndex        =   9
      Top             =   15
      Width           =   2520
   End
   Begin VB.Label Label1 
      Caption         =   "主题："
      Height          =   255
      Index           =   0
      Left            =   60
      TabIndex        =   7
      Top             =   735
      Width           =   615
   End
   Begin VB.Label Label3 
      Caption         =   "内容："
      Height          =   255
      Left            =   45
      TabIndex        =   2
      Top             =   1350
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "发件人："
      Height          =   255
      Index           =   1
      Left            =   30
      TabIndex        =   1
      Top             =   1020
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "日期："
      Height          =   255
      Index           =   2
      Left            =   1635
      TabIndex        =   0
      Top             =   1305
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "邮件列表"
      Height          =   285
      Index           =   4
      Left            =   660
      TabIndex        =   12
      Top             =   15
      Width           =   2205
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  On Error Resume Next
  MAPISession1.SignOn
  MAPIMessages1.SessionID = MAPISession1.SessionID
  For i = 0 To MAPIMessages1.MsgCount - 1   '添加所有邮件到列表
      MAPIMessages1.MsgIndex = i
      List1.AddItem MAPIMessages1.MsgSubject     '添加邮件
  Next i
  List1.ListIndex = 0
  MAPIMessages1.MsgIndex = 0
  text1(0).Text = MAPIMessages1.MsgSubject     '显示邮件主题
  text1(1).Text = MAPIMessages1.MsgOrigDisplayName     '显示发件人姓名
  text1(2).Text = MAPIMessages1.MsgNoteText     '显示邮件内容
  text1(4).Text = MAPIMessages1.MsgDateReceived    '显示邮件日期
  Label1(3).Caption = "信箱共有未读邮件：" & MAPIMessages1.MsgCount & "  封 。"
End Sub
Private Sub Check1_Click()  '设置是否包括已读邮件
  If MAPIMessages1.FetchUnreadOnly = True Then
     MAPIMessages1.FetchUnreadOnly = False   '包括已读邮件
     MAPIMessages1.Fetch
     Label1(3).Caption = "信箱共有邮件：" & MAPIMessages1.MsgCount & "  封 。   "
     Else
     MAPIMessages1.FetchUnreadOnly = True     '不包括已读邮件
     MAPIMessages1.Fetch
     Label1(3).Caption = "信箱共有未读邮件：" & MAPIMessages1.MsgCount & "   封 。"
  End If
  For i = 0 To MAPIMessages1.MsgCount - 1
      MAPIMessages1.MsgIndex = i
      List1.AddItem MAPIMessages1.MsgSubject
  Next i
End Sub
Private Sub List1_Click()
  MAPIMessages1.MsgIndex = List1.ListIndex
  text1(0).Text = MAPIMessages1.MsgSubject   '显示邮件主题
  text1(1).Text = MAPIMessages1.MsgOrigDisplayName  '显示发件人姓名
  text1(2).Text = MAPIMessages1.MsgNoteText   '显示邮件内容
  text1(4).Text = MAPIMessages1.MsgDateReceived   '显示邮件日期
End Sub
Private Sub Command1_Click()
  End
End Sub