顾名思义,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