通过Outlook 发送邮件的问题。在线等待给分。

[cuihz]

代码如下：
Dim Oa
Dim Item

Oa = CreateObject("Outlook.Application")
Item = Oa.CreateItem(0)

Item.To = "[e-mail] "
Item.Subject = "hello"
Item.Body = "hell"
Item.Attachments.add("C:\vb.txt")
Item.Send()

为什么附件"vb.txt"没有发出？好像只是发送了文件的快捷方式。请各位帮忙解决。谢谢！

[xhan2000]

这样不行

看看附件类的使用帮助

[cuihz]

to xhan2000(popeye.net)
具体怎么做呢？

[TheAres]

参考:
http://www.dotnet247.com/247reference/msgs/10/52140.aspx
http://www.dotnet247.com/247reference/msgs/20/102809.aspx