Vb发邮件,无报错,但收不到邮件

[度年如日1668]

代码（网上COPY的）：

 Dim Email1 As Object
    NameS = "http://schemas.microsoft.com/cdo/configuration/" '一个中转站
    On Error Resume Next
    Set Email1 = CreateObject("CDO.Message")
    Email1.From = "[e-mail]" '你自己的号码，这是我的
    Email1.To = "[e-mail]" '你自己的号码（可以和上面相同），我发给自己
    Email1.Subject = "title" '相当于邮件里的标题
    Email1.Textbody = "body" '相当于邮件里的内容
    Email.AddAttachment "c:\print.txt" '附件路径
    Email1.Configuration.Fields.Item(NameS & "sendusing") = 2
    Email1.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.qq.com" '//邮件服务器
    Email1.Configuration.Fields.Item(NameS & "smtpserverport") = 465 '//端口号
    Email1.Configuration.Fields.Item(NameS & "smtpauthenticate") = 3
    Email1.Configuration.Fields.Item(NameS & "sendusername")="XXXXXX" '//邮箱号码@前面的名字
    Email1.Configuration.Fields.Item(NameS & "sendpassword") ="XXXXXXXX" '//你的邮箱的密码
    Email1.Configuration.Fields.Update
    On Error Resume Next
    Email1.Send
    Set Email1 = Nothing

[舉杯邀明月]

你都“On Error Resume Next”了，还指望报什么错！！！

[度年如日1668]

引用 6 楼 Chen8013 的回复:

[quote=引用 4 楼 CJHLPLFX 的回复:] [quote=引用 3 楼 Chen8013 的回复:] 我这儿运行这段代码，可是有错误提示的！ 执行出错的语句就是：　Email1.Send 执行到它后，大约1分钟多后，就报这个运行时错误。 我怀疑就是你那个“中转站”无法访问。 （这个你是从哪得到的？　或者说如果这是“很久以前”的代码，也有可能MS关闭这个服务了。）

奇怪，我那里不报错。代码是网上找的，CSDN里的，估计MS停止服务了吧。[/quote] 你要注意： 你COPY的代码中，有两处“On Error Resume Next”啊！ 你都删除了试试。 [/quote] 呵呵，是的，我后来发现了。

[度年如日1668]

应该找到原因了，为什么说应该，而不是肯定。因为用不同的发件人也许结果不一样， 不知道是否有的没开通SMTP服务。 我用自己的域名的邮箱发给我的QQ邮箱，测试通过，不过要延迟N分钟。 这段代码： Email1.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.qq.com" '//邮件服务器 这个邮件服务器我没有设置为 smtp.qq.com 等其他服务器,而是设置为发邮件的那台电脑的IP地址，当然，那台电脑需要配置下SMTP才行。

[专注VB编程开发20年]

QQ邮箱的SMTP是不是开了，另外QQ邮箱的端口号也要看下是不是对到

[度年如日1668]

引用 1 楼 Chen8013 的回复:

你都“On Error Resume Next”了，还指望报什么错！！！

去掉 On Error Resume Next后也是没有错误提示

[舉杯邀明月]

我这儿运行这段代码，可是有错误提示的！

执行出错的语句就是：　Email1.Send
执行到它后，大约1分钟多后，就报这个运行时错误。
我怀疑就是你那个“中转站”无法访问。
（这个你是从哪得到的？　或者说如果这是“很久以前”的代码，也有可能MS关闭这个服务了。）

[度年如日1668]

引用 3 楼 Chen8013 的回复:

我这儿运行这段代码，可是有错误提示的！ 执行出错的语句就是：　Email1.Send 执行到它后，大约1分钟多后，就报这个运行时错误。 我怀疑就是你那个“中转站”无法访问。 （这个你是从哪得到的？　或者说如果这是“很久以前”的代码，也有可能MS关闭这个服务了。）

奇怪，我那里不报错。代码是网上找的，CSDN里的，估计MS停止服务了吧。

[专注VB编程开发20年]

端口号啥的是不是错了？试下各处不同的邮箱比如163等等，要是别的可以，QQ的不行就是QQ服务器有问题

[舉杯邀明月]

引用 4 楼 CJHLPLFX 的回复:

[quote=引用 3 楼 Chen8013 的回复:] 我这儿运行这段代码，可是有错误提示的！ 执行出错的语句就是：　Email1.Send 执行到它后，大约1分钟多后，就报这个运行时错误。 我怀疑就是你那个“中转站”无法访问。 （这个你是从哪得到的？　或者说如果这是“很久以前”的代码，也有可能MS关闭这个服务了。）

奇怪，我那里不报错。代码是网上找的，CSDN里的，估计MS停止服务了吧。[/quote] 你要注意： 你COPY的代码中，有两处“On Error Resume Next”啊！ 你都删除了试试。

[度年如日1668]

反正我用其它免费的邮箱发后，收件方是收不到的，我用自己的域名的邮箱发可以收到。这样搞定就行啦，没精力去研究更深层的问题。