Question

EXCEL关于VBA中如何将TXT中的文本，通过outlook以body 的形式发出去

我这里有个自己用的，宏，
rivate Sub CommandButton2_Click()
Dim Rng As Range, NewWb As Workbook
Const FName As String = "d:\每日提报.txt"
Application.DisplayAlerts = False
Set Rng = Range("A1:H20")
Rng.Copy
Set NewWb = Workbooks.Add
NewWb.ActiveSheet.Paste
NewWb.SaveAs Filename:=FName, FileFormat:=xlText
NewWb.Close SaveChanges:=False

Dim ou As Object

Dim oua As Object

Set ou = CreateObject("outlook.application")

Set oua = ou.createitem(0)

With oua

.to = "16748610@qq.com"

.Subject = "daily txt 每日统计"

.body = ""

.Attachments.Add ("d:\每日提报.txt")

.send
End With
End Sub
首先第一部分是将，A1:H22转换为TXT格式输出，
第二部分，是将输出的TXT文件，通过调用OUTLOOK ,以附件发出去，
但是第二部分的，邮件BODY，如何才能定义成，A1:H22,,又或者，提取TXT文件，将TXT文件的内容添加进，邮件BODY 里面 我不是学编程的，这点我想了很久 很苦恼

Answer 1

。但是VBA是一种对Office通用的语言，对Outlook、Excel、Word来说，只是操作的对象不同。因为Excel相关的VBA书籍很多，你可以先学习这些书籍，然后了解Outlook对象模型（帮助文件里有），这样应该就可以了。
建议这个网站：

Answer 2

把资料发我，我帮你搞定，Tylerma3223@163.com
没附件看着太难受了。

Answer 3

kankan..................