在VB、VFP应用系统中收发邮件

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

　　输入frmGetMail子窗体装入的程序代码:
　　Private Sub Form_Load()
　　Dim mailIndex, mailCounts As Integer
　　frmMail.MailSess.SignOn
　　frmMail.MailMess.SessionID = frmMail.MailSess.SessionID
　　frmMail.MailMess.FetchSorted = True
　　frmMail.MailMess.FetchUnreadOnly = True
　　frmMail.MailMess.Action = 1
　　mailCounts = frmMail.MailMess.MsgCount
　　If mailCounts = 0 Then
　　Text3.Text = "收件箱中没有邮件！"
　　frmGetMail.cmdPrevious.Enabled = False
　　frmGetMail.cmdNext.Enabled = False
　　Else
　　frmGetMail.MailMess.MsgIndex = 0
　　frmGetMail.Text1.Text = frmMail.MailMess.MsgOrigAddress
　　frmGetMail.Text2.Text = frmMail.MailMess.MsgSubject
　　frmGetMail.Text3.Text = frmMail.MailMess.MsgNoteText
　　End If
　　End Sub
　　输入frmGetMail子窗体“向前”按钮的程序代码:
　　Private Sub cmdPrevious_Click()
　　mailIndex = frmGetMail.MailMess.MsgIndex
　　frmGetMail.MailMess.MsgIndex = mailIndex - 1
　　frmGetMail.Text1.Text = frmMail.MailMess.MsgOrigAddress
　　frmGetMail.Text2.Text = frmMail.MailMess.MsgSubject
　　frmGetMail.Text3.Text = frmMail.MailMess.MsgNoteText
　　If mailIndex = 0 Then
　　frmGetMail.cmdPrevious.Enabled = False
　　End If
　　End Sub
　　输入frmGetMail子窗体“向后”按钮的程序代码:
　　Private Sub cmdNext_Click()
　　mailCounts = frmGetMail.MailMess.MsgCount - 1
　　mailIndex = frmGetMail.MailMess.MsgIndex
　　frmGetMail.MailMess.MsgIndex = mailIndex + 1
　　frmGetMail.Text1.Text = frmMail.MailMess.MsgOrigAddress
　　frmGetMail.Text2.Text = frmMail.MailMess.MsgSubject
　　frmGetMail.Text3.Text = frmMail.MailMess.MsgNoteText
　　If mailIndex = mailCounts Then
　　frmGetMail.cmdNext.Enabled = False
　　End If
　　End Sub

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。