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

下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. H`D f  
0>Fqx{!heq  
?'2 v.5TQt  
Dim strMsg As String c$#GM57V  
Dim myFwdMail As Outlook.MailItem %c1FwAC  
Dim myFwdMeet As Outlook.MeetingItem \GHOg. P  
@)z *BmP  
Set myFwdMail = itemMail.Forward @+dHF0aXd  
_0]QS4a][c  
myFwdMail.Recipients.Add "xxx@xxx.com" Ed=}PrE  
myFwdMail.Send $-w5o`e  
Set myFwdMail = Nothing nW &$
~d  
End Sub #`j][F@N