怎么用MAPIMessage一次发送多个附件（急）

Question

Public Sub SendMail(ByVal strSendTo As String)
   Dim MMsg As MAPIMessages
     With MMsg
        .MsgIndex = -1
        .RecipDisplayName = Trim(strSendTo)
        .MsgSubject = Trim(TxtSubject.Text)
        .MsgNoteText = Trim(TxtMessage.Text)
        .AttachmentPathName = Trim(TxtAttchment.Text)
       ' .AttachmentName = "Hello.txt"
        .SessionID = MSsn.SessionID
        .Send
     End With
End Sub