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

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

上一主题 下一主题
 
只看楼主 倒序阅读 0楼  发表于: 2017-09-29
下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. q<Y#-Io%3  
UZ !It>  
DDe`Lb%%  
Dim strMsg As String y> 0Gmr  
Dim myFwdMail As Outlook.MailItem ^1bM=9]F0  
Dim myFwdMeet As Outlook.MeetingItem 7`tJ/xtMy;  
|eK^Yhym  
Set myFwdMail = itemMail.Forward O@a7MzJ  
U% OlYP$g  
myFwdMail.Recipients.Add "xxx@xxx.com" @PV3G KJ  
myFwdMail.Send -'T^gEd) c  
Set myFwdMail = Nothing { a_&L  
End Sub H^+Znmo  
分享到
快速回复
限60 字节
 
上一个 下一个