用mapi发送邮件怎么样抄送给另外的人?? 急
源代码如下:
Private Sub SendEmail(ByVal EmailAddress As String, ByVal Subject As String, ByVal NoteText As String, ByVal FilePath As String)
If EmailAddress = "" Then Exit Sub
On Error GoTo ErrMail
MAPISession1.LogonUI = False
MAPISession1.DownLoadMail = False
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = EmailAddress
MAPIMessages1.MsgSubject = Subject
MAPIMessages1.MsgNoteText = NoteText
'Add the Attachment at the end of the message
MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)
'Set the type to a data file
MAPIMessages1.AttachmentType = mapData
'Give it a name
'MAPIMessages1.AttachmentName = txtAttachmentName.Text
'Specify what file to send
MAPIMessages1.AttachmentPathName = FilePath
MAPIMessages1.Send False 'false means do not show the composition window
ErrMail:
If MAPISession1.SessionID <> 0 Then MAPISession1.SignOff
If Err.Number <> 0 Then Err.Raise Err.Number, Err.Source, Err.Description
End Sub