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

下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本.  o`S|  
^2E\{$J
 
Eyi^N0  
Dim strMsg As String ULc oti=,  
Dim myFwdMail As Outlook.MailItem `<&RZB2  
Dim myFwdMeet As Outlook.MeetingItem 58\rl G  
:e>y= s>  
Set myFwdMail = itemMail.Forward [uK*=K/v  
*A C){M  
myFwdMail.Recipients.Add "xxx@xxx.com" gQaBQq9  
myFwdMail.Send H_)\:gTG  
Set myFwdMail = Nothing c:
etJ  
End Sub IJHNb_Cku