CMDialog1.FontName = Printer.FontName
CMDialog1.FontSize = Printer.FontSize
CMDialog1.FontBold = Printer.FontBold
CMDialog1.FontItalic = Printer.FontItalic
CMDialog1.ShowFont
If Err = 0 Then
    Printer.FontName = CMDialog1.FontName
    Printer.FontSize = CMDialog1.FontSize
    Printer.FontBold = CMDialog1.FontBold
    Printer.FontItalic = CMDialog1.FontItalic
End If
End Sub

Private Sub FontScreen_Click()
'活動窗體中具有輸入焦點控件的字體設置
On Error Resume Next
CMDialog1.Flags = 1
CMDialog1.FontName = VBMail.ActiveForm.ActiveControl.FontName
CMDialog1.FontSize = VBMail.ActiveForm.ActiveControl.FontSize
CMDialog1.FontBold = VBMail.ActiveForm.ActiveControl.FontBold
CMDialog1.FontItalic = VBMail.ActiveForm.ActiveControl.FontItalic
CMDialog1.ShowFont
If Err = 0 Then
    VBMail.ActiveForm.ActiveControl.FontName = CMDialog1.FontName
    VBMail.ActiveForm.ActiveControl.FontSize = CMDialog1.FontSize
    VBMail.ActiveForm.ActiveControl.FontBold = CMDialog1.FontBold
    VBMail.ActiveForm.ActiveControl.FontItalic = CMDialog1.FontItalic
End If
End Sub

Private Sub Logoff_Click()
'關閉郵件對話，注銷用戶
Call LogOffUser
End Sub

Private Sub Logon_Click()
'登錄
On Error Resume Next
'打開郵件對話
MAPISess.Action = 1
If Err <> 0 Then
    MsgBox "Logon failure:" + Error$
Else
    Screen.MousePointer = 11
    MAPIMess.SessionID = MAPISess.SessionID
    '取得郵箱中郵件的數量
    GetMessageCount
    Screen.MousePointer = 11
    '將郵件的信息裝載到郵件列表窗體中的列表框
    Call LoadList(MAPIMess)
    Screen.MousePointer = 0
    '設置各個按扭及菜單的可用狀態
    Logon.Enabled = False
    Logoff.Enabled = True
    ShowAB.Enabled = True
    VBMail.Toolbar1.Buttons("Compose").Enabled = True
    VBMail.Toolbar1.Buttons("Fetch").Enabled = True
    VBMail.Toolbar1.Buttons("ReplyAll").Enabled = True
    VBMail.Toolbar1.Buttons("Reply").Enabled = True
    VBMail.Toolbar1.Buttons("Forward").Enabled = True
    VBMail.EditDelete = True
    VBMail.Toolbar1.Buttons("Delete").Enabled = True
    VBMail.Toolbar1.Buttons("Previous1").Enabled = False
    VBMail.Toolbar1.Buttons("Next1").Enabled = True
    VBMail.EditDelete.Enabled = True
    VBMail.Mforward.Enabled = True
    VBMail.Mreply.Enabled = True
    VBMail.Mreplyall.Enabled = True
    VBMail.Mreplyall.Enabled = True
    VBMail.Mcompose.Enabled = True
    VBMail.PrintMessage.Enabled = True
    VBMail.Mfetch.Enabled = True
End If
End Sub

Private Sub MailOpts_Click()
'調用收發郵件設置對話框
OptionType = conOptionGeneral
MailOptFrm.Show 1
End Sub

Private Sub Mcompose_Click()
'撰寫新郵件
VBMail.MAPIMess.Action = 6
If SendWithMapi Then
    '使用MAPI對話框撰寫及發送電子郵件
    VBMail.MAPIMess.Action = vbMessageSenddlg
Else
    '使用設計的窗體NewMsg撰寫及發送電子郵件
    Call LoadMessage(-1, NewMsg)
End If
End Sub

Private Sub MDIForm_Load()
Logoff.Enabled = False
Statusbar1.Panels(2) = Time$
Statusbar1.Panels(1) = "現處于離線狀態"
'初始化各菜單，按扭的可用狀態
SendWithMapi = True
ShowAB.Enabled = False
VBMail.Toolbar1.Buttons("Compose").Enabled = False
VBMail.Toolbar1.Buttons("Fetch").Enabled = False
VBMail.Toolbar1.Buttons("ReplyAll").Enabled = False
VBMail.Toolbar1.Buttons("Reply").Enabled = False
VBMail.Toolbar1.Buttons("Forward").Enabled = False
VBMail.Toolbar1.Buttons("Delete").Enabled = False
VBMail.Toolbar1.Buttons("Previous1").Enabled = False
VBMail.Toolbar1.Buttons("Next1").Enabled = False
VBMail.EditDelete.Enabled = False
VBMail.Mforward.Enabled = False
VBMail.Mreply.Enabled = False
VBMail.Mreplyall.Enabled = False
VBMail.Mreplyall.Enabled = False
VBMail.Mcompose.Enabled = False
VBMail.PrintMessage.Enabled = False
VBMail.Mfetch.Enabled = False
End Sub

Private Sub Mfetch_Click()
'從郵箱中讀取郵件
VBMail.MAPIMess.Action = 1
'取得郵箱中郵件的數量
GetMessageCount
'將郵件信息裝載到郵件列表窗體中
Call LoadList(MAPIMess)
End Sub

Private Sub Mforward_Click()
'轉發發郵件
'取得郵件的正文及郵件頭
svNote = VBMail.MAPIMess.MsgNoteText
svNote = GetHeader(VBMail.MAPIMess) + svNote
'發送
VBMail.MAPIMess.Action = 9
VBMail.MAPIMess.MsgNoteText = svNote
If SendWithMapi Then
    '使用MAPI對話框撰寫及轉發電子郵件
    VBMail.MAPIMess.Action = vbMessageSenddlg
Else
    '使用設計的窗體NewMsg撰寫及轉送電子郵件
    Call LoadMessage(-1, NewMsg)
End If
End Sub

Private Sub Mreply_Click()
'回復郵件
'取得郵件的正文及郵件頭
svNote = VBMail.MAPIMess.MsgNoteText
svNote = GetHeader(VBMail.MAPIMess) + svNote
'回復
VBMail.MAPIMess.Action = 7
VBMail.MAPIMess.MsgNoteText = svNote
If SendWithMapi Then
    '使用MAPI對話框撰寫及回復電子郵件
    VBMail.MAPIMess.Action = vbMessageSenddlg
Else
    '使用設計的窗體NewMsg撰寫及回復電子郵件
    Call LoadMessage(-1, NewMsg)
End If
End Sub

Private Sub Mreplyall_Click()
svNote = VBMail.MAPIMess.MsgNoteText
svNote = GetHeader(VBMail.MAPIMess) + svNote
VBMail.MAPIMess.Action = 8
VBMail.MAPIMess.MsgNoteText = svNote
If SendWithMapi Then
    VBMail.MAPIMess.Action = vbMessageSenddlg
Else
    Call LoadMessage(-1, NewMsg)
End If
End Sub

Private Sub PrintMessage_Click()
'打印郵件
Call Printmail
End Sub

Private Sub PrSetup_Click()
On Error Resume Next
'打印機設置
CMDialog1.Flags = &H40
CMDialog1.ShowPrinter
End Sub

Private Sub ShowAB_Click()
On Error Resume Next
'顯示地址簿
VBMail.MAPIMess.Action = vbMessageShowADBook
If Err Then
    If errr <> 32001 Then
        MsgBox "error:" + Error$ + "occured trying to show the address book"
    End If
Else
    '更新收信人地址
    If TypeOf VBMail.ActiveForm Is NewMsg Then
        Call UpdateRecips(VBMail.ActiveForm)
    End If
End If
End Sub

Private Sub Timer1_Timer()
Statusbar1.Panels(2) = Time$
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
    Case "Fetch"
        Call Mfetch_Click
    Case "Compose"
        Call Mcompose_Click
    Case "Reply"
        Call Mreply_Click
    Case "ReplyAll"
        Call Mreplyall_Click
    Case "Forward"
        Call Mforward_Click
    Case "Previous1"
        '查看前一封郵件
        If MailLst.Mlist.ListCount <> 0 Then
            MailLst.Mlist.ItemData(MailLst.Mlist.ListIndex) = False
            MailLst.Mlist.ListIndex = MailLst.Mlist.ListIndex - 1
        End If
        Call ViewNextMsg
    Case "Next1"
       '查看下一封郵件
        If MailLst.Mlist.ListIndex <> MailLst.Mlist.ListCount - 1 Then
            MailLst.Mlist.ItemData(MailLst.Mlist.ListIndex) = False
            MailLst.Mlist.ListIndex = MailLst.Mlist.ListIndex + 1
        End If
        Call ViewNextMsg
    Case "Delete"
        '刪除當前的郵件
        If TypeOf VBMail.ActiveForm Is MsgView Then
            Call DeleteMessage
        ElseIf TypeOf VBMail.ActiveForm Is MailLst Then
            VBMail.MAPIMess.MsgIndex = MailLst.Mlist.ListIndex
            Call DeleteMessage
        End If
End Select
End Sub

Private Sub Wa_Click(Index As Integer)
'排列子窗體
VBMail.Arrange Index
End Sub