下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. 7#j.y f4
26aDPTP $<
_( J#RH
Dim strMsg As String >+7{PF+sB
Dim myFwdMail As Outlook.MailItem ]
hK}ASC
Dim myFwdMeet As Outlook.MeetingItem [#Apd1S_
P,pC Z+H
Set myFwdMail = itemMail.Forward &mtt,]6C_
e4=FO;%
myFwdMail.Recipients.Add "xxx@xxx.com" u4FD}nV
myFwdMail.Send 0e0)1;t\
Set myFwdMail = Nothing :
8O T
End Sub MkMDI)Y|
