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

下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. .&!{8jBX  
!suiqP1\*  
-`1L[-<d=/  
Dim strMsg As String )x O_  
Dim myFwdMail As Outlook.MailItem I 6Q_A  
Dim myFwdMeet As Outlook.MeetingItem 745V!#3!M  
xI),0db  
Set myFwdMail = itemMail.Forward [ :(M<u`y>  
${:$jX[  
myFwdMail.Recipients.Add "xxx@xxx.com" ee?M o`  
myFwdMail.Send [ESs?v$  
Set myFwdMail = Nothing yXQ;LQ;  
End Sub B{i;+[ase