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

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

上一主题 下一主题
 
只看楼主 倒序阅读 0楼  发表于: 2017-09-29
下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. sL]KBux  
ECqcK~h#E  
eZR{M\Q  
Dim strMsg As String Qy`{y?T2  
Dim myFwdMail As Outlook.MailItem }5-^:}gL   
Dim myFwdMeet As Outlook.MeetingItem R"#DR^.;  
sG*1?  
Set myFwdMail = itemMail.Forward +{N LziO  
>t')ZSjRs  
myFwdMail.Recipients.Add "xxx@xxx.com" :Lqz`  
myFwdMail.Send `|e?91@vEa  
Set myFwdMail = Nothing hu.c&Q>  
End Sub wmdv AMN  
分享到
快速回复
限60 字节
 
上一个 下一个