下面代码可以发送,但是想实现仅发送的功能,就是发完后不在发件箱留副本. M3-lL;!n
N]
sbI)Z@
! :]_-DX
Dim strMsg As String /GGyM]k3
Dim myFwdMail As Outlook.MailItem `;}`>!8j
Dim myFwdMeet As Outlook.MeetingItem X0
|U?Ib?
H*N <7#
Set myFwdMail = itemMail.Forward z)C}}NH*!@
q?7''xk7
myFwdMail.Recipients.Add "xxx@xxx.com" {*O%A
myFwdMail.Send `'s_5Ek
Set myFwdMail = Nothing 6#U~>r/
End Sub ="$w8iRU