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

[merryhoneymoon]

以下是发邮件代码，可怎样在一封邮件中发送几个附件？请教！！！

'开始发邮件
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = "[e-mail]"
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.MsgSubject = "the letter"
MAPIMessages1.MsgNoteText = "tax text"

MAPIMessages1.AttachmentPathName = "text1.txt"


MAPIMessages1.Send False
MAPISession1.SignOff
Label1.Caption = "已发送第" & sumFax & "封邮件"

[daisy8675]

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 With

End 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.SignOff

End Sub



Private Sub cmdExit_Click()

End

End Sub

[daisy8675]

几个的我没测试过

[merryhoneymoon]

我就要下面一段，可是没理解是什么意思，下面可以发几个附件吗？
If Dir(txtAttachment.Text) <> "" Then

MAPIMessages1.MsgNoteText = MAPIMessages1.MsgNoteText & vbCrLf

MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText) - 1

MAPIMessages1.AttachmentPathName = txtAttachment.Text

End If

[monica8361]

还不如用outlook