如何使用perl重试发送电子邮件

时间:2011-10-10 03:34:35

标签: perl sendmail

我正在使用perl语言发送电子邮件,并使用CDO对象使用Win32 :: OLE包。

我的$ cdomsg = Win32 :: OLE-> new('CDO.Message'); ... $ cdomsg - >发送();

我的问题是有时候可能会出现一些网络错误或类似的事情,如果没有成功发送邮件,我想重试发送邮件10次。有什么方法可以解决这个问题吗?

1 个答案:

答案 0 :(得分:2)

我不熟悉那个包,但可能你可以检查Send()命令和循环的返回值。

但这不是一个优雅的解决方案。这是一个多次解决的问题。更好的答案是通过一些真实的电子邮件系统通过SMTP发送电子邮件。我在我的Unix机器上使用Postfix,我不知道Windows用户的答案是什么。所有功能齐全的电子邮件服务器软件包都将具有内置的重试解决方案,该解决方案将尝试在可配置的时间段内重新发送电子邮件,使用智能算法退出重试频率,将重试间隔开几天。

相关问题