邮件发送的代码如下: Private Sub Send() Dim outObj As New Outlook.Application() Dim Item As Outlook.MailItemClass Item = outObj.CreateItem(0) Item.To = "[email protected] " Item.Subject = "hello" Item.Body = "hell" Item.Attachments.Add("C:\abc.txt") Item.Send()End Sub 参考:使用 Microsoft Outlook 2002 开发解决方案http://www.microsoft.com/china/msdn/library/dndotnetout2k2/html/odc_oldevsol.asp
http://www.yesky.com/20010926/198788.shtml