form1.frm

这里有很多很实用的VB编程案例,方便大家学习VB.

VERSION 5.00
Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"
Begin VB.Form Form1 
   Caption         =   "邮件接收"
   ClientHeight    =   5385
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7095
   LinkTopic       =   "Form1"
   ScaleHeight     =   5385
   ScaleWidth      =   7095
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmddelete 
      Caption         =   "删除"
      Height          =   495
      Left            =   2760
      TabIndex        =   9
      Top             =   4680
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   1215
      Left            =   480
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   4
      Text            =   "Form1.frx":0000
      Top             =   2640
      Width           =   5655
   End
   Begin VB.CommandButton cmdNext 
      Caption         =   "后一封信"
      Height          =   495
      Left            =   1440
      TabIndex        =   1
      Top             =   4680
      Width           =   1215
   End
   Begin VB.CommandButton cmdPrevious 
      Caption         =   "前一封信"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   4680
      Width           =   1215
   End
   Begin MSMAPI.MAPIMessages MAPIMessages1 
      Left            =   0
      Top             =   720
      _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            =   0
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DownloadMail    =   -1  'True
      LogonUI         =   -1  'True
      NewSession      =   0   'False
   End
   Begin VB.Label Label2 
      Height          =   495
      Left            =   480
      TabIndex        =   8
      Top             =   3960
      Width           =   1935
   End
   Begin VB.Label Label1 
      Height          =   375
      Left            =   3960
      TabIndex        =   7
      Top             =   2160
      Width           =   2055
   End
   Begin VB.Label Label4 
      Height          =   495
      Left            =   600
      TabIndex        =   6
      Top             =   1440
      Width           =   4455
   End
   Begin VB.Label Label3 
      Height          =   495
      Left            =   600
      TabIndex        =   5
      Top             =   720
      Width           =   2535
   End
   Begin VB.Label Label5 
      Height          =   495
      Left            =   600
      TabIndex        =   3
      Top             =   2160
      Width           =   2415
   End
   Begin VB.Label Label6 
      Height          =   375
      Left            =   720
      TabIndex        =   2
      Top             =   120
      Width           =   3615
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
Public Sub FetchNewMail()
    MAPIMessages1.FetchUnreadOnly = False   '如果设置为True，则只下载新邮件
    MAPIMessages1.Fetch  '由收件箱中选择的消息创建一消息集合。
End Sub

Public Sub DisplayMessage()
    Label6.Caption = "第 " & LTrim(Str(MAPIMessages1.MsgIndex + 1)) & " 封邮件，总计 " & LTrim(Str(MAPIMessages1.MsgCount)) & " 封邮件"
    Label5.Caption = MAPIMessages1.MsgDateReceived  '返回收到的当前索引消息的数据。该属性在设计时不可用，该属性是只读的。
    Text1.Text = MAPIMessages1.MsgNoteText  '指定消息的文本部分。该属性在设计时不可用。它是只读的，除非 MsgIndex 被置为 1。
    Label3.Caption = "发件人为：" + MAPIMessages1.MsgOrigDisplayName  '返回当前索引消息的原始发件人的名字。
    Label4.Caption = "主题为：" + MAPIMessages1.MsgSubject  '如在消息头部所显示的，为当前索引的消息指定主题行。
    If MAPIMessages1.MsgRead = True Then
        Label1.Caption = "已经阅读过"
    Else
        Label1.Caption = "新邮件"
    End If
    Label2.Caption = "附件个数为：" + CStr(MAPIMessages1.AttachmentCount)   '返回和当前索引的消息相关联的附件的总数。
    
End Sub

Private Sub Form_Load()
    MAPISession1.SignOn  '登录用户到由 UserName 和 Password 属性指定的帐户中，并且提供会话句柄给当前的消息系统。
    MAPIMessages1.SessionID = MAPISession1.SessionID  '返回当前的消息会话句柄。
    FetchNewMail
    DisplayMessage
End Sub

Private Sub cmddelete_Click()
    MAPIMessages1.Delete  '删除邮件
End Sub



Private Sub cmdPrevious_Click()
    If MAPIMessages1.MsgIndex > 0 Then
        MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1  '指定当前索引消息的索引数。
        DisplayMessage
    Else
        Beep
    End If
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