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

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

上一主题 下一主题
 
只看楼主 倒序阅读 0楼  发表于: 2017-09-29
下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. ^uEg'EKS  
p0`AdVA @6  
6 s9,hp+<k  
Dim strMsg As String 9DO':!  
Dim myFwdMail As Outlook.MailItem ~%0HA=x;  
Dim myFwdMeet As Outlook.MeetingItem 2(x;]GzJ  
x(Gq1f  
Set myFwdMail = itemMail.Forward  J5_)qa  
c9l2EX  
myFwdMail.Recipients.Add "xxx@xxx.com" wYWz71  
myFwdMail.Send ._oUlUyV/d  
Set myFwdMail = Nothing ~ww:g1gY  
End Sub -qbeBS/P  
分享到
快速回复
限60 字节
 
上一个 下一个