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

下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. QqDC4+p"  
E-4b[xNj*+  
0g +7uGp:  
Dim strMsg As String A0/"&Ag]  
Dim myFwdMail As Outlook.MailItem tWJZoD6}h  
Dim myFwdMeet As Outlook.MeetingItem m!gz3u]rN  
RM]\+BK  
Set myFwdMail = itemMail.Forward Cl5uS%g  
,g%0`SO  
myFwdMail.Recipients.Add "xxx@xxx.com" r(6Y*<  
myFwdMail.Send q['Euy  
Set myFwdMail = Nothing 18|m)(W  
End Sub ; ^*}#Xd