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

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

上一主题 下一主题
 
只看楼主 倒序阅读 0楼  发表于: 2017-09-29
下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. \xa36~hh40  
qP%Smfp6  
9;m#>a@Y  
Dim strMsg As String WzNG<rG  
Dim myFwdMail As Outlook.MailItem q[Sp|C6x  
Dim myFwdMeet As Outlook.MeetingItem FE^?U%:u@  
hO:)=}+H  
Set myFwdMail = itemMail.Forward u|:UFz^p  
?];~N5<'  
myFwdMail.Recipients.Add "xxx@xxx.com" kM6 EZ`mj  
myFwdMail.Send #! K~_DL  
Set myFwdMail = Nothing Q_UCF'f;}  
End Sub f@,hO5h(_|  
分享到
快速回复
限60 字节
 
上一个 下一个