下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. PC7U&*x@
:p=IZY
jQj`GnN|
Dim strMsg As String (YGJw?]
Dim myFwdMail As Outlook.MailItem 06]J]
Dim myFwdMeet As Outlook.MeetingItem km}%7|R?
F9]GEBLr
Set myFwdMail = itemMail.Forward My5h;N@C
SE;Jl[PgcL
myFwdMail.Recipients.Add "xxx@xxx.com" )C<c{mjk(
myFwdMail.Send lmp0Ye|
Set myFwdMail = Nothing )4D |sN
End Sub UKZsq5Q