已结贴

[此贴子已经被作者于2017-1-15 05:27编辑过]

谢谢了亲~版主辛苦了！

'采用 控件 jmail.dll

Dim jmail As New jmail.SMTPMail
jmail.MailDomain = "smtp. 'SMTP服务器
jmail.ServerAddress = "smtp. 'SMTP服务器
jmail.ServerPort = 25
jmail.Subject = "测试----" '主题
jmail.Body = "内容-----"
'jmail.Message.HTMLBody = "Hello!" 'HTML 网页源码 加载源码 内容
jmail.Sender = "12345@ '你的E-mail
jmail.SenderName = "12345" '你的名字
jmail.AddAttachment ("D:\ 测试.txt") '附件
jmail.AddRecipient " '收件人
jmail.Message.MailServerPassWord = "09876" '密码
jmail.Message.MailServerUserName = "12345" '用户名
jmail.Message.From = "12345@ '你的E-mail
jmail.Message.FromName = "测试测试" '你的名字
jmail.Message.Send ("smtp.) 'SMTP服务器

问题已解决~但也还是谢谢版主提供另外的资料~我源码也附上了,以后有人也有此问题的时候也好解决！

帖子已结！