Dim m As New MailSender
m.Host = "smtp.163.com"
m.Account = "******"
m.Password = "********"
m.From = "*******@163.com"
m.To = "gentium9999@126.com"
m.Title = "初稿已经完成"
m.Content  = "附件为初稿, 请您审阅!"
m.AddAttachments("c:\\xx.txt")
m.SendAsync()

为什么附件不能收到呢，有遇到这种情况的吗？

用AddReceiver看看

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.AddReceiver("meili@Sina.com.cn")
m.Title = "李总明天来北京"
m.C
m.SendAsync()

可以了，顺便问一句：可以一次性添加多个附件吗？

比如：

m.Title = "商标"
m.Content  = "附件为商标要求, 请您查收!"
For Each File As String In FileSys.GetFiles("F:\\public\\logo\\")
    m.AddAttachments(File)
Next
m.SendAsync()

然后批量删除

For Each File As String In FileSys.GetFiles("F:\\public\\logo\\")
    FileSys.DeleteFile(File,2,2)
Next

那如何判断是否新增的文件呢？

希望实现：

监控的文件夹，一旦有新创建的文件就立即发送到某固定定邮箱

不是有文件监视器吗：
 
http://help.foxtable.com/topics/1963.htm

文件监视器能够获得新创建文件的名称

至于格式，附件无关，而且你可以判断新创建文件的后缀名的。

经查，邮件发送后，浏览器登陆邮箱可以收到附件，但是用客户端就收不到的，我用的是网易闪电邮，也不知道是什么原因

Dim p As String=filewatcher.path
Dim m As New MailSender

........

m.AddAttachments(p & "\\" & e.name)
m.SendAsync()

大家有遇到这种情况吗，又正在使用闪电邮的能否帮忙测试一下，为什么网页登陆邮箱可以收到附件，但是用闪电邮客户端收不到呢？