下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. ^uEg'EKS
p0`AdVA@6
6s9,hp+<k
Dim strMsg As String 9DO':!
Dim myFwdMail As Outlook.MailItem ~%0HA=x;
Dim myFwdMeet As Outlook.MeetingItem 2(x;]GzJ
x(Gq1f
Set myFwdMail = itemMail.Forward J5_)qa
c9l2EX
myFwdMail.Recipients.Add "xxx@xxx.com" wYWz71
myFwdMail.Send ._oUlUyV/d
Set myFwdMail = Nothing ~ww:g1gY
End Sub -qbeBS/P