如何用VBA控制OUTLOOK只发送文件簿中的一个工作表~

nynicolas

我现在想通过VBA控制OUTLOOK只发送文件簿中的一个工作表作为附件~我只知道发送整个工作簿的代码如下
Sub SendEmail()

ESubject = "This is a test email"
SendTo = "Some_Address@ADomain.com"
CCTo = "Different_Address@ADomain.com"
Ebody = "Testing VBA's ability to send an email."
NewFileName = "C:\My Documents\TestFile.xls"

Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = ESubject
.To = SendTo
.CC = CCTo
.Body = Ebody
'.Attachments.Add (NewFileName) ' Must be complete path
'.Display ' This property is used when you want
' the user to see email and manually send. Then
' comment out rest of code except “End With” statement
' and "End Sub" statement.
.send
End With
Set App = Nothing
Set Itm = Nothing
End Sub

要怎么修改才能只发送一个工作表呢？谢谢大家了~

dsd999

先把工作表保存出来，再当作附件发送。