以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  收不到邮件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19016)
--  作者：lihe60
--  发布时间：2012/4/25 8:18:00
--  收不到邮件

Dim m As New MailSender
m.Host = "61.147.116.236"
m.Account = "lihe"
m.Password = "lihe123456"
m.From = "ccpa-lihe@sohu.com"
m.To = "lihe60@sohu.com"
m.Title = "初稿已经完成"
m.C
m.AddAttachments("e:\\erp.mdb")
m.SendAsync()

这段代码全部是真实的，为什么收到不邮件。（除了红色部份要改动）
--  作者：狐狸爸爸
--  发布时间：2012/4/25 8:58:00
--  

确定smtp地址，账户和密码没错的话，换换邮件标题和内容看看，另外去垃圾邮件箱找找。
--  作者：lihe60
--  发布时间：2012/4/25 9:20:00
--  

为了验证IP、账号和密码的准确性，执行下面代码，结果显示上传文件成功。

 

Dim ftp1 As new ftpclient
ftp1.host="61.147.116.236"
ftp1.Account = "lihe"
ftp1.password = "lihe123456"
\'If ftp1.DirectoryExists("/data") = False Then \'如果不存在Data目录
\'    ftp1.MakeDir("/data") \'则创建Data目录
\'End If
ftp1.upload("f:\\erp1.mdb","/wwwroot/erp1.mdb",True)
--  作者：lihe60
--  发布时间：2012/4/25 9:21:00
--  
m.From = ccpa-lihe@sohu.com
不明白，这个代码的用途。
--  作者：狐狸爸爸
--  发布时间：2012/4/25 9:45:00
--  
表示这个邮件的发件信箱
--  作者：lihe60
--  发布时间：2012/4/25 10:57:00
--  
以下是引用lihe60在2012-4-25 9:20:00的发言：

为了验证IP、账号和密码的准确性，执行下面代码，结果显示上传文件成功。

 

Dim ftp1 As new ftpclient
ftp1.host="61.147.116.236"
ftp1.Account = "lihe"
ftp1.password = "lihe123456"
\'If ftp1.DirectoryExists("/data") = False Then \'如果不存在Data目录
\'    ftp1.MakeDir("/data") \'则创建Data目录
\'End If
ftp1.upload("f:\\erp1.mdb","/wwwroot/erp1.mdb",True)

贺老师，这个你还没有回答呀！
--  作者：blackzhu
--  发布时间：2012/4/25 12:19:00
--  

你这个邮件和ftp是一个?
--  作者：lihe60
--  发布时间：2012/4/25 12:25:00
--  

blackzhu，加我397661449
--  作者：lihe60
--  发布时间：2012/4/25 13:46:00
--  
不能发邮件，有谁能帮我解决一下！