VBA CDO电子邮件自动化。冻结

时间:2016-04-11 10:57:38

标签: excel vba exchange-server exchange-server-2010

我试着到处寻找答案,因为我无法相信它只发生在我身上但似乎找不到任何东西。

我有一个标准的CDO电子邮件发送功能,工作正常,大约3个月前可能会在不到5分钟的时间内发送大约250封电子邮件。这是在2003年交流。

然后我们将我们的Exchange服务器升级到2010,现在我的功能没有改变(除了smtp服务器的ip地址)在.send部分暂停大约15-30秒。我只能认为这是在交换结束时发生的变化,因为我没有改变任何东西,但它使同一个宏需要2-4小时才能发送所有电子邮件。

有没有其他人经历过这个或者知道需要在交换中修复什么才能让我的报告再次快速运行?

非常感谢

1 个答案:

答案 0 :(得分:0)

Exchange 2010接收连接器必须配置为接收传入的SMTP电子邮件,默认情况下它们不会有开放邮件中继。

我建议您通过打开与电子邮件服务器端口25的TELNET连接验证服务器是否接受来自工作站的传入SMTP,并尝试手动发送电子邮件,例如:

  C: HELO myComputerName
  S: 250 smtp.theserverside.net Hello myComputerName [...] 
  C: MAIL FROM: me@TheServerSide.net
  S: 250 smtp.TheServerSide.net <me@TheServerSide.net> is syntactically correct 
  C: RCPT TP: you@TheServerSide.net
  S: 250 <you@TheServerSide.net> verified 
  C: DATA 
  S: 354 Enter message, ending with "." on a line by itself 
  C: Date: 1 April 04 10:30:42
  C: From: me@TheServerSide.net
  C: To: you@TheServerSide.net
  C: Subject: Say Hello
  C: Hello my friend! 
  C: And good bye! 
  C: . 
  S: 250 OK ID=1B3alH-0004ue-00 
  C: QUIT 
  S: 221 smtp.TheServerSide.net closing connection

如果您需要在Exchange上进行调整,请小心并进行测试。接收连接器位于Microsoft Exchange管理控制台/ MS Exchange本地/服务器配置/集线器传输