下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. %X,B-h^
H@2"ove-uC
fqk Dk
Dim strMsg As String "i{_<;p O
Dim myFwdMail As Outlook.MailItem tGO[A#9a
Dim myFwdMeet As Outlook.MeetingItem M?~<w)L}
:{i$2\DH6
Set myFwdMail = itemMail.Forward ]pR fY9w
@Gn?8Ur%
myFwdMail.Recipients.Add "xxx@xxx.com" cv*Q]F1%
myFwdMail.Send `\F%l?aY
Set myFwdMail = Nothing P-OPv%jyi
End Sub <\d|=>;