如何重試使用perl發送電子郵件

Question

我正在使用CDO對象發送電子郵件使用perl語言並使用Win32 :: OLE包。

my $ cdomsg = Win32 :: OLE-> new（'CDO.Message'）; ... $ cdomsg - > Send（）;

我的問題是有時可能會出現一些網絡錯誤或類似的情況，如果它沒有成功發送郵件，我想重試發送郵件10次。有什麼辦法可以解決這個問題嗎？

Answer 1

我對這個軟件包並不熟悉，但大概你可以檢查Send（）命令和循環的返回狀態。

但這不是一個優雅的解決方案。這是一個多次解決的問題。更好的答案是通過SMTP通過一些真正的電子郵件系統發送電子郵件。我在我的Unix機器上使用Postfix，我不知道Windows用戶的答案是什麼。所有功能齊全的電子郵件服務器軟件包都將具有內置的重試解決方案，該方案將嘗試在可配置的時間段內重新發送電子郵件，並使用智能算法在重試頻率上進行備份，並在幾天內重新分配重試次數。