顾名思义,mail.Copy所获得的对象是与原邮件一摸一样,发件人信息仍是原来的发件人。而mail.Forward则将发件人改为当前的邮箱账号。下面的示例代码用于转发一封选中的邮件:
Public Sub SendButton_Click(ByVal buttonControl As Office.CommandBarButton, ByRef Cancel As Boolean) Dim selection As Outlook.Selection Dim mail As Outlook.MailItem 'mail_copy用于复制用户选中的邮件。真正发送的是mail_copy,而不是mail本身,否则mail会被从 Dim mail_copy As Outlook.MailItem '获取活动的Explorer中用户选中的元素集合 selection = Application.ActiveExplorer.Selection 'selection是一个集合,下标从1开始。对于只选中一封邮件的情况,mail一定是元素1 mail = selection.Item(1) '复制邮件 mail_copy = mail.Forward '若使用mail.Copy复制邮件,则发件人信息不会改变,使用Forward,发件人则改为当前的邮件账户 'mail_copy = mail.Copy '发送该邮件到指定的邮箱 mail_copy.To = "RDB@yrasset.com" '防止抄送到其他邮箱 mail_copy.BCC = "" mail_copy.CC = "" '发送邮件 mail_copy.Send() End Sub