[求助] The message was undeliverable. All servers failed to receive the message

[exia1116]

' 菜鸟初学vb，新注册的163账号，确认账号密码无误，网页版163邮箱上POP3/IMAP/SMTP服务也已经授权，还是报异常，希望大鸟们多多赐教

Private Sub Command4_Click()
On Error GoTo Err_test2
Dim jmail
Set jmail = CreateObject("jmail.Message")

jmail.Charset = "gb2312" '设置邮件的编码
jmail.Silent = False
jmail.Priority = 1 '设置邮件的重要性

jmail.MailServerUserName = "[e-mail]" '设置邮件的用户名
jmail.MailServerPassWord = "1111111" '设置邮件的密码

jmail.FromName = "AAA" '设置邮件显示的发件人
jmail.From = "[e-mail]" '设置你的发件箱
jmail.Subject = "abcd" '设置你的邮件标题

jmail.AddRecipient "[e-mail]" '设置收件人信箱

jmail.Body = "aaaaaaaa" '设置邮件正文
' Jmail.AddAttachment CurrentProject.Path + "\a1.txt" '设置附件

jmail.Send ("smtp.163.com") '设置SMTP服务器地址

Set jmail = Nothing '释放

Err_test2:
Debug.Print Err.Description
End Sub

[im战术]

还在用那么古老的工具，你自求落后20年，不可求众于相随！ 想进步，学点好用的工具好不~这个太老旧了我已忘之。

[zj_zwl]

用.net自带的类发邮件试下

[绿领巾童鞋]

smtp 地址 是否正确 ，是否需要SSL等等

[exia1116]

引用 1 楼 zj_zwl 的回复:

用.net自带的类发邮件试下

开发工具是vb6.0……

[IEEE_China]

vb6有点老了。可以先学习一下vb.net基础。