下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本.

Dim strMsg As String
Dim myFwdMail As Outlook.MailItem
Dim myFwdMeet As Outlook.MeetingItem
Set myFwdMail = itemMail.Forward
myFwdMail.Recipients.Add "xxx@xxx.com"
myFwdMail.Send
Set myFwdMail = Nothing
End Sub