请教用VB通过OUTLOOK 发送邮件和附件得问题。谢谢！我希望把这样一个表通过VB通过OUTLOOK 发送出去。而且这个表格要在邮件种显示出来。同时把这个表格的原文件(一个EXCEL文件）作为附件也一起发送。

日期 产量 合格率 员工 数据
9月18日 2000 95% 265 123
9月19日 2000 95% 265 123
9月20日 2000 95% 265 123
9月21日 2000 95% 265 123

。
请问谁有相关完整代码吗？最好不要API或者MPTI什么的。我将出50元购买！非常感谢！！！
jicktom11@163.com

[此贴子已经被作者于2007-9-18 15:12:31编辑过]

那我不了解。因为我就懂些VB得基本编程！所以可以根据你提供得代码进行编辑！

非常谢谢8楼得朋友！但我希望是能在模块内实现这些功能！
我需要先对一个EXCEL文件进行比较多得编辑和运算。然后自动讲运算出来得结果发送出去。
我有下面一段程序可以发邮件。但不能发附件。不知道怎么改才可以！放心吧！我可定付款的！因为这是我工作的需要！非常感谢！
Private Sub Command1_Click()
Dim xlApp As Excel.Application, xlBook As Excel.Workbook, xlSheet As Excel.Worksheet
Dim ret As String
Dim App As Object
Dim Itm As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("E:\Eng Work Planning -IR.xls")
Set xlSheet = xlBook.Worksheets("LiWei")

Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = "Work plan update"
.To = "jicktom11@163.com"
.Body = test
.Send
End With

xlBook.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing

End Sub