下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. sL]KBux
ECqcK~h#E
eZR{M\Q
Dim strMsg As String Qy`{y?T2
Dim myFwdMail As Outlook.MailItem }5-^:}gL
Dim myFwdMeet As Outlook.MeetingItem R"#DR^.;
sG*1 ?
Set myFwdMail = itemMail.Forward
+{N LziO
>t')ZSjRs
myFwdMail.Recipients.Add "xxx@xxx.com" :Lqz`
myFwdMail.Send `|e?91@vEa
Set myFwdMail = Nothing hu.c&Q>
End Sub wmdv
AMN