用MAPI如何发送几个附件？帮帮忙~~~~~~~~~~~~~~

Question

以下是发邮件代码，可怎样在一封邮件中发送几个附件？请教！！！               '开始发邮件
               MAPISession1.SignOn
               MAPIMessages1.SessionID = MAPISession1.SessionID
                      
               MAPIMessages1.Compose
               MAPIMessages1.RecipDisplayName = "[email protected]"
               MAPIMessages1.AddressResolveUI = True
               MAPIMessages1.MsgSubject = "the letter"
               MAPIMessages1.MsgNoteText = "tax text"                              MAPIMessages1.AttachmentPathName = "text1.txt"
               
               
               MAPIMessages1.Send False
               MAPISession1.SignOff
               Label1.Caption = "已发送第" & sumFax & "封邮件"

Answer 1

Private Sub cmdAttachment_Click()    On Error Resume Next        With CommonDialog1        .DialogTitle = "Insert Attachment"        .Filter = "All Files (*.*)|*.*"        .ShowOpen                If Dir(.FileName) <> "" Then            txtAttachment.Text = .FileName                        ' 顯示 Attachment 的 Icon            oleAttachment.SourceDoc = .FileName            oleAttachment.CreateEmbed .FileName        Else            MsgBox "Attachment is not available.", vbCritical        End If    End WithEnd Sub Private Sub cmdSend_Click()    ' 開始 MAPI Session    MAPISession1.SignOn            ' 當 MAPI Session 建立後,    ' Session 所產生的 Handle 會存於 SessionID 屬性中    If MAPISession1.SessionID <> 0 Then            ' 建立 MAPIMessages 與 MAPISession 間之有效關聯        MAPIMessages1.SessionID = MAPISession1.SessionID                ' 建立新的 E-Mail Message        MAPIMessages1.Compose                ' 收件者 (Recipient's Name)        MAPIMessages1.RecipDisplayName = txtName.Text                ' 收件者的 E-Mail Address        MAPIMessages1.RecipAddress = "smtp: " & txtAddress.Text                ' 是否要檢查收件者有無存在於全域 (Global) 或個人 (Personal) 通訊錄裏        MAPIMessages1.AddressResolveUI = True                ' 檢查收件者有無存在於全域 (Global) 或個人 (Personal) 通訊錄裏        MAPIMessages1.ResolveName                ' E-Mail 的主旨        MAPIMessages1.MsgSubject = txtSubject.Text                ' E-Mail 的內文        MAPIMessages1.MsgNoteText = txtNote.Text                ' 設定 Attachment (附件)        If Dir(txtAttachment.Text) <> "" Then            MAPIMessages1.MsgNoteText = MAPIMessages1.MsgNoteText & vbCrLf            MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText) - 1            MAPIMessages1.AttachmentPathName = txtAttachment.Text        End If               ' 傳送 E-Mail 且不顯示"郵件對話盒" (直接傳送)        MAPIMessages1.Send False    End If            ' 結束 MAPI Session    MAPISession1.SignOffEnd Sub Private Sub cmdExit_Click()    EndEnd Sub

Answer 2

我就要下面一段，可是没理解是什么意思，下面可以发几个附件吗？
        If Dir(txtAttachment.Text) <> "" Then            MAPIMessages1.MsgNoteText = MAPIMessages1.MsgNoteText & vbCrLf            MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText) - 1            MAPIMessages1.AttachmentPathName = txtAttachment.Text        End If