frmcheckmail.frm

vb发送文件,检查邮件,串口操作,查看文件等关于socket的源代码!

VERSION 5.00
Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"
Begin VB.Form FrmCheckMail 
   Caption         =   "检查信箱中是否有信件"
   ClientHeight    =   2115
   ClientLeft      =   1815
   ClientTop       =   2505
   ClientWidth     =   5715
   LinkTopic       =   "Form1"
   ScaleHeight     =   2115
   ScaleWidth      =   5715
   Begin VB.CommandButton btnCheckMail 
      Caption         =   "&C 检查Email"
      Height          =   465
      Left            =   3300
      TabIndex        =   0
      Top             =   315
      Width           =   1515
   End
   Begin MSMAPI.MAPIMessages MAPIMsg 
      Left            =   1200
      Top             =   405
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      AddressEditFieldCount=   1
      AddressModifiable=   0   'False
      AddressResolveUI=   0   'False
      FetchSorted     =   0   'False
      FetchUnreadOnly =   0   'False
   End
   Begin MSMAPI.MAPISession mpsSession 
      Left            =   450
      Top             =   405
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DownloadMail    =   -1  'True
      LogonUI         =   -1  'True
      NewSession      =   0   'False
   End
End
Attribute VB_Name = "FrmCheckMail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub btnCheckMail_Click()
    
    With Me.mpsSession
        .UserName = "ABC"
        .Password = "123"
        .LogonUI = False
        .DownLoadMail = True
        .SignOn
    End With
    
    With Me.MAPIMsg
        .SessionID = Me.mpsSession.SessionID
        .Fetch
        If .MsgCount > 0 Then
            Me.Caption = "信箱中有" & .MsgCount & "封邮件"
        Else
            Me.Caption = "没有邮件"
        End If
    End With
    
    Me.mpsSession.SignOff
End Sub