切换到宽版
  • 4520阅读
  • 0回复

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

上一主题 下一主题
 
只看楼主 倒序阅读 0楼  发表于: 2017-09-29
下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. % X ,B-h^  
H@2"ove-uC  
fqk Dk  
Dim strMsg As String "i{_<;p O  
Dim myFwdMail As Outlook.MailItem tGO[A#9a  
Dim myFwdMeet As Outlook.MeetingItem M?~<w)L}  
:{i$2\DH6  
Set myFwdMail = itemMail.Forward ]pRfY9w  
@Gn?8Ur%  
myFwdMail.Recipients.Add "xxx@xxx.com" cv*Q]F1%  
myFwdMail.Send `\F%l?aY  
Set myFwdMail = Nothing P-OPv%jyi  
End Sub <\d|=>;  
分享到
快速回复
限60 字节
 
上一个 下一个