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

2016-08-04 08:46:06 232 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

检测tomcat服务，实现崩溃自动重启并发送邮件提醒场景需求tomcat偶尔并不是那么稳定，可能在长时间运行时突然就崩掉了，任何接口都得不到处理，没有返回值，当然，我们需要对各种参数进行配置，实现调优。当然的当然，最大的原因还是在于部署其中的代码，而这又是和我们的水平密切相关的TAT~ 很多企业仍然会将tomcat用于生产环境，这个时候出现崩溃就比较棘手，有时候运营那边大半夜或者周末一个电话，我们就不得安宁了。。。本文通过简短的VB脚本，实现对阅读详情

代码（网上COPY的）：

 Dim Email1 As Object

    NameS = "http://schemas.microsoft.com/cdo/configuration/" '一个中转站

    On Error Resume Next

    Set Email1 = CreateObject("CDO.Message")

    Email1.From = "XXXXXX@qq.com" '你自己的号码，这是我的

    Email1.To = "XXXXXX@qq.com" '你自己的号码（可以和上面相同），我发给自己

    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

...全文

VB与VB.NET的区别宏观 Visual Basic 是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。基于对象。拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。 Visual Basic.NET 是基于微软.NET Framew 阅读详情

度年如日1668

企业官方账号

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

度年如日1668 2016-08-06

打赏
举报

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

舉杯邀明月 2016-08-05

打赏
举报

引用 4 楼 CJHLPLFX 的回复:

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

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

专注编程优化20年 2016-08-05

打赏
举报

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

度年如日1668 2016-08-05

打赏
举报

引用 3 楼 Chen8013 的回复:

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

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

舉杯邀明月 2016-08-05

打赏
举报

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

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

度年如日1668 2016-08-05

打赏
举报

引用 1 楼 Chen8013 的回复:

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

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

专注编程优化20年 2016-08-05

打赏
举报

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

度年如日1668 2016-08-05

打赏
举报

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

度年如日1668 2016-08-05

打赏
举报

引用 6 楼 Chen8013 的回复:

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

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

舉杯邀明月 2016-08-04

打赏
举报

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

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

相关推荐