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

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

上一主题 下一主题
 
只看楼主 倒序阅读 0楼  发表于: 2017-09-29
下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. OWx YV$  
{O*WLZ{0  
]vMr@JM-G  
Dim strMsg As String wbshKkUh_*  
Dim myFwdMail As Outlook.MailItem _{)e\n  
Dim myFwdMeet As Outlook.MeetingItem SEq_37  
;"hED:z6%  
Set myFwdMail = itemMail.Forward Ra}%:  
[h+MA>%!  
myFwdMail.Recipients.Add "xxx@xxx.com" l Ot3^`  
myFwdMail.Send p [4/Nq,c  
Set myFwdMail = Nothing sWP5=t(i+9  
End Sub ?1K|.lr  
分享到
快速回复
限60 字节
 
上一个 下一个