下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. ant#bDb/
I$JyAj
.pPtBqp
Dim strMsg As String @~`:sa+H
Dim myFwdMail As Outlook.MailItem Q=F^Y f
Dim myFwdMeet As Outlook.MeetingItem 4[n[Ch=lu
jF|LPWl
Set myFwdMail = itemMail.Forward F3&:KZ!V&m
/gq\.+'{
myFwdMail.Recipients.Add "xxx@xxx.com" KqFiS9 N5
myFwdMail.Send Z2&7HT
z
Set myFwdMail = Nothing UaM&/K9
End Sub `2@f=$B