如何编写向邮件监控的程序呢！一有邮件会提醒的那种！

[chaoy2k]

如何编写向邮件监控的程序呢！一有邮件会提醒的那种！

[ckc]

定时连上邮件服务器检查，有信就报警

[zzczhi]

VERSION 5.00
Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"
Begin VB.Form Form1
Caption = "收取邮件"
ClientHeight = 5565
ClientLeft = 60
ClientTop = 345
ClientWidth = 7050
LinkTopic = "Form1"
ScaleHeight = 5565
ScaleWidth = 7050
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton CmdClose
Caption = "关 闭"
Height = 375
Left = 5040
TabIndex = 10
Top = 1920
Width = 1575
End
Begin VB.CommandButton CmdPre
Caption = "上一封"
Height = 375
Left = 5040
TabIndex = 9
Top = 960
Width = 1575
End
Begin VB.TextBox TxtSubject
Height = 375
Left = 1800
TabIndex = 7
Top = 900
Width = 2295
End
Begin MSMAPI.MAPIMessages MAPIMessages1
Left = 3000
Top = 1920
_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 = 2160
Top = 1920
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DownloadMail = -1 'True
LogonUI = -1 'True
NewSession = 0 'False
End
Begin VB.CommandButton CmdNext
Caption = "下一封"
Height = 375
Left = 5040
TabIndex = 6
Top = 1440
Width = 1575
End
Begin VB.TextBox TxtMessage
Height = 2295
Left = 600
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 5
Top = 2640
Width = 5895
End
Begin VB.TextBox TxtSender
Height = 375
Left = 1800
TabIndex = 4
Top = 1440
Width = 2295
End
Begin VB.TextBox TxtDate
Height = 375
Left = 1800
TabIndex = 3
Top = 300
Width = 1695
End
Begin VB.Label LabCount
Caption = "第 0 封邮件，总计 0 封邮件"
Height = 255
Left = 4080
TabIndex = 11
Top = 360
Width = 2655
End
Begin VB.Label Label5
Caption = "主题："
Height = 255
Left = 720
TabIndex = 8
Top = 960
Width = 615
End
Begin VB.Label Label4
Caption = "内容："
Height = 255
Left = 720
TabIndex = 2
Top = 2160
Width = 855
End
Begin VB.Label Label2
Caption = "发件人："
Height = 255
Left = 720
TabIndex = 1
Top = 1500
Width = 855
End
Begin VB.Label Label1
Caption = "日期："
Height = 255
Left = 720
TabIndex = 0
Top = 360
Width = 855
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
MAPIMessages1.Fetch
End Sub

'显示邮件
Public Sub DisplayMessage()
'显示邮件数
LabCount.Caption = "第 " & _
LTrim(Str(MAPIMessages1.MsgIndex + 1)) & " 封邮件，总计 " & _
LTrim(Str(MAPIMessages1.MsgCount)) & " 封邮件"
'显示邮件日期
TxtDate.Text = MAPIMessages1.MsgDateReceived
'显示邮件主题
TxtSubject.Text = MAPIMessages1.MsgSubject
'显示发件人
TxtSender.Text = MAPIMessages1.MsgOrigDisplayName
'显示邮件内容
TxtMessage.Text = MAPIMessages1.MsgNoteText
End Sub

'下列代码加入Form1的Form_Load事件:
Private Sub Form_Load()
'建立会话
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
'读邮件
FetchNewMail
'显示邮件
DisplayMessage
End Sub

'将下列代码加入cmdPrevious的Click事件:
Private Sub cmdPre_Click()
If MAPIMessages1.MsgIndex > 0 Then
MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1
DisplayMessage
Else
Beep
End If
End Sub

'将下列代码加入cmdNext的Click事件:
Private Sub cmdNext_Click()
If MAPIMessages1.MsgIndex < MAPIMessages1.MsgCount - 1 Then
MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex + 1
DisplayMessage
Else
Beep
End If
End Sub

'将下列代码加入cmdClose的Click事件:
Private Sub cmdClose_Click()
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
'释放邮件会话
MAPISession1.SignOff
End Sub