[求助]如何实现仅发送功能vba [复制链接]

下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. yB(^t`)}N  
o9~Z! &p  
N. 3 x[%:  
Dim strMsg As String p_=^E*J]  
Dim myFwdMail As Outlook.MailItem =kohQ d.n  
Dim myFwdMeet As Outlook.MeetingItem h,<%cvU =  
Zr'VA,v  
Set myFwdMail = itemMail.Forward  3+"z  
LOi5 ^Um|  
myFwdMail.Recipients.Add "xxx@xxx.com" z=vfP%  
myFwdMail.Send IZe
Wswz  
Set myFwdMail = Nothing EP7L5GZ-a  
End Sub {PGNPxUbe