下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. yd7lcb
[
jlYD~)
)2iM<-uB
Dim strMsg As String J xA^DH
Dim myFwdMail As Outlook.MailItem W,QnU d'N
Dim myFwdMeet As Outlook.MeetingItem .OVW4svX
\[Sm2/9v
Set myFwdMail = itemMail.Forward $sU5=,
Q%M'[L?[
myFwdMail.Recipients.Add "xxx@xxx.com" BNAguAxWo
myFwdMail.Send vGx?m@
Set myFwdMail = Nothing XkM s
End Sub F{#N6,T